<%@LANGUAGE="VBSCRIPT"%> <% Dim rassegna__MMColParam rassegna__MMColParam = "1" If (Request.QueryString("IDrassegna") <> "") Then rassegna__MMColParam = Request.QueryString("IDrassegna") End If %> <% Dim rassegna Dim rassegna_cmd Dim rassegna_numRows Set rassegna_cmd = Server.CreateObject ("ADODB.Command") rassegna_cmd.ActiveConnection = MM_amici_STRING rassegna_cmd.CommandText = "SELECT * FROM rassegnastampa WHERE IDrassegna = ?" rassegna_cmd.Prepared = true rassegna_cmd.Parameters.Append rassegna_cmd.CreateParameter("param1", 5, 1, -1, rassegna__MMColParam) ' adDouble Set rassegna = rassegna_cmd.Execute rassegna_numRows = 0 %> Disabili mentali: amici senza limiti

Torna indietro

 

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

 

<%=(rassegna.Fields.Item("sottotitlolo").Value)%>

 

<%=(rassegna.Fields.Item("testata").Value)%> - <%=(rassegna.Fields.Item("data").Value)%>

 

<%=(rassegna.Fields.Item("testo1").Value)%>

 

<%=(rassegna.Fields.Item("testo2").Value)%>

 

<%=(rassegna.Fields.Item("testo3").Value)%>

 

<%=(rassegna.Fields.Item("testo4").Value)%>

 

<%=(rassegna.Fields.Item("testo5").Value)%>

 

<%=(rassegna.Fields.Item("testo6").Value)%>

 

<%=(rassegna.Fields.Item("testo7").Value)%>

 

<%=(rassegna.Fields.Item("testo8").Value)%>

 

<%=(rassegna.Fields.Item("testo9").Value)%>

 

<%=(rassegna.Fields.Item("Autore").Value)%>

Hai stampato una pagina del sito www.santegidio.org

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