%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim noticias__MMColParam
noticias__MMColParam = "1"
If (Request.QueryString("Clave") <> "") Then
noticias__MMColParam = Request.QueryString("Clave")
End If
%>
<%
Dim noticias
Dim noticias_cmd
Dim noticias_numRows
Set noticias_cmd = Server.CreateObject ("ADODB.Command")
noticias_cmd.ActiveConnection = MM_noticias_STRING
noticias_cmd.CommandText = "SELECT Clave, FechaPublicacion, TitularNoticia, SubtitularNoticia, TextoNoticia FROM Noticias WHERE Clave = ?"
noticias_cmd.Prepared = true
noticias_cmd.Parameters.Append noticias_cmd.CreateParameter("param1", 5, 1, -1, noticias__MMColParam) ' adDouble
Set noticias = noticias_cmd.Execute
noticias_numRows = 0
%>
Documento sin título
<%
noticias.Close()
Set noticias = Nothing
%>