Problem...

Hejsan!
Varför funkar det inte att göra så här?

Set rs4 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT  * FROM gang where gang ='"& request.querystring("gang") &"'"
rs4.Open Addera, Connect, 3, 3 

rs4("antaladmin") = rs4("antaladmin") - 1
rs4.update

Det ger detta meddelande:

error '80020009'

Vad beror de på?
Tacksam för svar :)

Mvh Adde

Du borde la få mer felmeddelande än så, det där säger inte så mycket..

Hur eller hur så kan du korta ner hela din kod och exekvera update direkt, ex.

[red]Connect.Execute("UPDATE gang SET antaladmin=antaladmin-1 WHERE gang = '"& trim(request.querystring("gang")) &"'"),,128[/red]

Och undvika null-fel, samt andra obehagligheter...

If Not Request.QueryString("gang") = "" Then
  strSQL = "UPDATE gang SET antaladmin = antaladmin - 1 WHERE gang = '" & Replace(Request.QueryString("gang")), "'", "''") & "'"
  Connect.Execute strSQL, , 128
End If