<% Function Visualizza () strPath = Server.MapPath("delibere.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & strPath & ";adOpenKeyset" interrogazione = "select * from tDelibere order by Data desc, Numero desc" sql = interrogazione Set RS = Conn.Execute(sql) response.write("
") while not(RS.EOF) if (RS("Numero") <> "") then response.write("" & "Delibera: " & "" & RS("Numero") & "
") ' response.write(" - ") ' response.write("" & "Data: " & "" & RS("Data")) indirizzo = "" fine_indirizzo = "" response.write("") if (RS("Pubblicare") = True) then response.write(indirizzo & "") response.write("" & RS("Oggetto") & "") if (RS("Pubblicare") = True) then response.write(fine_indirizzo & "") response.write("
") response.write("" & "Seduta " & "" & RS("N_Seduta")) response.write("" & " del " & "" & RS("Data_Seduta")) response.write("" & " presieduta da " & "" & RS("Pres_Seduta")) if (RS("Link") <> "") then response.write("
DOCUMENTAZIONE") if RS("allegati") = 4 then response.write("
ALLEGATI:") response.write("
"&RS("allegato1")&"") response.write("
"&RS("allegato2")&"") response.write("
"&RS("allegato3")&"") response.write("
"&RS("allegato4")&"") end if if RS("allegati") = 3 then response.write("
ALLEGATI:") response.write("
"&RS("allegato1")&"") response.write("
"&RS("allegato2")&"") response.write("
"&RS("allegato3")&"") end if if RS("allegati") = 2 then response.write("
ALLEGATI:") response.write("
"&RS("allegato1")&"") response.write("
"&RS("allegato2")&"") end if if RS("allegati") = 1 then response.write("
ALLEGATO:") response.write("
"&RS("allegato1")&"") end if response.write("

") RS.MoveNext wend RS.Close 'set RS = nothing Conn.Close 'set Conn = nothing End Function %>
<% Visualizza() %>