<%@LANGUAGE="VBSCRIPT"%> <% Dim news__MMColParam news__MMColParam = "1" If (Request.QueryString("ID") <> "") Then news__MMColParam = Request.QueryString("ID") End If %> <% Dim news Dim news_numRows Set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_conn_STRING news.Source = "SELECT * FROM news WHERE ID = " + Replace(news__MMColParam, "'", "''") + "" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 1 news.Open() news_numRows = 0 %> Documento senza titolo
"> <%=(news.Fields.Item("periodo").Value)%>
<%=(news.Fields.Item("titolo").Value)%>
<%if ((news.Fields.Item("foto").Value) <> "") then%> " alt=""> <%end if%> <%if ((news.Fields.Item("descrizione").Value) <> "") then%> <%=replace((news.Fields.Item("descrizione").Value),vbcrlf,"
")%> <%end if%>

[torna all'archivio]

 

<% news.Close() Set news = Nothing %>