Hejsan!
Jag håller på med en röstningsscript där jag i formuläret har I = For 1 To 10...
I databasen har ja 0 som standard!

Vi säger att ingen har röstat ännu.
Så här ser min kod ut!

<% If Request.Querystring("rosta") = "skamt" Then %>

<% Session.lcid = 1053

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=db025_db1"

If Request.Cookies(Request.Querystring("id")) = "true" Then
Response.Redirect "bilder_skamt.asp?ID=" & Request.Querystring("id") & "&show=fusk"
Else

Set RecSet = Conn.Execute("SELECT * From skamt Where id=" & Request.Querystring("id"))

vote = Request.QueryString("vote")

Conn.Execute("Update skamt Set summa=summa+" &vote &" Where id=" & Request.Querystring("id"))

Conn.Execute("Update skamt Set totalt=totalt+1 Where id= " & Request.Querystring("id"))

Conn.Execute("Update skamt Set V"&vote&"=V"&vote&"+1 Where id=" & Request.Querystring("id"))

Conn.Execute("Update skamt Set snitt ="& RecSet("summa")&"/"&RecSet("totalt")&" Where id=" & Request.Querystring("id"))

RecSet.Close
Conn.Close

Response.Cookies(Request.Querystring("id")) = "true"
Response.Cookies(Request.Querystring("id")).Expires = DateAdd("h", 1, now)

Response.Redirect "bilder_skamt.asp?ID=" & Request.Querystring("id")
End If
End If
%>
----------------------------------------------------------------------------------

Ok, första gången ja röstar får ja följande felmeddelande:

ADODB.Connection.1 error '80004005'

SQLState: 22003
Native Error Code: 34
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver]Numeric value out of range (null)


/rosta.asp, line 57

När jag sedan uppdaterar sidan visar det att ja har röstat 2 gånger, och felet återupprepas inte mer!
Vad skall ja göra så att fel inte uppstår vid röstning?

Hassan Fakhro