<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("counter.mdb")
datum = date
IF NOT Request.Cokies("cactuzcounter")("count") = "rostat" THEN
Response.Cokies("cactuzcounter")("count") = "rostat"
Response.Cokies("cactuzcounter").Expires = DateAdd("d",1,Now())
sql = "UPDATE besok set Antalbesok = Antalbesok + 1 WHERE Datum = '"&datum&"'"
db.execute sql,rows,128
if rows = 0 then
SQL = "INSERT INTO besok (Datum,antalbesok) VALUES ('" & datum &"',1)"
db.execute SQL,,128
end if
sql = "UPDATE totalt set Besok = Besok + 1"
db.execute sql,,128
sql = "UPDATE visningar set Totalt = Totalt + 1"
db.execute sql,,128
ELSE
sql = "UPDATE visningar set Totalt = Totalt + 1"
db.execute sql,,128
END IF
%>
o får felet:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
Jag tror inte felet härstammar från den koden du postar.
Felet brukar komma då man försöker skriva ut data från ett fält som inte finns med i recordsetet. Alltså: har du mer kod på sidan, kanske en liten SELECT-fråga, och kanske lite utskrifter?