%@LANGUAGE="VBSCRIPT"%> <% Dim elenco_notizie__MMColParam elenco_notizie__MMColParam = "S" If (Request("MM_EmptyValue") <> "") Then elenco_notizie__MMColParam = Request("MM_EmptyValue") End If %> <% Dim elenco_notizie Dim elenco_notizie_numRows Set elenco_notizie = Server.CreateObject("ADODB.Recordset") elenco_notizie.ActiveConnection = MM_itiskennedy_STRING elenco_notizie.Source = "SELECT * FROM notizie WHERE visibile = '" + Replace(elenco_notizie__MMColParam, "'", "''") + "' 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_itiskennedy_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 %>
Itiskennedyidee.
<%=(elenco_seminari.Fields.Item("relatore").Value)%> <%=(elenco_seminari.Fields.Item("titolo").Value)%> <%=Testo_Data_Esteso(elenco_seminari.Fields.Item("data").Value)%> |
Modulo di prenotazione | ||
|
Home Page <%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 %>
realizzazione web NAONIS.COM sas |
|||
<% elenco_seminari.Close() Set elenco_seminari = Nothing %>