%@LANGUAGE="VBSCRIPT"%> <% Dim documenti__MMColParam documenti__MMColParam = "1" If (Request.QueryString("IdRecord") <> "") Then documenti__MMColParam = Request.QueryString("IdRecord") End If %> <% Dim documenti Dim documenti_cmd Dim documenti_numRows Set documenti_cmd = Server.CreateObject ("ADODB.Command") documenti_cmd.ActiveConnection = MM_amici_STRING documenti_cmd.CommandText = "SELECT * FROM documenti WHERE IDdocumenti = ?" documenti_cmd.Prepared = true documenti_cmd.Parameters.Append documenti_cmd.CreateParameter("param1", 5, 1, -1, documenti__MMColParam) ' adDouble Set documenti = documenti_cmd.Execute documenti_numRows = 0 %>
<%=(documenti.Fields.Item("testo1").Value)%>
<%=(documenti.Fields.Item("testo2").Value)%>
<%=(documenti.Fields.Item("testo3").Value)%>
<%=(documenti.Fields.Item("testo4").Value)%>
<%=(documenti.Fields.Item("testo5").Value)%>
<%=(documenti.Fields.Item("testo6").Value)%>
<%=(documenti.Fields.Item("testo7").Value)%>
<%=(documenti.Fields.Item("testo8").Value)%>
<%=(documenti.Fields.Item("testo9").Value)%>
<%=(documenti.Fields.Item("testo10").Value)%>