%@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 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 = " + Replace(elenco_seminari__MMColParam, "'", "''") + "" elenco_seminari.CursorType = 0 elenco_seminari.CursorLocation = 2 elenco_seminari.LockType = 1 elenco_seminari.Open() elenco_seminari_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 elenco_notizie_numRows = elenco_notizie_numRows + Repeat2__numRows %>
ScuolaImpresaweb |
|
<%=(elenco_seminari.Fields.Item("relatore").Value)%> <%=(elenco_seminari.Fields.Item("titolo").Value)%>
<%=Testo_Data_Esteso(elenco_seminari.Fields.Item("data").Value)%> |
Modulo di prenotazione - ATTENZIONE...
|
||||||||||
|
Home Page | Chi siamo <%elenco_notizie.MoveFirst()%> <% While ((Repeat2__numRows <> 0) AND (NOT elenco_notizie.EOF)) %> | <% REM se titolo = Seminari allora va alla pagina dei seminari, altrimenti usa la normale pagina di dettaglio della notizia if (elenco_notizie.Fields.Item("titolo").Value="Seminari") then %> <%=(elenco_notizie.Fields.Item("titolo").Value)%> <% else%> "><%=(elenco_notizie.Fields.Item("titolo").Value)%> <% end if%> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 elenco_notizie.MoveNext() Wend %>
ScuolaImpresa
realizzazione web NAONIS.COM sas |
|||||||||||
<% elenco_seminari.Close() Set elenco_seminari = Nothing %> <% elenco_notizie.Close() Set elenco_notizie = Nothing %>