Pc Center - Informatica e Nuove Tecnologie

<%@LANGUAGE = VBScript%> <% ' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE Dim sc, cn, rs, quanti, pag, contatore ' DEFINISCO LA STRINGA DI CONNESSIONE sc = "" sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq=" sc = sc & Server.MapPath("mdb-database/offerte.mdb") ' IMPOSTO LA CONNESSIONE EDIL RECORDSET Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") ' APRO LA CONNESSIONE COL DATABASE cn.Open sc ' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA quanti = 5 ' RECUPERO IL NUMERO DI PAGINA CORRENTE ' E CONTROLLO CHE NON SIA INFERIORE A 1 pag = Request.QueryString("pag") If IsNumeric(pag) = False Or pag < 1 Then pag = 1 ' IMPOSTO UN CONTATORE contatore = 0 %> Pc Center - Informatica e Nuove Tecnologie

>> OFFERTE <<

<% ' APRO IL RECORDSET rs.Open "SELECT * FROM offerte ORDER BY id DESC", cn, 1 ' EFFETTUO MATERIALMENTE LA PAGINAZIONE rs.PageSize = quanti rs.AbsolutePage = pag ' ESEGUO IL CICLO While rs.EOF = False And contatore < quanti %>

<%=Server.HTMLEncode(Rs("titolo"))%>

<%=Server.HTMLEncode(Rs("testo"))%>

<% rs.MoveNext ' INCREMENTO IL VALORE DEL CONTATORE contatore = contatore + 1 Wend %>

<%If pag > 1 Then%> Indietro <%End If%> <% Dim x x = 1 For x = 1 To rs.PageCount If CInt(pag) <> x Then %> [<%=x%>] <% Else %> [<%=x%>] <% End If Next %> <%If rs.EOF = False Then%> Avanti <%End If%>

www.pccenter.cc
WebMaster: Andrea Rochira