<%response.buffer=True : response.expires=0 session.lcid=1040 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 & "" 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& "" rsz.movenext loop End If eventi = tmp tmp = "" %> Agriturismo Bricco San Giovanni - Eventi e momenti di incontro <%=PageTitle%> - cucina del territorio, 11 stanze, produzione vino barbera

<% If id>0 then sql = "select * from Eventi where id=" & id Set rs = Application("conn").execute(sql) If Not rs.eof then Do While Not rs.eof If rs("foto") & ""<>"" Then Img = "" rs.movenext Loop response.write Img End if End if%>
EVENTI

<%=eventi%>