update |
|
<%
rcont = 0
Set cmdUpdates = Server.CreateObject("ADODB.Command")
cmdUpdates.CommandType = 1
Set cmdUpdates.ActiveConnection = Session("CONNECTION")
cmdUpdates.CommandText = "SELECT * FROM updates WHERE lingua_id = " & Session("idl") & " ORDER BY data DESC"
Set rsUpdates = Server.CreateObject("ADODB.Recordset")
rsUpdates.Open cmdUpdates, , 1, 3
if not(rsUpdates.BOF and rsUpdates.EOF) then
rcont = rsUpdates.RecordCount
select case Request("move")
case "previous"
if CDbl(Session("AbsPosUpdates")) > 4 then
Session("AbsPosUpdates") = CStr(CDbl(Session("AbsPosUpdates"))-4)
end if
case "next"
if CDbl(rcont-Session("AbsPosUpdates")) > 3 then
Session("AbsPosUpdates") = CStr(CDbl(Session("AbsPosUpdates"))+4)
end if
case else
if (Session("AbsPosUpdates") mod 4) > 0 then
Session("AbsPosUpdates") = CStr(CDbl((4*(Session("AbsPosUpdates")\4))+1))
else
Session("AbsPosUpdates") = CStr(CDbl((4*((Session("AbsPosUpdates")\4)-1))+1))
end if
end select
rsUpdates.Bookmark = CDbl(Session("AbsPosUpdates"))
Session("AbsPosUpdates") = CStr(rsUpdates.Bookmark)
ppo = 1
while Not rsUpdates.EOF and (CInt(ppo) <> CInt("5"))
%>
<%=ShowDate(rsUpdates("data"))%> <%=rsUpdates("titolo")%><%=rsUpdates("sottotitolo")%> <%=rsUpdates("anteprima")%> &m=5"><%= continua%> <% rsUpdates.MoveNext ppo = ppo + 1 wend end if rsUpdates.Close if (CInt(Session("AbsPosUpdates")) mod 4 > 0) then this_page = (CInt(Session("AbsPosUpdates"))\4)+1 else this_page = CInt(Session("AbsPosUpdates"))\4 end if if (rcont mod 4 > 0) then last_page = (rcont\4)+1 else last_page = rcont\4 end if %> |