<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<%
dim mese
mese = request.querystring("mese")
dim objconn, objrs
Set objConn= Server.CreateObject("adodb.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../cgi-bin/programma2007.mdb")
Set objRS = server.CreateObject("ADODB.Recordset")
set objRS = objConn.execute ("SELECT * FROM spettacolo INNER JOIN calendario ON spettacolo.evento_id = calendario.evento_id where calendario.mese='"&mese&"' order by calendario.idcode")
%>
Festival Latino Americando - 2006 - Artigianato
<%If objrs.BOF Then %>
Nessuna corrispondenza .
<%Else%>
<%If Not objrs.BOF Then%>
<%
Do while NOT objrs.eof
%>
<% response.Write objrs("giorno")%>
<%response.Write objrs("data")%>
<%response.Write mese%>
- ore 21.30
<%
dim sevent
sevent= objrs("specialevent")
Select Case sevent
case true
response.write (" ")
case else
response.write("")
End Select%>
")
case else
response.write("")
End Select%>
