<%@LANGUAGE="VBSCRIPT"%> <% Dim elenco_notizie__MMColParam elenco_notizie__MMColParam = "1" If (Request.QueryString("id") <> "") Then elenco_notizie__MMColParam = Request.QueryString("id") 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 id = " + Replace(elenco_notizie__MMColParam, "'", "''") + "" elenco_notizie.CursorType = 0 elenco_notizie.CursorLocation = 2 elenco_notizie.LockType = 1 elenco_notizie.Open() elenco_notizie_numRows = 0 %> <% Dim elenco_notizie2__MMColParam elenco_notizie2__MMColParam = "S" If (Request("MM_EmptyValue") <> "") Then elenco_notizie2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim elenco_notizie2 Dim elenco_notizie2_numRows Set elenco_notizie2 = Server.CreateObject("ADODB.Recordset") elenco_notizie2.ActiveConnection = MM_itiskennedy_STRING elenco_notizie2.Source = "SELECT * FROM notizie WHERE visibile = '" + Replace(elenco_notizie2__MMColParam, "'", "''") + "' ORDER BY posizione ASC" elenco_notizie2.CursorType = 0 elenco_notizie2.CursorLocation = 2 elenco_notizie2.LockType = 1 elenco_notizie2.Open() elenco_notizie2_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 elenco_notizie2_numRows = elenco_notizie2_numRows + Repeat2__numRows %> Itiskennedyidee.

Itiskennedyidee.

">

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

 

 

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

<%=(elenco_notizie.Fields.Item("testo").Value)%>

 

Home Page <% While ((Repeat2__numRows <> 0) AND (NOT elenco_notizie2.EOF)) %> | <% REM se titolo = Seminari allora va alla pagina dei seminari, altrimenti usa la normale pagina di dettaglio della notizia if (elenco_notizie2.Fields.Item("titolo").Value="Seminari") then %> <%=(elenco_notizie2.Fields.Item("titolo").Value)%> <% else%> "><%=(elenco_notizie2.Fields.Item("titolo").Value)%> <% end if%> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 elenco_notizie2.MoveNext() Wend %>

 

realizzazione web NAONIS.COM sas

 

<% elenco_notizie.Close() Set elenco_notizie = Nothing %> <% elenco_notizie2.Close() Set elenco_notizie2 = Nothing %>