<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim noticia__MMColParam
noticia__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
noticia__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim noticia
Dim noticia_cmd
Dim noticia_numRows
Set noticia_cmd = Server.CreateObject ("ADODB.Command")
noticia_cmd.ActiveConnection = MM_Loja_STRING
noticia_cmd.CommandText = "SELECT * FROM noticias WHERE ID = ?"
noticia_cmd.Prepared = true
noticia_cmd.Parameters.Append noticia_cmd.CreateParameter("param1", 5, 1, -1, noticia__MMColParam) ' adDouble
Set noticia = noticia_cmd.Execute
noticia_numRows = 0
%>
Imprimir "<%=(noticia.Fields.Item("Titulo").Value)%>"
