Hvem hjælper?

http://zequenze.dns2go.com/eksperten/Konkurrence.zip

prøv dette system

det gør jeg:

<%
Set connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
sql = \"select * from bruger WHERE godkendt=true order by ID desc\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = Connect.execute(SQL)

count = 15
While not rs.eof and count > 0
count = count -1
%>

Hvordan får man alle de markerede svar til at blive gemt i en session. For den skal jo sammanligne med det korrekte svar i dbén ??

laver koden vent lidt

FUCK!
Havde glemt jeg ikke har installeret Office ... LORT! :(
Ses senere :)

Jeg har dette script. Du skal nok lige rette connection stengen til at passe med hvor din database ligger... Det er lavet med Session.
Jeg har hendte din DB du kar lagt op på siden så hvis connection strengen er rigtig, skulle det gerne virker.


<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"log/rfk.mdb\")
Conn.Open DSN

if Session(\"vistID\") = \"\" then Session(\"vistID\") = \",\"

  oldID = \"\"
  spmID = Request.Form(\"spmID\")
  if spmID = \"\" then spmID = \"1\"
  if Session(\"spmID\") = \"\" then Session(\"spmID\") = 0
  if (Session(\"vistID\") <> \",\") AND (Request.Form(\"spmsvar\") <> \"\") AND (spmID <> \"\") AND Cint(spmID) = Cint(Session(\"spmID\")) then
    if Session(\"svar\") = \"\" then
      Session(\"svar\") = Request.Form(\"spmsvar\")
    else
      Session(\"svar\") = Session(\"svar\") & \",\" & Request.Form(\"spmsvar\")
    end if
  else
    if (spmID <> \"\") AND (Session(\"vistID\") <> \",\") then
      \'oldID = spmID
      oldID = Session(\"spmID\")
    end if
end if

\' Tjekker hvor mange svar der er givet.
svarLavet = 0
if Session(\"svar\") <> \"\" then
  svarLavet = 1
  indexK = inStr(1,Session(\"svar\"),\",\")
  do while indexK > 0
    indexK = inStr(indexK+1,Session(\"svar\"),\",\")
    svarLavet = svarLavet + 1
  loop
end if
\'Definer hvor mange svar som brugere skal igennem
MAX_ANTAL_SVAR = 15

if svarLavet < MAX_ANTAL_SVAR then

if oldID = \"\" then
  strSQL = \"SELECT * FROM myb\"
  if Session(\"visID\") <> \"\" then
    strSQL = strSQL & \" WHERE ID NOT IN (\"&Session(\"visID\")&\")\"
  end if
else
  strSQL = \"SELECT * FROM myb WHERE ID = \" & oldID
end if

rs.Open strSQL, Conn, 3, 1

if oldID = \"\" then
  rndMax = CInt(rs.RecordCount)
  Randomize timer
  rndNumber = Int((RND * rndMax)) \'Find et random nummer
  if NOT rs.EOF then
    rs.Move rndNumber \'Flyt til den valgte record
  else
    Session(\"visID\") = \"\"
  end if
end if
%>
  <form method=\"POST\" action=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\">
  <table>
    <input type=\"hidden\" name=\"spmID\" value=\"<%=rs(\"ID\")%>\">
    <tr><td><%=rs(\"spg\")%></td></tr>
    <tr><td><input type=\"radio\" name=\"spmsvar\" value=\"a\"><%=rs(\"a\")%></td></tr>
    <tr><td><input type=\"radio\" name=\"spmsvar\" value=\"b\"><%=rs(\"b\")%></td></tr>
    <tr><td><input type=\"radio\" name=\"spmsvar\" value=\"c\"><%=rs(\"c\")%></td></tr>
    <tr><td><input type=\"radio\" name=\"spmsvar\" value=\"d\"><%=rs(\"d\")%></td></tr>
    <tr><td><input type=\"submit\" name=\"svar\" value=\"næste\"></td></tr>   
  </table>
<% 
  Session(\"spmID\") = rs(\"ID\")

  if inStr(1, Session(\"vistID\"),\",\"&rs(\"ID\")&\",\") = 0 then
    Session(\"vistID\") = Session(\"vistID\") & rs(\"ID\") & \",\"
    if Session(\"visID\") = \"\" then
      Session(\"visID\") = rs(\"ID\")
    else
      Session(\"visID\") = Session(\"visID\") & \",\" & rs(\"ID\")
    end if
    if Session(\"rigtigsvar\") = \"\" then
      Session(\"rigtigsvar\") = rs(\"svar\")
    else
      Session(\"rigtigsvar\") = Session(\"rigtigsvar\") & \",\" & rs(\"svar\")
    end if
  end if

rs.Close
Set rs = Nothing
else
%>
  <center>...du har svaret på alle opgaverne...</center><br>
<%
rigtigeSvar = split(Session(\"rigtigsvar\"),\",\")
svar = split(Session(\"svar\"),\",\")
visID = split(Session(\"visID\"),\",\")
SvarRigtig = 0
for i = LBound(rigtigeSvar) to UBound(rigtigeSvar)
  if Ucase(svar(i)) = UCase(rigtigeSvar(i)) then
    SvarRigtig = SvarRigtig + 1
  end if
next
Response.Write \"Du har svaret rigtig på \" & SvarRigtig & \" spørgsmål ud af ialt \" & MAX_ANTAL_SVAR & \".<br><br>\"
Response.Write \"Detailjer:<br>\"


for i = LBound(rigtigeSvar) to UBound(rigtigeSvar)
  Response.Write \"Spørgsmål \" & i+1 & \" \"
  if UCase(svar(i)) = UCase(rigtigeSvar(i)) then
    Response.Write \"rigtigt besvaret\"
  else
    strSQL = \"SELECT * FROM myb WHERE ID = \" & visID(i) & \";\"
    set rs = conn.Execute (strSQL)

    Response.Write \"forket besvaret. Rigtigt svar på spørgsmålet:<br>\"
    Response.Write \"Spg: \" & rs(\"spg\") & \"<br>\"
    Response.Write \"Svar \" & rs(\"svar\") & \": \" & rs(\"\" & rs(\"svar\"))
  end if
  Response.Write \"<br><br>\"
next

Session(\"visID\") = \"\"
Session(\"vistID\") = \"\"
Session(\"rigtigsvar\") = \"\"
Session(\"svar\") = \"\"
end if

Conn.Close
Set Conn = Nothing

%>

</body>
</html>