Undantag?

7 svar · 184 visningar · startad av casca 6 jan. 2001

cascaMedlem sedan feb. 20005 891 inlägg

Trådstart6 jan. 2001 19:00#1

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?

(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>

VideMedlem sedan dec. 19998 577 inlägg

6 jan. 2001 20:31#2

Kolla först om RecSet är EOF, kanske är det som strular...

cascaMedlem sedan feb. 20005 891 inlägg

6 jan. 2001 20:42#3

Jo, körde en liten IF-sats för att kolla om den var EOF och det var den.. Vad gör man då?

VideMedlem sedan dec. 19998 577 inlägg

6 jan. 2001 23:32#4

Lägger till info i databasen

@ndersMedlem sedan juni 200032 967 inlägg

7 jan. 2001 10:23#5

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
%>

cascaMedlem sedan feb. 20005 891 inlägg

7 jan. 2001 13:40#6

Ok, tack @nders! Du är en riktig räddare i nöden

PudolfMedlem sedan juli 2000221 inlägg

7 jan. 2001 14:31#7

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 967 inlägg

7 jan. 2001 16:28#8

pudolf, det finns en liten tidsbugg i systemet.

egentligen skall det stå att vides inlägg gjordes 0:32.

mvh