<%
' Setto giorni della settimana
dim giorno(7)
giorno(1) = "Dom "
giorno(2) = "Lun "
giorno(3) = "Mar "
giorno(4) = "Mer "
giorno(5) = "Gio "
giorno(6) = "Ven "
giorno(7) = "Sab "
' Leggo i parametri
tasto = request.form("tasto")
settore = "*"
tipo = "modulistica"
if tasto = "Invia" then
prg = request.form("prg")
sel_doc = request.form("sel_doc")
else
prg = request.Querystring("prg")
sel_doc = request.Querystring("sel_doc")
end if
if len(trim(prg)) = 0 then
prg=1
end if
if len(trim(ufficio)) = 0 then
ufficio = "0"
end if
'
' Controllo compattazione stringa ufficio
if ufficio <> "0" then
if ufficio = "generali" then
ufficio = "affari generali"
end if
if ufficio = "culturali" then
ufficio = "affari culturali"
end if
if ufficio = "persona" then
ufficio = "servizi alla persona e politiche familiari"
end if
if ufficio = "economico" then
ufficio = "settore economico finanziario"
end if
if ufficio = "territorio" then
ufficio = "gestione e controllo del territorio"
end if
end if
if len(trim(sel_doc)) = 0 then
sel_doc = 0
end if
if len(trim(settore)) = 0 then
settore = request.form("settore")
if len(trim(settore)) = 0 then
settore = "*"
end if
end if
if len(trim(tipo)) = 0 then
tipo = request.form("tipo")
if len(trim(tipo)) = 0 then
tipo = "*"
end if
end if
' Dichiaro la variabile che conterrą l'oggetto Connection
Dim conn
' Creo l'oggeto Connection
Set conn = Nothing
Set conn = Server.CreateObject("ADODB.Connection")
' apro la connessione con la fonte dati
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../../dati/nembroDB.mdb")
' dichiaro la variabile che conterrą l'oggeto Recordset
Dim rs
' creo l'oggeto Recordset
set rs = Nothing
set rs = Server.CreateObject("ADODB.Recordset")%>
