<%@LANGUAGE="VBSCRIPT"%> <% Dim elenco_notizie Dim elenco_notizie_numRows Set elenco_notizie = Server.CreateObject("ADODB.Recordset") elenco_notizie.ActiveConnection = MM_scuolaimpresa_STRING elenco_notizie.Source = "SELECT * FROM notizie WHERE visibile = 'S' ORDER BY posizione ASC" elenco_notizie.CursorType = 0 elenco_notizie.CursorLocation = 2 elenco_notizie.LockType = 1 elenco_notizie.Open() %> <% Dim dati_seminario__MMColParam dati_seminario__MMColParam = "1" If (Request.QueryString("id") <> "") Then dati_seminario__MMColParam = Request.QueryString("id") End If %> <% Dim dati_seminario Dim dati_seminario_numRows Set dati_seminario = Server.CreateObject("ADODB.Recordset") dati_seminario.ActiveConnection = MM_scuolaimpresa_STRING dati_seminario.Source = "SELECT * FROM notizie WHERE id = " + Replace(dati_seminario__MMColParam, "'", "''") + "" dati_seminario.CursorType = 0 dati_seminario.CursorLocation = 2 dati_seminario.LockType = 1 dati_seminario.Open() dati_seminario_numRows = 0 %> <% Dim elenco_seminari__MMColParam elenco_seminari__MMColParam = "1" If (Request.QueryString("id") <> "") Then elenco_seminari__MMColParam = Request.QueryString("id") End If %> <% Dim elenco_seminari Dim elenco_seminari_numRows Set elenco_seminari = Server.CreateObject("ADODB.Recordset") elenco_seminari.ActiveConnection = MM_scuolaimpresa_STRING elenco_seminari.Source = "SELECT * FROM seminari WHERE id_notizie = " + Replace(elenco_seminari__MMColParam, "'", "''") + " AND visibile = 'S' ORDER BY id ASC" elenco_seminari.CursorType = 0 elenco_seminari.CursorLocation = 2 elenco_seminari.LockType = 1 elenco_seminari.Open() elenco_seminari_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 elenco_seminari_numRows = elenco_seminari_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 elenco_notizie_numRows = elenco_notizie_numRows + Repeat2__numRows %> ScuolaImpresa - <%=(dati_seminario.Fields.Item("titolo").Value)%>
<%=(dati_seminario.Fields.Item("titolo").Value)%>    
" alt="Seminari">

<%=(dati_seminario.Fields.Item("sottotitolo").Value)%>

<%=InserisciBR((dati_seminario.Fields.Item("descrizione").Value))%>

  <% While ((Repeat1__numRows <> 0) AND (NOT elenco_seminari.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 elenco_seminari.MoveNext() Wend %>
"><%=elenco_seminari.Fields.Item("data").Value%>
"><%=(elenco_seminari.Fields.Item("relatore").Value)%>
"><%=(elenco_seminari.Fields.Item("titolo").Value)%>
<%if (elenco_seminari.Fields.Item("elearning").Value="S") then%> Area riservata Formazione a Distanza <%end if%> <%if (elenco_seminari.Fields.Item("file_video").Value<>"") then%> ">Visualizza file video <%end if%> <%if (elenco_seminari.Fields.Item("file_audio").Value<>"") then%> ">Ascolta file audio <%end if%> <%if (elenco_seminari.Fields.Item("scheda_iscrizione").Value="S") then%> " class="testocolonna">Prenota un posto <%end if%>

 

Home Page

 

realizzazione web NAONIS.COM sas

 

<% dati_seminario.Close() Set dati_seminario = Nothing %> <% elenco_seminari.Close() Set elenco_seminari = Nothing %> <% elenco_notizie.Close() Set elenco_notizie = Nothing %>