Ciao a tutti...
Uso questa impaginazione per i miei siti dove richiesta solo che adesso mi spunta un errore e non riesco a capire dove sbaglio.
Vi posto il codice.
.................................................. ....
<%
iPageSize = 20
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../mdb-database/db_tempoverde.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM articoli where categoria='balaustre' ORDER BY " & strOrderBy & " DESC;"
RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize
RS.CacheSize = iPageSize
iPageCount = RS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
%><hr>
<p align="center"><font size="2" face="Verdana">Nessuna articolo pervenuto.</font></p>
<hr>
<%
Else
RS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<%
Do While iRecordsShown < iPageSize And Not RS.EOF
numero = numero + 1
%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="3" width="400">
<tr>
<td width="205" bgcolor="#663300" height="13">
<p align="right"><font color="#FFFFFF" face="Verdana" size="1">Articolo:</font></td>
<td width="571" bgcolor="#FFFFCC" height="13"><font size="1" face="Verdana" color="#000000"><%=RS("articolo")%>
</font></td>
</tr>
<tr>
<td width="205" valign="top" align="right" height="113">
<p align="right"><font size="1" face="Verdana" color="#000000">">[img]../cacca[/img]</font></td>
<td width="571" valign="top" align="left" height="113">
<div align="center">
<table border="0" cellpadding="0" cellspacing="3" width="400" bgcolor="#FFFFFF">
<tr>
<td width="147" bgcolor="#FF9933" align="right" valign="top"><font color="#FFFFFF" size="1" face="Verdana">Descrizione:</font></td>
<td width="420" bgcolor="#FFFFCC" valign="top" align="left"><font color="#000000" size="1" face="Verdana"><%=RS("descrizione")%>
</font></td>
</tr>
<tr>
<td width="147" bgcolor="#FF9933" align="right" valign="top"><font color="#FFFFFF" size="1" face="Verdana">Misure:</font></td>
<td width="420" bgcolor="#FFFFCC" valign="top" align="left"><font color="#000000" size="1" face="Verdana"><%=RS("misure")%>
</font></td>
</tr>
<tr>
<td width="147" bgcolor="#FF9933" align="right" valign="top"><font color="#FFFFFF" size="1" face="Verdana">Peso:</font></td>
<td width="420" bgcolor="#FFFFCC" valign="top" align="left"><font color="#000000" size="1" face="Verdana"><%=RS("peso")%>
</font></td>
</tr>
<tr>
<td width="567" align="right" valign="top" colspan="2"><font size="1" face="Verdana">
</font></td>
</tr>
</table>
</div>
</table>
</div>
<%
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
%>
<%
End If
RS.Close
Set RS = Nothing
Conn.Close
%><center>
<%
For x=1 to iPageCount
%>
<font face="Verdana" size="2">[ <%=x%> ]</font>
<%
Next
%> </table>
.................................................. ....
l'errore che mi restituisce quando clicco nella pagina 2 è questo:
HTTP Errore 404
404 Impossibile trovare l'oggetto desiderato.
Il server Web non è stato in grado di trovare il file o lo script richiesto. Controllare che il percorso dell'URL sia corretto.
Se il problema persiste, contattare l'amministratore del server.
dove sbaglio? grazie a tutti, Gianluca.
Rispondi quotando
