Ciao a tutti, ho un problema. Vorrei paginare i risultati di una query in una pagina. Questa è il mio codice ma non funziona. Qualcuno potrebbe aiutarmi. Grazie
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY topmargin="0" rightmargin="0" bgcolor="99CCFF" alink="darkblue" vlink="darkblue" link="darkblue">
<center>
<hr color="darkblue">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td width="35%" height="19" align="center"><font size="4" face="Verdana" color="darkblue"></font></td>
<td width="30%" height="19" align="center"><font size="4" face="Verdana" color="darkblue"><b>Ricerca Titolo</b></font></td>
<td width="35%" height="19" align="right"><font size="1" face="Verdana" color="darkblue"><a href="centro.asp">Back</a></font></td>
</tr>
</table>
<hr color="darkblue">
<table border="0" width="100%" height="21" cellborder="0" cellspacing="0">
<tr>
<td width="10%" align="center"><font face="Verdana" color="#000066" size="2"><b>Genere</b></font></td>
<td width="65%" align="center"><font face="Verdana" color="#000066" size="2"><b>Titolo</b></font></td>
<td width="25%" align="center"><font face="Verdana" color="#000066" size="2"><b>Attore</b></font></td>
</tr>
</table>
<%
Dim page, perpage
page = Request.QueryString("page")
perpage = 6
Set Connessione = Server.CreateObject ("ADODB.Connection")
Connessione.Open "videonostop"
Set catalogodvd = Server.CreateObject ("ADODB.Recordset")
sqlstring = "SELECT * FROM catalogodvd Order BY genere;"
catalogodvd.Open sqlstring, "videonostop", 1, 3
if page = "" then
page = (catalogodvd.PageCount)
end if
catalogodvd.PageSize = perpage
catalogodvd.AbsolutePage = page
For i = 1 to perpage
If Not catalogodvd.EOF then
if catalogodvd("id") < 6 then
Response.write ("<a href='rictuttititoliprov.asp?Id=" & catalogodvd("id") & "'</a> ")
else
Response.write ("<a href='rictuttititoliprov.asp?Id=" & catalogodvd("id") & "'</a> ")
end if
%>
<table border="0" width="100%" height="21" cellborder="0" cellspacing="0">
<tr>
<td width="10%" align="center"><font face="Verdana" color="#000066" size="2"><%=catalogodvd("genere")%></font></td>
<td width="65%" align="center"><font face="Verdana" color="#000066" size="1"><a href="informazioni.asp?Id=<%=catalogodvd("codicetitolo")%>" target="_blank"><%=catalogodvd("titolo")%></a></font></td>
<td width="25%" align="center"><font face="Verdana" color="#000066" size="1"><%=catalogodvd("attori")%></font></td>
</tr>
</table>
<hr color="darkblue">
<%
catalogodvd.MoveNext
end if
next
%>
<%
Response.Write "<p><b>Pagine:</b>"
For pag = 1 to catalogodvd.PageCount
If page = pag then
Response.Write "<b>"
Response.Write "<A href='rictuttititoliprov.asp?page=" & pag
Response.Write "'>"
Response.Write page
Response.Write "</a>"
Response.Write "</b>"
else
Response.Write "<A href='rictuttititoliprov.asp?page="
Response.Write "'>"
Response.Write page
Response.Write "</a>"
end if
Next
Response.Write "</p>"
%>
<%
catalogodvd.Close
Connessione.Close
Set catalogodvd=Nothing
Set Connessione=Nothing
%>
</BODY>
</HTML>
