%@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 |
<%file = elenco_seminari.Fields.Item("file_immagine1").Value
if (file <> "") then %>
<% end if%> <%file = elenco_seminari.Fields.Item("file_immagine2").Value if (file <> "") then %>
<% end if%> <%file = elenco_seminari.Fields.Item("file_immagine3").Value if (file <> "") then %>
<% end if%> <%file = elenco_seminari.Fields.Item("file_immagine4").Value if (file <> "") then %>
<% end if%> <%file = elenco_seminari.Fields.Item("file_immagine5").Value if (file <> "") then %>
<% end if%>
|
|
||||||||||||||
|
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 %>