Untitled Document

<%@LANGUAGE="VBSCRIPT"%> <% Dim Eventi__MMColParam Eventi__MMColParam = "I" If (Request("MM_EmptyValue") <> "") Then Eventi__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Eventi Dim Eventi_numRows Set Eventi = Server.CreateObject("ADODB.Recordset") Eventi.ActiveConnection = MM_Lucia_STRING Eventi.Source = "SELECT * FROM Eventi WHERE Lingua = 'E' ORDER BY strData DESC" Eventi.CursorType = 0 Eventi.CursorLocation = 2 Eventi.LockType = 1 Eventi.Open() Eventi_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Evemti_numRows = Evemti_numRows + Repeat1__numRows %> Untitled Document

Oncoming Events

La Scala remembered Lucia Valentini Terrani five years after she passed away by dedicating her the "Italiana in Algeri" by Rossini and publishing the night of the debut the book with her presences in the theater.

<% While ((Repeat1__numRows <> 0) AND (NOT Eventi.EOF)) %> <% Tmp1 = trim(Eventi.Fields.Item("Link1").Value) & trim(Eventi.Fields.Item("Link2").Value) & trim(Eventi.Fields.Item("Link3").Value) if len(tmp1)<> 0 then %> <%End IF%> <%If len(trim(Eventi.Fields.Item("EMail").Value))>0 then%> <%End If%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Eventi.MoveNext() Wend %>

. <%=(Eventi.Fields.Item("strData").Value)%> <%'strData1=Eventi.Fields.Item("strData").Value %> <% 'If strData1 <> "" then %> <% '=strData1 %> <% 'Else %> <%'="Date to assign" %> <%' End If %>	<%=(Eventi.Fields.Item("Titolo").Value)%>
	<%=(Eventi.Fields.Item("Evento").Value)%>
	><%=(Eventi.Fields.Item("Dlink1").Value)%> ><%=(Eventi.Fields.Item("Dlink2").Value)%> ><%=(Eventi.Fields.Item("Dlink3").Value)%>
	For informations, please contact:"><%=(Eventi.Fields.Item("EMail").Value)%>

<% Eventi.Close() Set Eventi = Nothing %>