|
Cerca all'interno delle ultimissime
|
<%
page = Request( "page" )
sfid = Request( "sfid" )
perpage = 15
sSQL = "SELECT * FROM notizie ORDER BY data DESC"
Set dRS = Server.CreateObject( "ADODB.Recordset" )
dRS.ActiveConnection = Con
dRS.Open sSQL, Con, 1, 3
If page = "" Then
page = 1
End If
If not dRS.EOF Then
dRS.PageSize = perpage
dRS.AbsolutePage = page
%>
| TITOLO |
DATA
|
<%
'Response.Write(data)
For i = 1 To perpage
If not dRS.EOF Then
'Response.Write("" &vbcrlf)
'data = Month(dRS("data")) & "/" & Day(dRS("data")) & "/" & Year(dRS("data"))
'sSQL = "SELECT * FROM notizie WHERE data = #" & data & "#"
'Set nRS = Server.CreateObject( "ADODB.Recordset" )
'nRS.ActiveConnection = Con
'nRS.Open sSQL
'If not nRS.EOF Then
'Response.Write("" &vbcrlf)
'Response.Write("| " &vbcrlf)
'Do While Not nRS.EOF
Response.Write(" | " &vbcrlf)
Response.Write(" " & ( Server.HTMLEncode(dRS("titolo"))) & "
| " &vbcrlf)
Response.Write("" & dRS("data") & " | " &vbcrlf)
Response.Write(" " &vbcrlf)
'nRS.MoveNext
'Loop
'Response.Write("" &vbcrlf)
'End If
dRS.MoveNext
End If
Next
'If not dRS.EOF Then
Response.Write(" " &vbcrlf)
'scrivo i numeri delle pagine
Response.Write "
Pagine: "
For pag = 1 to dRS.PageCount
if pag = CInt(page) then
Response.Write " " & pag & " "
else
Response.Write ""
Response.Write pag
Response.Write " "
end if
Next
Response.Write " | "
End If
%>
|
