Avatar billede bobbedude Nybegynder
14. april 2002 - 10:25 Der er 6 kommentarer og
1 løsning

On sumbmit gå til næste

Jeg har en række spørgsmål i en db, til disse kan der gives point via en input field, når man klikker på den skal den submitte formen og automatisk loade den næste i rækken. Hvordan gør jeg det ?
Avatar billede oskar Nybegynder
14. april 2002 - 11:02 #1
I HEAD:
<META HTTP-EQUIV="Refresh" CONTENT="5;URL=http://www.ditdom.dk/side.html">
Avatar billede eagleeye Praktikant
14. april 2002 - 12:53 #2
Jeg er ikke helt med på hvad du mener, i det dette spm (http://www.eksperten.dk/spm/126635) er der en side som skal hendte 15 spørgsmål fra en DB og vise den et af gangen og så tilsidst skrive hvor mange rigtie der var.. Måske det er noget i den stil?

Det er noget med at holde tungen lige imunden med Session variablen for at holde styr på hvor langt man er i rækken.
Avatar billede bobbedude Nybegynder
14. april 2002 - 13:32 #3
I min db har jeg et felt Id, når min side loades første gang vises felterne hvor ID er = 1. Når man trykker på submit var det så meningen at den skulle gå til ID 2 og når den når til enden skulle den begynde forfra.
Avatar billede coltau Juniormester
14. april 2002 - 14:40 #4
Kan du bruge dette:

' Session("ID") indeholder ID for sidenr.
if Session("ID") = "" then
  Session("ID") = "1" ' Første gang sættes sidenr til 1
else
  Session("ID") = CStr(CInt(Session("ID")) + 1) ' Vis næste side
end if

SQL = "select * from tabel where ID=" & Session("ID") ' Hent aktuelle

' Lav form der kalder sig selv og vis spørgsmål
Avatar billede eagleeye Praktikant
14. april 2002 - 14:46 #5
Her er lidt kode som ikke bruger sessions men en form, og den tager højde for hvis en ID mangler i rækken:


<HTML>
<HEAD>
</HEAD>
<BODY>

<%
if (Request.ServerVariables("REQUEST_METHOD") = "POST") then
  oldID = Request.Form("thisID")
else
  oldID = 0
end if

set connect = server.createobject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

'Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db1.mdb")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db10.mdb")
'Connect.Open "Data Source="&server.MapPath("db1.mdb")&";Provider=Microsoft.Jet.OLEDB.4.0;"

strSQL = "SELECT TOP 1, * FROM dintabel WHERE ID > "& oldID & ";"
Set rs = Connect.Execute(strSQL)
if rs.EOF then
  strSQL = "SELECT TOP 1, * FROM dintabel;"
  Set rs = Connect.Execute(strSQL)
end if

if NOT rs.EOF then
  oldID = rs("ID")
%>
<form method="POST" name="thisform" action="spm197864.asp">
  <input type="hidden" name="thisID" value="<%=oldID%>">
  Points: <input type="text" name="points"> <br>
  <input type="submit" name="næste" value="næste">
</form>
<%
end if

rs.close
Connect.Close
%>

</BODY>
</HTML>
Avatar billede bobbedude Nybegynder
14. april 2002 - 19:57 #6
eagleeye >> det er nøjagtig det jeg mangler
Avatar billede bobbedude Nybegynder
14. april 2002 - 20:08 #7
eagleeye >> det virker 100% tusind tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Scan Global Logistics

PMO Project Manager

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Analytiker til Security Operations Center ved Cyberdivisionen

IT Forum Gruppen

Senior Sales Manager hos ITF

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Informationssikkerhedsofficer til Akkreditering & Compliance