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 %>