<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<%
dim genere
genere = request.form("genere")
if genere = "" then genere = "salsa"
dim mese
mese = request.form("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 where genere like '%"&genere&"%' and mese like '%"&mese&"%' order by evento_id asc")
%>
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%>
