<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("id") <> "") Then Recordset1__MMColParam = Request.QueryString("id") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_fsk1_STRING Recordset1.Source = "SELECT * FROM Eventi WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2__MMColParam Recordset2__MMColParam = "1" If (Request.QueryString("id") <> "") Then Recordset2__MMColParam = Request.QueryString("id") End If %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_fsk1_STRING Recordset2.Source = "SELECT * FROM Allegati WHERE id_evento = " + Replace(Recordset2__MMColParam, "'", "''") + " AND (cat is null OR cat = 0)" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Recordset3__MMColParam Recordset3__MMColParam = "1" If (Request.QueryString("id") <> "") Then Recordset3__MMColParam = Request.QueryString("id") End If %> <% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_fsk1_STRING Recordset3.Source = "SELECT id FROM Eventi WHERE id > " + Replace(Recordset3__MMColParam, "'", "''") + "" Recordset3.CursorType = 0 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 %> <% Dim Recordset_count1 Dim Recordset_count1_numRows Set Recordset_count1 = Server.CreateObject("ADODB.Recordset") Recordset_count1.ActiveConnection = MM_fsk1_STRING Recordset_count1.Source = "SELECT COUNT(*) AS conteggio FROM Allegati WHERE id_evento = " + Replace(Recordset2__MMColParam, "'", "''") + " AND cat = 1" Recordset_count1.CursorType = 0 Recordset_count1.CursorLocation = 2 Recordset_count1.LockType = 1 Recordset_count1.Open() Recordset_count1_numRows = 0 %> <% Dim Recordset_count2 Dim Recordset_count2_numRows Set Recordset_count2 = Server.CreateObject("ADODB.Recordset") Recordset_count2.ActiveConnection = MM_fsk1_STRING Recordset_count2.Source = "SELECT COUNT(*) AS conteggio FROM Allegati WHERE id_evento = " + Replace(Recordset2__MMColParam, "'", "''") + " AND cat = 2" Recordset_count2.CursorType = 0 Recordset_count2.CursorLocation = 2 Recordset_count2.LockType = 1 Recordset_count2.Open() Recordset_count2_numRows = 0 %> <% Dim Recordset4__MMColParam Recordset4__MMColParam = "1" If (Request.QueryString("id") <> "") Then Recordset4__MMColParam = Request.QueryString("id") End If %> <% Dim Recordset4 Dim Recordset4_numRows Set Recordset4 = Server.CreateObject("ADODB.Recordset") Recordset4.ActiveConnection = MM_fsk1_STRING Recordset4.Source = "SELECT id FROM Eventi WHERE id < " + Replace(Recordset4__MMColParam, "'", "''") + " ORDER BY id DESC" Recordset4.CursorType = 0 Recordset4.CursorLocation = 2 Recordset4.LockType = 1 Recordset4.Open() Recordset4_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__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à | Schede Dettagliate |

Scheda dettagliata evento - <%=(Recordset1.Fields.Item("tipo_evento").Value)%>

.gif" alt="<%=(Recordset1.Fields.Item("tipo_evento").Value)%>" hspace="3" border="1" align="middle" />
 <%=(Recordset1.Fields.Item("titolo").Value)%>
<% if (Recordset1.Fields.Item("datainizio").Value) <> "" then %> <% end if %>
dal:
  <%=(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("luogo").Value)%>
<%=(Recordset1.Fields.Item("indirizzo").Value)%>
<%=(Recordset1.Fields.Item("citta").Value)%>
<% While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF)) %> <%=(Recordset2.Fields.Item("descrizione").Value)%>
" target="_blank" class="normalesottolineatosempre">Scarica il File
<%=(Recordset2.Fields.Item("tipo").Value)%> | <%=(Recordset2.Fields.Item("dimensione").Value)%>
   
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset2.MoveNext() Wend %>
<% If Recordset2.EOF And Recordset2.BOF Then %> Nessun allegato disponibile. <% End If ' end Recordset2.EOF And Recordset2.BOF %>


&type=1" class="normale"> Materiali da consultare (<%=(Recordset_count1.Fields.Item("conteggio").Value)%> documenti)
&type=2" class="normale"> Relazioni presentate (<%=(Recordset_count2.Fields.Item("conteggio").Value)%> documenti)
Descrizione dell'evento:
<%=(Recordset1.Fields.Item("altro").Value)%>

" target="_blank" class="normalesottolineatosempre"><%=(Recordset1.Fields.Item("titolo_link").Value)%>
<% If Not Recordset4.EOF Or Not Recordset4.BOF Then %> " class="normale"> evento precedente <% End If ' end Not Recordset4.EOF Or NOT Recordset4.BOF %>
<% If Not Recordset3.EOF Or Not Recordset3.BOF Then %> " class="normale"> evento successivo <% End If ' end Not Recordset3.EOF Or NOT Recordset3.BOF %>

 
 




Fondazione Smith Kline - via Fleming, 2 - 37135 Verona ( Italia ) - p.iva 05894330157 - Tel: 335.477194 - info@fsk.it 
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset4.Close() Set Recordset4 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% Recordset3.Close() Set Recordset3 = Nothing %> <% Recordset_count1.Close() Set Recordset_count1 = Nothing %> <% Recordset_count2.Close() Set Recordset_count2 = Nothing %>