<% Dim DBConn,strconn
set dbconn=server.createobject("ADODB.connection")
strconn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath ("/mdb-database/database/database.mdb")
dbconn.open strconn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
strSQL = "SELECT * FROM Tabella order by codice ASC"
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page
If objRS.Eof=True or objRS.Bof=True then
Response.Write "Nessun risultato trovato
"
Else
Response.Write ("| Codice | Descrizione |
|---|
")
For i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.Write("| " & objRS("codice") & " | ")
Response.Write("" & objRS("descrizione") & " | ")
'Response.Write("" & objRS("nickname") & " |
")
objRS.MoveNext
end if
Next
Response.Write ("
")
End if
Response.Write "Pagine: "
For pag=1 to objRS.PageCount
Response.Write ""
Response.Write pag
Response.Write " "
Next
Response.Write "
"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>