<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<%
dim nazione
nazione = request.QueryString("nazione")
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 nazione='"&nazione&"' order by evento_id desc")
dim mese
mese = objRS("mese")
%>
Festival Latino Americando - 2006 - Artigianato
Artisti provenienti dal <%=nazione%>
<%
Do while NOT objrs.eof
%>
<%=objrs("giorno")%> <%= objrs("data")%> <%= objrs("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%>