<%
Dim numberPage
set dbConn=Server.CreateObject("ADODB.connection")
dbConn.Open DB_ASL9_READ,"",""
PAGINA = "SALUTE"
CATEGORIA = "ASL9 Privacy"
SQLSELECT = "SELECT * FROM vs_lancio"
SQLSELECT = SQLSELECT & " WHERE sz_mnemonico = '" & PAGINA & "'"
SQLSELECT = SQLSELECT & " AND ct_mnemonico = '" & CATEGORIA & "'"
SQLSELECT = SQLSELECT & " AND no_inizio_data_pubblicazione <= GETDATE()"
SQLSELECT = SQLSELECT & " AND no_fine_data_pubblicazione >= GETDATE()"
SQLSELECT = SQLSELECT & " ORDER BY no_inizio_data_pubblicazione desc, no_codice,no_titoloshort desc;"
set RsLancio = Server.CreateObject("ADODB.recordset")
RsLancio.PageSize=7
RsLancio.Open SQLSELECT,dbConn,3,3
if Request.QueryString("page")="" then
page=1
else
page=Cint(Request.QueryString("page"))
end if
if RsLancio.eof and RsLancio.bof then
else
RsLancio.AbsolutePage=page
numberPage=RsLancio.PageCount
end if
%>
Asl TO4 - Privacy
<%dim sezione
'specifica la sezione, per evidenziarlo all'interno del menù
sezione="trasparenza"%>
Ti trovi in:
Home, Privacy
<%
dbConn.close
set dbConn = nothing
%>