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>
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
%><%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.
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
%>
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.
377 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a