<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rs_news__MMColParam
rs_news__MMColParam = "1"
If (Request.QueryString("Idnews") <> "") Then
rs_news__MMColParam = Request.QueryString("Idnews")
End If
%>
<%
Dim rs_news
Dim rs_news_cmd
Dim rs_news_numRows
Set rs_news_cmd = Server.CreateObject ("ADODB.Command")
rs_news_cmd.ActiveConnection = MM_max_STRING
rs_news_cmd.CommandText = "SELECT * FROM Notizie_new WHERE Idnews=?"
rs_news_cmd.Prepared = true
rs_news_cmd.Parameters.Append rs_news_cmd.CreateParameter("param1", 5, 1, -1, rs_news__MMColParam) ' adDouble
Set rs_news = rs_news_cmd.Execute
rs_news_numRows = 0
%>
Documento senza titolo
