Hej!
Jag håller på med ett röstningscript, man röstar mellan 1-10.
Så här ser mitt script 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")

If Recset.EOF Then
Response.Write "Du kan inte rösta på ett ID som inte finns"
Else

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
End If
%>

Vid första rösten 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 29

Sedan klickar ja uppdatera!
Så funkar det som vanligt men den visar att ja har röstat 2 ggr!
Sen funkar det som vanligt, det e bara första rösten ja får detta felmeddelande!

På Line 29 har jag!
RecSet.Close

Hassan

Troligtvis för att värdet är NULL och inte 0. 1+NULL blir fel...


Ps. Dålig rubril
/Pelle