Salve Ragazzi! devo fare un esercizio per la scuola ma c'e' un problema nella paginazione che non mi riesco a fare , da premettere che il tutto lavora in una sola pagina (Login.asp) , vi posto il codice è abbastanza lungo:
<%
SUB SESSION_TRUE()
dim dbconn , rs
set dbconn = Server.CreateObject("ADODB.CONNECTION")
DBCONN.OPEN "provider=microsoft.jet.oledb.4.0; DATA SOURCE=" & SERVER.MAPPATH("commercio.mdb")
%>
<div align="center"><strong><font size="5">Scopri i Nostri Prodotti di Qualità a Prezzi Veramente Convenienti!</font></strong></div>
<div align="center">
<Form action="Login.asp" method="post">
<table width="78%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FF0000">
<tr>
<td width="23%" bordercolor="#FF0000"><div align="center"><strong>MENU'
CATEGORIE</strong></div></td>
<td width="77%" bordercolor="#FF0000"><div align="center"><strong>PRODOTTI</strong></div></td>
</tr>
<tr>
<td bordercolor="#FF0000"><div align="center">
<select name="categoria">
<option value="Sport">Sport</option>
<option value="Informatica">Informatica</option>
<option value="Elettronica">Elettronica</option>
<option value="Abbigliamento">Abbigliamento</option>
</select>
<br>
<input type="submit" name="pulsante" value="Invia!">
</div></td>
<td bordercolor="#FF0000"><div align="center"><br>
<table width="95%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CC6600">
<tr>
<td width="19%"> <div align="center"></div>
<div align="center"><strong><font color="#FFFFFF">Articolo</font></strong></div></td>
<td width="13%"><div align="center"><strong><font color="#FFFFFF">Quantità</font></strong></div></td>
<td width="14%"><div align="center"><strong><font color="#FFFFFF">Prezzo</font></strong></div></td>
<td width="30%"><div align="center"><strong><font color="#FFFFFF">Descrizione</font></strong></div></td>
<td width="24%"><div align="center"><strong><font color="#FFFFFF">Foto</font></strong></div></td>
</tr>
'---------------------CODICE PAGINAZIONE-------------------
<%
Categoria = request.Form("Categoria")
set rs = server.CreateObject("ADODB.RECORDSET")
RecordPerPagina = 3
page = request("page")
if page="" then page="1"
SqlSelect2="SELECT * FROM Prodotti WHERE Categoria='" & categoria & "';"
rs.open sqlselect2 , DBCONN , 1 ,3
rs.pagesize = RecordPerPagina
rs.AbsolutePage = page
if rs.eof or rs.bof then
response.write "<p><font size='7'><b>Risultati Non Trovati</b></font></p>"
else
for i= 1 to RecordPerPagina
if not rs.eof then
%>
<tr>
<td><div align="center"><% =rs("Articolo") %></div></td>
<td><div align="center"><% =rs("Quantita") %></div></td>
<td><div align="center"><% =rs("Prezzo") %></div></td>
<td><div align="center"><% =rs("Descrizione") %></div></td>
<td><div align="center"><img src"<% =rs("Foto") %>"></div></td>
</tr>
<%
rs.movenext
end if
next
end if
%>
'----------------------FINE PAGINAZIONE-------------------
</table>
<br>
</div></td>
</tr>
</table>
</Form>
'-------------------INIZIO PAGINAZIONE (LINK)--------------
<%
Response.Write "<P><B>Pagine:</B> "
For pag=1 to RS.PageCount
Response.Write "<A href='Login.asp?page=" & pag & "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
RS.Close
Set RS=Nothing
DBCONN.Close
Set DBCONN=Nothing
%>
'-----------------FINE PAGINAZIONE (LINK)------------------
<a href="accesso.asp">Clicca Qui Per Andare Alla Pagina Di LogOut</a>
</div>
<% END SUB %>
FINO A QUANDO SCORRO LE VARIE CATEGORIE DEI PRODOTTI FUNZIONA PERFETTAMENTE , MA QUANDO CLIKKO SUL LINK DELLA PAGINAZIONE APPARE QUESTO ERRORE :"ADODB.Recordset errore "800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/e-commerce/Login.asp, riga 167"
A NOTATO CHE QUANDO CAMBIO LA SELECT DA COSI':SqlSelect="SELECT * FROM Prodotti WHERE Categoria='"& Categoria & "';"
A COSI':"SELECT * FROM Prodotti WHERE Categoria='Sport';" FUNZIONA PERFETTAMENTE BENE TUTTO! Qualcuno può darmi una mano?
Modificato da Matrix_01 il 21 giugno 2005 02.07 -
