WWW.ROOTWEB.IT

www.rootweb.it - creare nel web

<% Language=VBScript %>
<%

 '----------------------------------------------------------------------------------------------
   quanti = 6
       pag = Request.QueryString("pag")
    If IsNumeric(pag) = False Or pag < 1 Then pag = 1

    ' IMPOSTO UN CONTATORE
    contatore = 0
 
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("dati.mdb") & ";Jet OLEDB:Database Password=" & "" & ";"

SQL = "select * from dat1"
conn.open strConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sql, conn, 3, 3
nfoto = nfoto + 1
       pag = Request.QueryString("pag")
    If IsNumeric(pag) = False Or pag < 1 Then pag = 1

    ' IMPOSTO UN CONTATORE
    contatore = 0
    objrs.PageSize = quanti
    objrs.AbsolutePage = pag
    ' ESEGUO IL CICLO
    While objrs.EOF = False And contatore < quanti

response.write objRS("dati") & "<br>"

objRS.Movenext
   contatore = contatore + 1
  Wend
'--------------------------------------------
 '-------------numerazione---------------------------------
%>

<center>

<%If pag > 1 Then%>
    <a href="paginazione.asp?pag=<%=pag-1%>">Indietro</a>
<%End If%>
<%
    Dim x
    x = 1
    For x = 1 To objrs.PageCount
        If CInt(pag) <> x Then
%>
            [<a href="paginazione.asp?pag=<%=x%>"><%=x%></a>]

<%
        Else
%>
            [<a href="paginazione.asp?pag=<%=x%>"><b><%=x%></b></a>]
<%
        End If
    Next
%>
<% If objrs.EOF = False Then%>
    <a href="paginazione.asp?pag=<%=pag+1%>">Avanti</a>
<%End If%>
</center>
  <%
objRS.Close
Set objConn =Nothing
%>