Frågeställare : Patrik
Datum : 2002-04-25 20:19:53
Ämne : Fel i shoppen...
Fråga :
Tjena!
Jag har gjort om lite i din Webbshop. Sen när jag ska visa sidan så kommer detta felet upp.
============================
Error Type:
ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/dvdnu/sortiment.asp
============================
Här nedan är min kod!
============================
<!-- #include file="adovbs.inc" -->
<HTML>
<HEAD>
<TITLE>sortiment</TITLE>
</HEAD>
<BODY bgcolor="#7AA9CB">
<% If Request.QueryString("Typ")= "" Then %>
<p align="left">
<b><font size="1" face="Verdana">Klicka på den produkten du vill se på!</font></b></p>
<p align="left">
<b><font size="1" face="Verdana"> <% ELSE %>
<% Dim RecSet, DB, Addera, Typ %>
<% Typ = Request.QueryString("Typ") %>
<%
Set DB = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")
Dim StrConnect
StrConnect = "driver={Microsoft Access Driver (*.mdb)};dbq="
StrConnect = StrConnect & Server.Mappath("artiklar.mdb")
DB.Open StrConnect
Visa = "Select * from Prod WHERE Typ = '" & Typ & "' ORDER BY Titel"
RecSet.Open Visa, DB, adOpenForwardOnly, adLockReadOnly
%> </font></b></p>
<div align="center">
</p>
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber1" bgcolor="#5E7CAE">
<tr>
<td>
<div align="center">
<center>
<table width="700" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<%'Här under (numcols) ställer du hur många kolumner du vill ha %>
<% Numcols = 5 %>
<% Do Until RecSet.EOF %>
<tr valign="top">
<% For i=1 To Numcols %>
<td width="699">
<% If RecSet.EOF Then
Exit Do %>
<%' ja det ska stå ( ) här under %>
<p align="center">
<% Else %>
<form method="get" action="kundvagn_laggtill.asp" target="kundvagn">
<img src="<%=RecSet("cover")%>" width="105" height="150"><br>
<font face="Verdana" size="1"><b><%=RecSet("titel")%></b></font><br>
<font size="1" face="Verdana" color="#800000"><%=RecSet("Pris")%>:-
<% End If %>
<% RecSet.MoveNext %> </font>
<p align="center">
<font size="1" face="Verdana">Antal </font>
<input type="text" name="antal" size="2" value="1" maxlength="2" style="border:1px solid #5E7CAE; font-family: Verdana; font-size: 10px; font-weight: bold; background-color: #5E7CAE">
<input type="image" src="img/kop2.gif" name="kop"></p>
<input type="hidden" value="<%=RecSet("Titel")%>" name=Titel>
<input type="hidden" value="<%=RecSet("Pris")%>" name=Pris>
<input type="hidden" value="<%=RecSet("PID")%>" name=ArtNr>
<input type="hidden" value="laggtill" name="andra">
</form>
</td>
<% Next %>
</tr>
<% Loop %>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
<p><br><br>
<%
RecSet.Close
DB.Close
End If
%>
</BODY>
</HTML>
============================
men om jag tar bort alla hidden values utom "andra" så funkar det... vad kan detta bero på tror du??
Besvarare : Jimmy Staff
Datum : 2002-04-25 23:05:03
Svar :
Hej Patrik, tack för din fråga.
Felet beror på att den har kommit längst ner i databasen (EOF) på grund av att du kör MoveNext och sen efter den använder du :
<input type="hidden" value="<%=RecSet("Titel")%>" name=Titel>
<input type="hidden" value="<%=RecSet("Pris")%>" name=Pris>
<input type="hidden" value="<%=RecSet("PID")%>" name=ArtNr>
Som ju läser ur databasen. Testa att lägga dessa 3 raderna före RecSet.MoveNext.
Lycka till!
© 2010 Staff consulting.
|
