<%@LANGUAGE="VBSCRIPT"%> <% miaData = Now %> <% datauno = (Now - 120) %> <% datadue = (Now + 365) %> <% oggi = "" & Month(miaData) & "/" & Day(miaData) & "/" & Year(miaData) & "" %> <% datainizio = "" & Month(datauno) & "/" & Day(datauno) & "/" & Year(datauno) & "" %> <% datafine = "" & Month(datadue) & "/" & Day(datadue) & "/" & Year(datadue) & "" %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "#" & datainizio & "#" If (Request("MM_EmptyValue") <> "") Then Recordset1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset1__Datamassima Recordset1__Datamassima = "#" & oggi & "#" If (Request("MM_EmptyValue") <> "") Then Recordset1__Datamassima = Request("MM_EmptyValue") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_fsk1_STRING Recordset1.Source = "SELECT * FROM Eventi WHERE datafine >= " + Replace(Recordset1__MMColParam, "'", "''") + " AND datafine <= " + Replace(Recordset1__Datamassima, "'", "''") + " ORDER BY datafine DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2__MMColParam Recordset2__MMColParam = "#" & datafine & "#" If (Request("MM_EmptyValue") <> "") Then Recordset2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset2__Datamassima Recordset2__Datamassima = "#" & oggi & "#" If (Request("MM_EmptyValue") <> "") Then Recordset2__Datamassima = Request("MM_EmptyValue") End If %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_fsk1_STRING Recordset2.Source = "SELECT * FROM Eventi WHERE datafine > " + Replace(Recordset2__Datamassima, "'", "''") + " and datafine <= " + Replace(Recordset2__MMColParam, "'", "''") + " ORDER BY datafine ASC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat2__numRows %> Fondazione Smith Kline | Eventi |
Fondazione Smith Kline
  LA FONDAZIONE
    CARTA ETICA
    PUBBLICAZIONI
    EVENTI E ATTIVITA'
  - Calendario eventi
  - Archivio eventi
    GRUPPI DI LAVORO
    SITI PARTNER
 

Cerca nel sito


  <%=formatDateTIME( DATE(), vbLongDate )%> pagina corrente: Home Page | Eventi e attività |

Calendario prossimi eventi

Fondazione Smith Kline ha in programma i seguenti eventi per i prossimi mesi:
 
Prossimi Eventi
<% While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF)) %>
 " class="normale"><%=(Recordset2.Fields.Item("titolo").Value)%>
  dal: <%=(Recordset2.Fields.Item("datainizio").Value)%>
al: <%=(Recordset2.Fields.Item("datafine").Value)%>		    <%=(Recordset2.Fields.Item("citta").Value)%>
 <%=(Recordset2.Fields.Item("luogo").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset2.MoveNext() Wend %> <% If Recordset2.EOF And Recordset2.BOF Then %>

nessun evento programmato

<% End If ' end Recordset2.EOF And Recordset2.BOF %>
 

Eventi recenti ( ultimi 4 mesi )
 
<% While ((Repeat2__numRows <> 0) AND (NOT Recordset1.EOF)) %>
 " class="normale"><%=(Recordset1.Fields.Item("titolo").Value)%>
<% if (Recordset1.Fields.Item("datainizio").Value) <> "" then %> dal: <% end if %> <%=(Recordset1.Fields.Item("datainizio").Value)%>   <% if (Recordset1.Fields.Item("datainizio").Value) <> "" then %>
al: <% else %> data: <% end if %> <%=(Recordset1.Fields.Item("datafine").Value)%>
   <%=(Recordset1.Fields.Item("citta").Value)%>
<%=(Recordset1.Fields.Item("luogo").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Recordset1.MoveNext() Wend %> <% If Recordset1.EOF And Recordset1.BOF Then %> nessun evento programmato
<% End If ' end Recordset1.EOF And Recordset1.BOF %>

 

Visualizza tutti gli eventi dell'anno corrente [...]

  

 


 

 
 


 

 Pagina aggiornata il 24-ott-13
Fondazione Smith Kline - via Fleming, 2 - 37135 Verona ( Italia ) - p.iva 05894330157 - Tel: 335.477194 - info@fsk.it 
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>