|
Cantieri
<%
Dim iPageSize 'Numero di record da visualizzare per ogni pagina
Dim iPageCount 'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent 'Pagina corrente
Dim strOrderBy 'Parametro in base a cui definire l'ordinamento
Dim iRecordsShown 'Variabile usata per definire i record mostrati
iPageSize = 5
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
%>
<%
dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open "SELECT * FROM cantieri ORDER BY nome ASC;", objconn, adOpenKeyset
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
iPageCount = objRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write("
Esito: Non ci sono cantieri presenti
")
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
Response.Write " | Cantieri Presenti: "& objRS.recordcount &" | pagina " & iPageCurrent & " di " & ipagecount & "
|
"
Do While iRecordsShown < iPageSize And Not objRS.EOF
Response.Write "" & objRS("nome") & ""
%>
<%
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
%>
<%
end if
objRS.Close
set objRS=Nothing
objconn.Close
set objconn=Nothing
%>
<%
If iPageCurrent <> 1 Then
%>
Indietro
<%
End If
%>
<%
If iPageCurrent < iPageCount Then
%>
Avanti
<%
End If
%>
|