 |
 |
<%
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../mdb-database/journal2.mdb") & ";DefaultDir=" & Server.MapPath(".") & ";DriverId=25;FILE=MS Access;MaxBufferSize=512;PageTimeout=5"
Dim RSConn
set RSConn= Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
RSConn.Open strConnect
MySql="SELECT * FROM journal ORDER BY id DESC"
RS.cursorlocation=3
RS.Open (MySql), RSConn, 3, 3
If Request.QueryString("page") = "" Then
iCurrentPage = 1
Else
iCurrentPage = CInt(Request.QueryString("page"))
End If
RS.PageSize = 1
If RS.PageCount > 0 then
RS.AbsolutePage = iCurrentPage
Else
iCurrentPage = 0
End If
Session("CurrentPage") = iCurrentPage
do while RS.AbsolutePage = iCurrentPage And Not RS.EOF
date1 = rs("pdate")
id = rs("ID")
name1 = rs("pname")
link = "" & date1 & ""
description = name1
Response.write ""
RS.MoveNext
Loop
%> |
<%
If RS.PageCount > 1 then
'Print Previous Page if required
If iCurrentPage <> 1 then
Response.Write "News precedente"
Else
Response.Write "News precedente"
End If
'Print direct access page numbers.
For intCount = 1 to RS.PageCount
If intCount = 1 then
Response.Write " | "
End If
If intCount = iCurrentPage then
Response.Write "" & intCount & " | "
Else
Response.Write "" & intCount & " | "
End If
Next
'Print Next Page if required
If iCurrentPage <> RS.PageCount then
Response.Write "News successiva"
Else
Response.Write "News successiva"
End If
End If
Response.Write "
News " & iCurrentPage & " di " & RS.PageCount & ""
%> |
Data:" & rs("pdate")
Response.write " "& rs("pname")
Response.write"
