| <%dim objconn , objrs
Set objConn= Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
dim Query
Query = "select * FROM spettacolo where evento_id="& Sevento_id
Set objRS = objconn.execute(Query)
dim nazione
nazione= objrs("nazione")
dim mese
mese= objrs("mese")
dim genere
genere= objrs("genere")%> |
<%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%> |
 |
|
|
<% response.Write objrs("autore")%>
|
<%
dim saudio
saudio = objrs("audio")
if saudio = false then
response.write("")
else
response.write ("Ascolta audio ")
End if
%> |
|
|
|
<% response.write " ![]() " %>
|
<% response.Write objrs("testo") %> |
|