Kan någon smart människa hjälpa mig hitta felet i den här kodbiten?
Dim Conn, DBPoll
Set Conn = Server.CreateObject("ADODB.Connection")
Set DBPoll = Server.CreateObject("ADODB.Recordset")
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=\inetpub\wwwroot\olof\databas.mdb;"
Dim SQL
SQL = "SELECT * From Poll Where ID='" & Request.Querystring("id") & "'"
DBPoll.Open SQL, Conn, 1, 2
Dim SQL2
Dim Siffra
Siffra = Mid(Request.Querystring("svar"),2,1)
SQL2 = "UPDATE Poll SET Q"&Siffra&"=Q"&Siffra&"+1 Where ID='" & Request.Querystring("id") & "'"
Conn.Execute (SQL2)
DBPoll.Close
Conn.Close
Response.Redirect("index.asp")
End If
Felet ligger enligt IIS i raden
"Conn.Execute (SQL2)"
Feltyp:
Microsoft JET Database Engine (0x80004005)
Operationen måste använda en fråga som kan uppdateras.
/olof/olof/rosta.asp, line 18
Hjälp uppskattas
------------------
//Oakman
Här kommer nåt passande citat/ordspråk i framtiden ;)