Exception occurred.

Hej jag får detta fel:

error '80020009' 
Exception occurred. 

/!egna/profil.asp, line 165

Här är koden:

if request.querystring("vem")&""<>"" then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where anv='"&request.querystring("anv")&"'"
rs.Open Addera, Connect, 3, 3 

165-->if rs("anv")<>session("anv") then
rs("besok")=rs("besok")+1
rs.update
end if
else

Vet inte varför det blir fel där...

slarv fel

Addera = "SELECT * FROM anv where anv='"&request.querystring[b]("anv")[/b]&"'"

skulle vara ("vem")

O så tar vi och gör de vanliga prestandaförbättringarna i webStudio-koden. ;)

if request.querystring("vem")&""<>"" then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
SQL = "UPDATE [anv] SET besok = besok + 1 WHERE anv = '" & request.querystring("vem") & "'"
Connect.execute(SQL),,128

if rs("anv")<>session("anv") then
rs("besok")=rs("besok")+1
rs.update
end if
else
...