nollställning funkar inte.

JöbenMedlem sedan jan. 200078 inlägg

Frågan22 jan. 2001 15:02#1

Jag försöker nollställa min räknare med följande kod...

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\iis\databas\counter.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")

' addera
count = "SELECT * FROM raknare"
timecount = "SELECT * FROM tidraknare"
weekcount = "SELECT * FROM veckoraknare"

RecSet.open count, Connect, adOpenStatic, adLockOptimistic
RecSet("hits") = 0
RecSet.update
Recset.close

RecSet.open timecount, Connect, adOpenStatic, adLockOptimistic
do until recset.eof
RecSet("hits") = 0
loop
RecSet.update
Recset.close

RecSet.open weekcount, Connect, adOpenStatic, adLockOptimistic
do until recset.eof
RecSet("hits") = 0
loop
RecSet.update
Recset.close
%>

felmeddelandet ser ut såhär:

ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/nollstallraknaren.asp, line 11

------------------
//Jöben

@ndersMedlem sedan juni 200032 967 inlägg

22 jan. 2001 15:09#2

gaah!

gör så här i stället!

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\iis\databas\counter.mdb"

count = "UPDATE raknare SET hits=0"
timecount = "UPDATE tidraknare SET hits=0"
weekcount = "UPDATE veckoraknare SET hits=0"
Connect.execute (count)
Connect.execute (timecount)
Connect.execute (weekcount)
Connect.close

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>