cookie problem på afstemning
Jeg er igang med at lave en afstemning, hvor deltagerne kan give forskellige enheder karakter fra 1 til 5 - via radioknapper. Når man har stemt på en af enhederne skal radioknapperne for enheden blive "desabled" så man ikke kan stemme på den igen, men stadig på de resterende enheder.Men det virker ikke, - felterne bliver ikke disabled.
Her sættes feltet til 'disabled' hvis cookie findes til den enkelte enhed:
Do While Not objRS.EOF
strID = CInt(objRS("ID"))
If Not Request.Cookies("afstemning")(strID) <> "" Then
strDisabled = " disabled"
Else
strDisabled = ""
End If
HTML = HTML & "<tr><td>" & objRS("Titel") & "<i> (" & objRS("UdgivelseAar") & ")</i></td>"
For intPoint = 1 to 5
HTML = HTML & "<td><input type='radio'" & strDisabled & " name='" & objRS("ID") & "' value='" & intPoint & "'></td>"
Next
HTML = HTML & "</tr>"
objRS.MoveNext
Loop
Her oprettes cookie, efter man har stemt:
For Each album In Request.Form
cookie = Request.Cookies("afstemning")(album)
Response.Write "1_x_cookie " & cookie
'Opbygning af SQL streng
strSQL = "SELECT * FROM afstemAlbums WHERE ID = " & album
'Henter recordset
objRS.Open strSQL, objConn, 3, 3
'Finder points og stemmer
intPoint = objRS("Points") + Request.Form(album)
intStemmer = objRS("AntalStemmer") + 1
'Opdaterer database
objRS("Points") = intPoint
objRS("AntalStemmer") = intStemmer
objRS.Update
objRS.Close
'Gemmer i cookie
Response.Cookies("afstemning")(album) = Request.Form(album)
Response.Cookies("afstemning").Expires = Date + 365
'End If
Next
Hvor går det galt?
