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 = 'I' ORDER BY ID 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

Eventi

La Scala Ha commemorato Lucia Valentini Terrani a cinque anni dalla sua scomparsa dedicandole la rappresentazione dell'Italiana in Algeri di Rossini e pubblicando la sera della prima il volume con le sue presenze nel celebre teatro.

<% 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 %> <%' If strData1 <> "" then %> <%'=Day(strData1) & "/" & Month(strData1) & "/" & Year(strData1) %> <% 'End If %> <%' strData1=Eventi.Fields.Item("Data").Value %>	<%=(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)%>
	Per informazioni scrivere a:"><%=(Eventi.Fields.Item("EMail").Value)%>

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