webForumDet fria alternativet

Vad gör jag för fel här?

ASP

10 svar · 194 visningar · startad av His Divine Shadow

Medlem sedan sep. 20004 079 inlägg
Frågan#1

Jag får detta meddelande:
ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/main/swe/popup5.asp, line 22

Såhär går länken:

popup5.asp?produkt=02120

Såhär ser filen ut:

<% Response.Buffer = True %><%

Produkt = Request.QueryString("Produkt")
%><%
Set Conn = Server.CreateObject("ADODB.Connection")
SQL= "SELECT * FROM Art " &_
"WHERE (Artikelnr LIKE '" & Produkt & "__')"
Conn.Open Session("GB_ConnectionString")
Set RS_prod = Conn.Execute(SQL)
%><%dim visas
visas=RS_prod("Extra_8")
if IsNull(RS_prod("Extra_8")) then
visas=""
end if%>
<%
ovrigt=RS_prod("Övrigt")
Dim Pos
Pos=Instr(5,ovrigt,"<!--#")
ovr=mid(ovrigt,Pos+5,Len(ovrigt)-Pos+5)
Pos=Instr(ovr,"-->")
ovr=left(ovr,Pos)
%>
<%Do While Not RS_prod.EOF%>
<html>

\<head\>
	\<title\>Information\</title\>
\</head\>

\<body bgcolor="white"\>
	\<table border="0" cellpadding="0" cellspacing="0" width="100%"\>
		\<tr\>
			\<td\>\</td\>
			\<td\>
			\<center\>
			\<img src="../produkter/\<%=RS_prod("Extra_8")%\>"\>\<br\>
			\<font Size="1" FACE="verdana, arial, tahoma" Color="#00000"\>\<%=ovr%\>\</font\>\</center\>
			\</td\>
			\<td\>\</td\>
		\</tr\>
		\<tr\>
			\<td bgcolor="white"\>\</td\>
			\<td\>
				\<center\>
					\<br\>
					\<a href="javascript:window.close();"\>St&auml;ng!\</a\>

</center>
</td>
<td></td>
</tr>
</table>
</body>
<%
RS_prod.MoveNext

Loop
Conn.Close
%>

------------------
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.

Medlem sedan sep. 20004 079 inlägg
#2

.

[Redigerat av His Divine Shadow den 20 jul 2001]

Medlem sedan dec. 19998 577 inlägg
#3

Jag tog bort den andra innan du hade skrivit detta andra inlägget... ;)

Din SQL-sats ger inga träffar (inga poster kommer till recordsettet), du får lägga in en If-sats som frågar om det finns poster eller inte innan du börjar plocka ut dessa...

If RS.EOF then
'det finns inga poster
Else
'det finns poster
End If

------------------
Vide rox = new Vide();
rox.learn("C#");

webeye.nu

Medlem sedan mars 20002 836 inlägg
#4
%><%dim visas
visas=RS_prod("Extra_8")
if IsNull(RS_prod("Extra_8"))

du försöker att läsa ngt från ett tomt recordsset och det går inte.
Du måste först kolla om recordsetet är .EOF or .BOF INNAN du kan hämta värden från det.

cya,
PatrikB

------------------
*Det tar sig sa han som hade eld i håret*

Medlem sedan juni 200032 967 inlägg
#5

din fråga ger inga svar, och ditt recordset är tomt.

du gör ingen kontroll på detta innan du försöker med visas=RS_prod("Extra_8").

det bör du göra.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

Medlem sedan dec. 200012 464 inlägg
#6

Din selectfråga returnerar inga poster så du får lägga in en kontroll av det.

Set RS_prod = Conn.Execute(SQL)
%><%dim visas
[b]if not rs_prod.eof then[/b]
visas=RS_prod("Extra_8")
if IsNull(RS_prod("Extra_8")) then
visas=""
end if%>
<%
ovrigt=RS_prod("Övrigt")
Dim Pos
Pos=Instr(5,ovrigt,"<!--#")
ovr=mid(ovrigt,Pos+5,Len(ovrigt)-Pos+5)
Pos=Instr(ovr,"-->")
ovr=left(ovr,Pos)
'resten av koden
else
'hantera att det inte blev något resultat 
%>

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 20 jul 2001]

Medlem sedan juli 2001458 inlägg
#7

Kan det vara dessa underlines mellan " och '

& Produkt & "__')"

eller har de en viss funktion, som jag inte känner till?

------------------
There is no Tomorrow...

Medlem sedan juni 20019 024 inlägg
#8

he he ... tre svar precis samtidigt från tre asp gurus! Inte illa! :)

------------------
Peter D

Medlem sedan sep. 20004 079 inlägg
#9

Nja alltså problemet är ju att det blir detta fel.
För posten finns 120% säkert.

Oj detdär "__" var en kvarlämmning eftersom jag återanvände kod från en annan sida.
Men det gjorde ingen skillnad.

------------------
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.

Medlem sedan mars 2001309 inlägg
#10

he he ... tre svar precis samtidigt från tre asp gurus! Inte illa!

Man slutar aldrig att bli imponerad av grabbarna !!!Keep on rocking

------------------
Plikten framför Allt......

Medlem sedan sep. 20004 079 inlägg
#11

Jag undrar faktiskt om det är koden det är fel i.
Jag kan inte hitta det efter jag rättat de fel ni hittat.
Denhär servern är säkert skyldig.
Den har fått nått fel.

------------------
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning.

1548 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
392 ms — deklarationer (db)
0 ms — hämta statistik (cache)
1152 ms — hämta tråd, inlägg och bilagor (db)
377 ms — ändringar (db)