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å...