HJÆÆÆÆÆÆÆÆÆÆÆÆÆLP!!!!!!! ;-)

Hvad pokker går galt her:

rigtig = 0
Forkert = 0
For Each Item In Request.Form
  Response.Write(Item & " " & Request.Form(Item)) & "<br>"

afstande = split(Item & " " & Request.Form(Item), " ")
Response.Write afstande(0) & "<br>"
Response.Write afstande(1) & "<br>"
Response.Write Right(Item & " " & Request.Form(Item),2) & "<br>"

  strSQL = "SELECT * FROM Quiz WHERE ID = "& afstande(0) &""
  Set rs = myConn.Execute(strSQL)

svar  = rs(afstande(1))
response.write svar & "<br>"
response.write rs(afstande(1)) & "<br>"
If svar <> afstande(1)  then
Forkert = Forkert + 1
else
rigtig = rigtig + 1
End if

response.write "Rigtige:  " & rigtig & "<br>"
response.write "Forkerte: " & Forkert & "<br>"
Next

Glem alle mine response.write....det er kun for at se hvad den skriver ud.

Lige meget hvad den modtager lægger den 1 til forkert...der kommer "Ja" fra formen og "Ja" fra databasen men NEJ NEJ...den er ligeglad... har snart ikke mere hår tilbage på hovedet ;-)