<%
Fecha=Request.QueryString("Fecha")
if Fecha="" or (not isDate(Fecha))then
Response.Redirect("index.asp")
end if
'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")
Visitas=rs("Visitas")
Visitas=Visitas+1
sql="UPDATE Noticias SET Visitas=" & Visitas & " WHERE Fecha=#" & Fecha & "#"
' response.Write(sql)
Set rs=cn.Execute(sql)
else
Response.Redirect("index.asp")
end if
cn.Close
Codigo=Replace(Codigo,chr(13)," ")
%>
Guía Turística Chapultepec - <%= Titulo%>
