<%@language=vbscript%> <% if request("selM") <> "" then where = "where DataM = " & request("selM") & " and DataA = " & request("selA") dovesiamo = "   Eventi " & mesi(request("selM")) & " " & request("selA") dataA = request("selA") dataM = request("selM") else dataA = year(now) dataM = month(now) end if set rsEventi = Server.CreateObject("Adodb.Recordset") rsEventi.Activeconnection = connTori rsEventi.Source = "Select * from tabEventi " & where & " order by DataG desc, DataM desc, DataA desc" rsEventi.Open() if not rsEventi.EOF or not rsEventi.BOF then dataA = rsEventi("DataA") dataM = rsEventi("DataM") else end if %>

Ricerca Eventi per data: <% response.write(dovesiamo) if Session("Loggaterrimo") = true then %> Aggiungi un evento <% end if %>

<% if not rsEventi.EOF or not rsEventi.BOF then while not rsEventi.EOF %>

<% = giorni(rsEventi("giorno")) & " " & rsEventi("DataG") & " " & mesi(rsEventi("DataM")) & " " & rsEventi("DataA") & ": " & rsEventi("Descrizione") %> -- " class = "menusx">Il Programma <% if Session("Loggaterrimo") = true then %> " class="include"> " class="include"> <% end if rsEventi.movenext wend end if if rsEventi.EOF and rsEventi.BOF then %>

Nessun evento inserito

<% end if rsEventi.CLose set rsEventi=nothing %>