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