<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<%
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 video_s = true order by evento_id desc")
%>
Festival Latino Americando - 2007
Streaming Video
<%If objrs.BOF Then %>
Al momento non È disponibile nessun video .
<%Else%>
<%If Not objrs.BOF Then%>
<%
Do while NOT objrs.eof
%>
<% response.Write 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%>
