<% @Language=VBScript %> <% Option Explicit %> <% PreventPageCaching if request.QueryString("page") <> "" then session("newsPubbPage") = request.QueryString("page") end if if session("newsPubbPage") = "" or not isNumeric(session("newsPubbPage")) then session("newsPubbPage") = "1" RecordsPerPagina = 20 %> News - MEDIAGLOBAL Vendite Immobiliari & Aziendali s.a.s
 
NEWS  
<% sSQL = "SELECT * FROM tblNews WHERE bEnabled = -1 ORDER BY nPosizView" set oRS = getRS( sSQL, connstring ) if not oRS.eof then oRS.PageSize = RecordsPerPagina oRS.AbsolutePage = subst0(session("newsPubbPage")) response.Write("
"&Paging (intPage, oRS.PageCount, oRS.RecordCount, "")&"
") i = 1 : do while not oRS.eof and i <= RecordsPerPagina %>
<% i = i + 1 oRS.MoveNext loop response.Write("
"&Paging (intPage, oRS.PageCount, oRS.RecordCount, "")&"
") else %>
.. non sono presenti eventi ..
<% end if set oRS = Nothing %>