Mærkeligt problem
Hej EksperterJeg har et stort problem i det at jeg har lavet en afstemning, men der er en fejl i den som jeg ikke kan finde.
Der måles med radiobutton som indikerer smileys..
ex.
<input type="radio" name="q28" value="S1L28">
S1 indikerer smiley 1 og 28 id'et på spørgsmålet.
Koden som opdaterer databasen ser således ud :
<%
SQL = "Select MAX(id) AS MAXID, MIN(id) AS MINID FROM koersler WHERE Status = True"
Set rs = Conn.Execute(SQL)
If rs("MAXID") > 0 Then
For t = rs("MINID") TO rs("MAXID")
If Request.Form("q"&t) <> "" Then
SPLITOP = Split(Request.Form("q"&t),"L")
Svar = Left(Request.Form("q"&t),2)
idet = Right(Request.Form("q"&t),Len(Request.Form("q"&t))-3)
Set rs2 = Conn.Execute("Select * From afstemninger WHERE id = "& idet &"")
Set rs3 = Conn.Execute("Select * From koersler WHERE aid = "& idet &" AND Status = True")
Set rs10 = Conn.Execute("SELECT * From koersler WHERE Status = True")
If Not (rs2.bof or rs2.eof) Then
Brg = rs2("Godkendte")
If Brg = "alle" Then
strVidere = 1
Else
Brugeren = Split(Brg,",")
For x = 0 To Ubound(Brugeren)
If Brugeren(x) = Session("user") Then
strVidere = 1
Else
strVidere = 0
End If
Next
End If
If strVidere = 1 Then
If Not (rs3.BOF OR rs3.EOF) Then
NyS = CInt(CInt(rs3(Svar))+1)
nyV = CInt(CInt(rs3("Votes"))+1)
End If
' Informationer lagres i cookien
Response.Cookies("HTMLTest")("afstemte"&rs2("id")) = Svaret
Response.Cookies("HTMLTest")("afstemning") = rs10("Titel")
Response.Cookies("HTMLTest").Expires = Date+364
SQL2 = "UPDATE koersler SET "& Svar &" = "& NyS &", Votes = " & nyV &" WHERE aid = "& idet &" AND Status = True "
Conn.Execute(SQL2)
End If
End If
End If
Next
End IF
%>
Det virker egentlig okay, men den første post i tabellen bliver ikke afstemt... Hvad kan det være ??????
