<%
Fecha=Request.QueryString("Fecha")
'Set cn=Server.CreateObject("ADODB.Connection")
'cn.Open "DSN=SAC"
sql="SELECT * FROM Noticias WHERE Fecha=#" & Fecha & "#"
Set rs=cn.Execute(sql)
if not rs.eof then
Titulo=rs("Titulo")
Noticia=rs("Noticia")
Codigo=rs("Codigo")
Activa=rs("Activa")
end if
cn.Close
%>
Registro de Noticias
