cascaMedlem sedan feb. 20005 891 inlägg Har lite problem (igen), med en IF-sats..
Felmeddelande:
fel '80020009'
Undantag inträffade.
/mapp/check2.asp, rad 12
Och rad 12 ser ut så här:
If RecSet("besok") = 0 then
Nån som vet vad som är fel? :q
(Här kommer hela filen)
<% response.buffer = true %>
<!-- #include file="adovbs.inc" -->
<html>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forum.mdb")
SQL = "SELECT besok, login FROM medlemmar WHERE login = '" & Session("inloggadUser") & "'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
If RecSet("besok") = 0 then
response.redirect "user.asp"
RecSet("besok") = RecSet("besok") + 1
RecSet.Update
else
RecSet("besok") = RecSet("besok") + 1
RecSet.Update
response.redirect "forum.asp"
end if
Conn.Close
RecSet.Close
%></html>
------------------
Canis meus id comedit
VideMedlem sedan dec. 19998 577 inlägg Kolla först om RecSet är EOF, kanske är det som strular...
------------------
It's now safe to turn your computor to the left.
Kom hem till mig...
cascaMedlem sedan feb. 20005 891 inlägg Jo, körde en liten IF-sats för att kolla om den var EOF och det var den.. Vad gör man då? ;)
------------------
Canis meus id comedit
VideMedlem sedan dec. 19998 577 inlägg Lägger till info i databasen :)
------------------
It's now safe to turn your computor to the left.
Kom hem till mig...
@ndersMedlem sedan juni 200032 969 inlägg om jag förstår din kod rätt så ska den räkna besök på den aktiva användaren.
är sessionen tom eller inte har någon post i databasen kommer du att få detta fel.
jag hade gått runt det problemet genom att lägga en if not RecSet.eof then - - - end if runt hela avsnittet som ska utföra uppdateringen men skapar ett fel.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forum.mdb")
SQL = "SELECT besok, login FROM medlemmar WHERE login = '" & Session("inloggadUser") & "'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
if not RecSet.eof then
If RecSet("besok") = 0 then
response.redirect "user.asp"
RecSet("besok") = RecSet("besok") + 1
RecSet.Update
else
RecSet("besok") = RecSet("besok") + 1
RecSet.Update
response.redirect "forum.asp"
end if
else
'gör något annat här!
end if
Conn.Close
RecSet.Close
%>
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
cascaMedlem sedan feb. 20005 891 inlägg Ok, tack @nders! Du är en riktig räddare i nöden ;)
------------------
Canis meus id comedit
PudolfMedlem sedan juli 2000221 inlägg det här har inget med casca's problem attt gör men hur kommer det sig att Vide's inlägg står före @nders?
Vide = inskickad 07 jan 2001 12:32
@nders = inskickad 07 jan 2001 11:23
konstigt.
@ndersMedlem sedan juni 200032 969 inlägg pudolf, det finns en liten tidsbugg i systemet.
egentligen skall det stå att vides inlägg gjordes 0:32.
mvh
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
