<%
server.ScriptTimeout = 300 '5 minuti
'Recupero le variabili per paginare
page = Cint(request.querystring("page"))
if page = 0 then page = 1
'Assegno il nome del database
database = "unitedhotels_it_p"
call dbConnect(objConn, database)
response.write ("<html>")
response.write ("<title>Paginazione</title>")
response.write ("<body>")
'Totale dei record
strSQL = "SELECT COUNT(*) FROM tclienti"
Set objRS = objConn.Execute(strSQL)
tot_record = objRS(0)
set objRS = nothing
'Record per pagina
pageSize = 5
'Primo record di ogni pagina
inizio = (page - 1) * pageSize
'Pagine complessive per effetto della paginazione
pagine_totali = tot_record / pageSize
'Arrotondamento in caso di resto della divisione precedente
if pagine_totali - CInt(pagine_totali) > 0 then
pagine_totali = CInt(pagine_totali + 1)
else
pagine_totali = CInt(pagine_totali)
end If
'Visualizzazione dei record paginati
strSQL = "SELECT nome, cognome FROM tclienti LIMIT "& inizio &",
"& pageSize
Set objRS = server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
if not objRS.EOF then
Response.Write ("<table style=""font-family:verdana;font:12px;"">")
Response.Write ("<tr>")
Response.Write ("<td style=""width:150px;""><strong>Nome</strong></td>")
Response.Write ("<td style=""width:150px;""><strong>Cognome</strong></td>")
Response.Write ("</tr>")
do while not objRS.EOF
Response.Write ("<tr>")
Response.Write ("<td>"& objRS("nome") &"</td>")
Response.Write ("<td>"& objRS("cognome") &"</td>")
Response.Write ("</tr>")
objRS.movenext
Loop
Response.Write ("<tr style=""height:50px;"">")
'Pagine precedenti
if page > 1 then
Response.write("<td><a href=""default.asp?page="&
CInt(page - 1) &""">Pagina precedente</a></td>")
else
Response.Write ("<td></td>")
end if
'Pagine successive
if tot_record > pageSize and pagine_totali > page then
Response.write("<td><a href=""default.asp?page="&
CInt(page + 1) &""">Pagina successiva</a></td>")
else
Response.Write ("<td></td>")
end if
Response.Write ("</tr>")
Response.Write ("</table>")
else
Response.write ("Non ci sono record.")
end if
objRS.close
set objRS = nothing
response.write ("</body>")
response.write ("</html>")
call dbDisconnect(objConn, database)
'SUB
'Apertura connessione database
sub dbConnect(objConn, database)
connectionstring = "DRIVER={MySQL ODBC 3.51 Driver};DATABASE="&
database &";SERVER=localhost;UID=root;PASSWORD="
set objConn = server.createObject("ADODB.Connection")
objConn.Open connectionstring
end sub
'Chiusura connessione database
sub dbDisconnect(objConn, database)
objConn.close
set objConn = nothing
end sub
%>