<%@ LANGUAGE="VBSCRIPT" %>
<%
call top_2 ("eventi", "Eventi internazionali", "..")
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set oServer = Server.CreateObject("ADODB.Connection")
oServer.Open strDb1
SQL = "SELECT distinct anno FROM eventi2 order by anno desc"
%>
<%
set oRs=oServer.execute(SQL)
while not oRs.eof
anno = oRs("anno")
%>
<%=anno%> |
<%
SQL = "SELECT * FROM eventi2 where anno="&anno&" order by data desc"
set oRs2=oServer.execute(SQL)
while not oRs2.eof
id = oRs2("id")
data = oRs2("giorno")&""
while left(data,1)=" "
data = right(data,len(data)-1)
wend
if data="" then data = format_date(oRs2("data"))
nome = oRs2("nome")
localita = oRs2("localita")
%>
| <%=data%> |
<%=nome%> |
<%=localita%> |
<%
oRs2.moveNext
wend
ors.movenext
wend
%>
<% call bottom_page ("..", false) %>