<%
dim page1
page1=1
if request.querystring("pag1")<>"" then
page1=int(request.querystring("pag1"))
end if
dim page2
page2=1
if request.QueryString("pag2")<>"" then
page2=int(request.QueryString("pag2"))
end if
dim perPagina
perPagina=2
perPaginax=3
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
Server.MapPath("/fpdb/news.mdb")
%>
<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
%>
<%
sSQL="SELECT * FROM News_ order by ID DESC;"
objRS.Open sSQL, objConn, 3, 3
%>
<%Do while not objRS.Eof
objRS.pageSize=perPagina
objRS.absolutePage=page1
for i=1 to perPagina
if not objRS.eof then
ID=objRS("ID")
titolo=objRS("titolo")
news= left(objRS("news"),360) & "...
[continua a leggere]"
%>
<h4><%=objRS("titolo")%></h4>
<%=news%>
News a cura dell'Ufficio Stampa
<%
objRS.movenext
end if
next
response.write "Consulta le altre news in archivio:"
for i=1 to objRS.pagecount
if i<>page1 then
%>
<%= i %> <%
else
%><%= i %>
<%
end if
next
%>
<%
Loop
objRS.Close
%>