%@LANGUAGE="VBSCRIPT"%>
Perle colorate atelier : opere, corsi, libri, arazzi : Venezia
<% Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM Evento ORDER BY ID ASC" rs.Open SQL, Conn Do While Not rs.EOF %>
<%= rs("Evento") %>
<%= ACapo(rs("Descrizione")) %>
<% if rs("Foto1") <> "" OR rs("Foto2") <> "" OR rs("Foto3") <> "" OR rs("Foto4") <> "" OR rs("Foto5") <> "" Then %>
<% if rs("Foto1") <> "" Then %>
')">
" alt="Foto evento" border="0" class="Eventi_img">
<% End if if rs("Foto2") <> "" Then %>
')">
" alt="Foto evento" border="0" class="Eventi_img">
<% End if if rs("Foto3") <> "" Then %>
')">
" alt="Foto evento" border="0" class="Eventi_img">
<% End if if rs("Foto4") <> "" Then %>
')">
" alt="Foto evento" border="0" class="Eventi_img">
<% End if if rs("Foto5") <> "" Then %>
')">
" alt="Foto evento" border="0" class="Eventi_img">
<% End if %>
<% End if rs.MoveNext Loop rs.Close() Set rs = Nothing %>