%response.buffer=True : response.expires=0
session.lcid=1053
Id = request("id")
sql = "Select * from eventi where id=" & id
Set rsz = Application("conn").execute(sql)
If Not rsz.eof Then
Do While Not rsz.eof
Lnk = ""
If rsz("link") & ""<>"" Then Lnk = "
" & rsz("link") & ".
"
'appo = lnk
k=0
Dim app
app = Split(rsz("link"), " ")
For i = LBound(app) To UBound(app)
If InStr(1, LCase(app(i)),"href=")>0 Then
k = i
app(i) = Left(app(i),Len(app(i))-4)
app(i) = Left(app(i), InstrRev(app(i),">"))
End if
next
TitleUrl = "" & rsz("titolo") & ""
If k > 0 Then
TitleUrl = ""
End if
tmp = tmp & " "
rsz.movenext
loop
End If
eventi = tmp
tmp = ""
%>
"
tmp = tmp & ""&TitleUrl&""
PageTitle = rsz("titolo")
If rsz("dal")&""<>"" Then tmp = tmp & " - dal: " & rsz("dal") & " al: " & rsz("al")
tmp = tmp & "
"
tmp = tmp & Replace(rsz("descr"),vbcrlf,"") & "
"
tmp = tmp & Lnk
If rsz("indirizzo") & ""<>"" Then tmp = tmp & "
" & Replace(rsz("indirizzo"), vbcrlf,"
") & "
"
tmp = tmp& "