Ciao a tutti
Stò provando a suddividere i record relativi ad una categoria di prodotti in più pagine. La suddivisione avviene correttamente infatti nella prima pagina mi viene visualizzato il numero di record che io ho impostato. Sotto mi appaiono la numerazione delle pagine a cui si può cliccare, ma quando provo a visualizzare i record che si trovano nella seconda pagina mi dà questo tipo di errore:
Tipo di errore:
ADODB.Recordset (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/euronics/prodotti.asp, line 180
Provo a postare i passaggi principali della pagina prodotti.asp:
<%
pg = TRIM( Request( "pg" ))
IF pg = "" THEN pg = 1
cat = TRIM( Request( "cat" ))
dim driverString, databaseString, connString
dim objConn, catRecSet
driverString="DRIVER={Microsoft Access Driver (*.mdb)};"
databaseString="DBQ=" & Server.MapPath("./mdb-database/ecommerce.mdb") & ";"
connString=driverString & databaseString
set objConn=Server.createObject("ADODB.connection")
objConn.Open connString
set catRecSet=server.CreateObject("ADODB.recordset")
catRecSet.CursorType = adOpenStatic
catRecSet.PageSize = 2
dim query
query="SELECT codice, descrizione, desc_tecnica, foto, prezzo FROM prodotti WHERE categoria='" & cat & "' "
%>
<table border="1" width="400" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr id="header2">
<td width="50" height="20" align="center" bgcolor="#00539D">
<font color="#FFFFFF">Foto</font></td>
<td width="200" height="20" align="center" bgcolor="#00539D">
<font color="#FFFFFF">Descrizione</font></td>
<td width="50" height="20" align="center" bgcolor="#00539D">
<font color="#FFFFFF">Prezzo €</font></td>
<td width="50" height="20" align="center" bgcolor="#00539D"></td>
</tr>
<%
catRecSet.open query, objConn
catRecSet.AbsolutePage = pg
WHILE NOT catRecSet.EOF AND rowCount < catRecSet.PageSize
rowCount = rowCount + 1
%>
<tr id="header3">
<td width="60" height="50" align="center" bgcolor="#D5DCE9">
">[img]<%=catRecSet([/img]"></td>
<td width="170" height="50" align="center" bgcolor="#D5DCE9">
"><%=catRecSet("descrizione")%></td>
<td width="50" height="50" align="center" bgcolor="#D5DCE9"><%=catRecSet("prezzo")%></td>
<td width="70" height="50" align="center" bgcolor="#D5DCE9">
<a href="dettprod.asp?pid=<%=catRecSet("codice")%>">
[img]img/agg_carrello.gif[/img]</a></td>
</tr>
<%
catRecSet.MoveNext
WEND
%>
</table>
<%
IF catRecSet.PageCount > 1 THEN
%>
<font color="#000000">
<span style="font-size: 8pt">Pag.</span><span style="font-size: 8pt">
<%
FOR i = 1 to catRecSet.PageCount
IF i <> cINT( pg ) THEN
%>
<a href="elencosucc.asp?query=<%=Server.URLEncode( query )%>&pg=<%=i%>">
<%=i%></a>
<% ELSE %>
<%=i%>
<% END IF %>
<%
NEXT
%>
</span>
</font>
<%
END IF
catRecSet.Close
objConn.Close
catRecSet=null
objConn=null
%>
</td>
<td width="20" height="540"></td>
</tr>
</table>
La riga 180 di cui è segnalato l'errore è questa: catRecSet.AbsolutePage = pg
Se la tolgo no mi viene segnalato l'errore ma la seconda pagina è vuota.
Ringrazio chiunque voglia aiutarmi a risolvere questo problema
Rispondi quotando
