<%@LANGUAGE="VBSCRIPT"%>

<% Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM Evento ORDER BY ID ASC" rs.Open SQL, Conn Do While Not rs.EOF %> <% if rs("Foto1") <> "" OR rs("Foto2") <> "" OR rs("Foto3") <> "" OR rs("Foto4") <> "" OR rs("Foto5") <> "" Then %> <% End if rs.MoveNext Loop rs.Close() Set rs = Nothing %>     <%= rs("Evento") %> <%= ACapo(rs("Descrizione")) %> <% 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 %>