<%
Session("Autenticato")="KO"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Eda.mdb")
Set rsAS = Server.CreateObject("ADODB.Recordset")
sqlAS="select * from AnnoScolastico where corrente=yes"
rsAS.Open sqlAS, cn, 3, 3
annoscolastico="Settembre " & rsAS("Inizio") & " - Luglio " & rsAS("Fine")
rsAS.Close
set rsAS=Nothing
cn.Close
set cn=Nothing
%>
