%@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 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||