Newsgroup: it.comp.www.asp
Titolo: non funziona l'esempio nel sito

Salve a tutti mi chiedevo come fare a dividere il risultato della query in N
pagine
tutti mi avete risposto di andare a vedere l'esempio del sito...
ma non funziona..........
Ciao e grazie

, 
and...@tin.it
 says...

mi dispiace per il moderatore, che mi si è sempre rivelato gentilissimo e 
disponibilissimo nei confronti di tutti quelli che hanno chisto 
delucidazioni in materia.. ma quell'esempio non funziona proprio !! :-))
ecco una versione che A ME funziona ..
deriva da quella di 
ASP-IT.COM
, solo che corregge alcuni problemi (per 
esempio quello relativo alla cache.. ecc.. )
<%
showpag = Request.QueryString("showpag")
if showpag = "" then
session("pag") = 1
session("param") = "select * from tabcamera where tipo like '"&tipo&"' 
and marca like '"&marca&"' and modello like '%"&modello&"%' and tipologia 
like '"&tipologia&"'"
else
session("pag") = showpag
end if
Const adOpenKeyset = 1
dim conn
dim rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "dtabase_dns"
param = session("param")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open param, conn, 1
if not rs.eof then
rs.PageSize = 10
rs.AbsolutePage = Session("pag")
Response.Write("<br>")
Response.Write("<div align=""center""><font size=""-2""><b><font 
face=""Verdana, Arial, Helvetica, sans-serif"" color=""#666666"">Sei "& 
vbNewLine)
Response.Write("  alla pagina <font 
color=""#FF0000"">"&Session("pag")&"</font> di <font color=""#FF0000"">" 
&rs.PageCount&"</font> "& vbNewLine)
Response.Write("  disponibili |<font color=""#FF0000""> " &rs.recordcount 
&"</font> records trovati nel database <br>"& vbNewLine)
Response.Write("  </font></b></font>"& vbNewLine)
Response.Write("</div>")
Dim i
For i = 1 To rs.PageSize
 
	if not rs.EOF then
 
	' SCRIVE LA TABELLA
	rs.MoveNext
	end if
Next
Response.Write("<table width=""460"" border=""0"" align=""center"" 
cellspacing=""0"" cellpadding=""6"">"& vbNewLine)
Response.Write("  <tr> "& vbNewLine)
If CLng(Session("pag")) > 1 Then
Response.Write("    <td width=""64"" height=""4""><a href=""new-
search.asp?showpag=" &CLng(Session("pag")-1)& """><img src=""prev.gif"" 
width=""70"" height=""19"" border=""0""></td>"& vbNewLine)
else
Response.Write("    <td width=""64"" height=""4""><img src=""prev_.gif"" 
width=""70"" height=""19"" border=""0""></td>"& vbNewLine)
end if
Response.Write("    <td width=""289"" height=""4""> "& vbNewLine)
Response.Write("      <div align=""center""><a href=""ricerca-
main.htm""><img src=""newsearch.gif"" width=""140"" height=""19"" 
border=""0""></a></div>"& vbNewLine)
Response.Write("    </td>"& vbNewLine)
Response.Write("    <td width=""71"" height=""4""> "& vbNewLine)
If CLng(Session("pag")) < rs.PageCount Then
Response.Write("      <div align=""right""><a href=""new-
search.asp?showpag=" &CLng(Session("pag")+1)& """><img src=""next.gif"" 
width=""70"" height=""19""border=""0""></div>"& vbNewLine)
else
Response.Write("      <div align=""right""><img src=""next_.gif"" 
width=""70"" height=""19""border=""0""></div>"& vbNewLine)
end if
Response.Write("    </td>"& vbNewLine)
Response.Write("  </tr>"& vbNewLine)
Response.Write("</table>")
Response.Write("<br>")
else
Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" 
cellpadding=""0"" height=""100%"">"& vbNewLine)
Response.Write("  <tr>"& vbNewLine)
Response.Write("    <td>"& vbNewLine)
Response.Write("      <div align=""center""><font face=""Verdana, Arial, 
Helvetica, sans-serif"" color=""#666666""><b>Nessun "& vbNewLine)
Response.Write("        record soddisfa la sua richiesta<br>"& vbNewLine)
Response.Write("        <br>"& vbNewLine)
Response.Write("        <a href=""ricerca-main.htm""><img 
src=""newsearch.gif"" width=""140"" height=""19"" 
border=""0""></a></b></font></div>"& vbNewLine)
Response.Write("    </td>"& vbNewLine)
Response.Write("  </tr>"& vbNewLine)
Response.Write("</table>")
end if
Response.Write("</body>")
Response.Write("</html>")
rs.Close
conn.Close
set RS = Nothing
Set conn = Nothing
%>
ciao
daniele
-- 
!! << Please remove .888 from email to reply >> !!