Vad betyder felmeddleandet:
fel '80020009'
Undantag inträffade.
Jag får det på den här raden:
Do Until RecSet("kategori") <> Current_kat
7 svar · 238 visningar · startad av LordJens
Vad betyder felmeddleandet:
fel '80020009'
Undantag inträffade.
Jag får det på den här raden:
Do Until RecSet("kategori") <> Current_kat
Ok, jag tänkte att om nån kunde förklara felmeddelandet skulle jag kanske kunna lösa problemet.
<% Do Until RecSet.EOF
Current_kat = RecSet("kategori")
%>
<B><%=RecSet("real_kat")%></B><BR>
<% Do Until RecSet("kategori") <> Current_kat %>
<%=RecSet("namn")%><BR>
<%=RecSet("url")%><BR>
<I><%=RecSet("beskrivning")%></I><P>
<% RecSet.MoveNext
Loop
Loop %>
Bättre så?
Current_kat och RecSet("kategori") är vanliga textsträngar.
försöker du loopa ett recordset inne i en loop av samma recordset
Alltså, skriptet visar upp sökresultat. Det fungerar nästan. De rätta sökresultaten kommer, men i slutet får jag det irriterande felmeddelandet.
Så här ser det alltså ut i IE:
SÖKRESULTAT
Sökord: aftonbladet
Tidningar
Aftonbladet på nätet [url="http://www.aftonbladet.se"]http://www.aftonbladet.se[/url]
Aftonbladets hemsida, min startsida
fel '80020009'
Undantag inträffade.
/kdrc/linktest.asp, rad 61
jag kör två loopar eftersom jag vill att posterna skall prestenteras unter en kategori.
Typ:
Tidningar
-Aftonbladet
-Expressen
TV
-SVT
Krångligt, men försök förstå.
Du måste skapa ett nytt RecSet till den andra loopen. Jag skulle gjort så här.
<%
do until RS1.eof
response.write RS1("kategori") & "<br>"
Set RS2 = conn.execute("SELECT * FROM nått WHERE kategori = '"&RS1("sökord")&"' ")
Do until RS2.EOF
response.write "- " & RS("underkategorier") & "<br>"
RS2.MoveNext
Loop
RS1.MoveNext
Loop
%>
ok, det fungerar bättre, MEN med den nya koden
<% Do Until RecSet.EOF
Current_kat = RecSet("kategori")
%>
<B><%=RecSet("real_kat")%></B><BR>
<% Set RS2 = connect.execute("SELECT * FROM links WHERE kategori = '"&RecSet("kategori")&"' ")
Do Until RS2.EOF %>
<%=RecSet("namn")%><BR>
<%=RecSet("url")%><BR>
<I><%=RecSet("beskrivning")%></I><P>
<% RS2.MoveNext
Loop
RS2.Close
RecSet.MoveNext
Loop
Visas alla sökresultat 2 ggr
Ursäkta, jag som slarvar.