Avatar billede martin100 Nybegynder
19. januar 2005 - 01:50 Der er 1 løsning

Hvordan skal en quiz fungere i ASP?

Som sagt er jeg ny til ASP, så hav derfor tålmodighed!

Jeg er igang med at lave en quiz. Jeg har nu en side som hedder: http://www.2mwebdesign.dk/atpl/random2.asp

Denne side trækker et random record ud fra DB. Derefter sørger asp-scriptet for at man ikke kan komme til at få det samme spørgsmål to gange.

Spørgsmålet er nu, hvordan man skal lave det!

Skal jeg lave en side som trækker spørgsmålet ud f.eks random2.asp og
Dernæst en side som f.eks. hedder next.asp hvor det næste record genereres og
Dernæset når alle de records fra DBén er loaded så skal den gå til en side som hedder f.eks. results.asp?

Min kode indtil videre ser således ud:

<form method="post" action="random2.asp">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/_vti_log/atpl.mdb")
Conn.Open DSN

StrSQL = "Select * from spg"

If Session("visID") <> "" then
StrSQL = StrSQL & " WHERE ID NOT IN ("&Session("visID")&")"
end if

rs.Open StrSQL, Conn, 3, 1

RndMax = CInt(rs.RecordCount)
If RndMax > 0 Then

Randomize
RndNumber = Int((Rnd * RndMax))

rs.Move RndNumber
%> 
<%

Response.write rs(1) & "<br><br>"
Response.write "<input type=""hidden"" name=""Id"" value=""" & rs(0) & """>"
Response.write "<input type=""radio"" name=""V1"" value=""a"" checked> " & rs(2) & "<br>" & "<br>"
Response.write "<input type=""radio"" name=""V1"" value=""b"">" & rs(3) & "<br>" & "<br>"
Response.write "<input type=""radio"" name=""V1"" value=""c"">" & rs(4) & "<br>" & "<br>"
Response.write "<input type=""radio"" name=""V1"" value=""d"">" & rs(5) & "<br>" & "<br>"

Session("brugersvar") = Session("brugersvar") + "|" + Request.Form("ID") + "|" + Request.Form("V1")
%>
<%
if Session("visID") = "" then
Session("visID") = rs("ID")
else
Session("visID") = Session("visID") & "," & rs("ID")
end if
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
xxx record
<input type="hidden" name"indsend" value="ok">
<%If request("indsend")="ok" Then
Session.Contents(rs(spg))=request(V1)
End If
%>
her er det "session.contents": <%Response.Write Session.Contents("brugersvar")
End If
%>
<input type="submit" value="svar" name="svarknap">


Nogle ideer? Det kan jo ikke være rigtigt siden skal stå og loade sig selv når der kommer nye spørgsmål?

Hvordan kan man gøre det? Jeg vil gerne bede om eksempler på de som svarer, så jeg selv kan lære og forstå...
Avatar billede martin100 Nybegynder
19. januar 2005 - 02:02 #1
Lukker ned da det ikke er placeret i rigtig kategori!
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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