<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Lugar=Request.QueryString("Mapa")
if Request.QueryString("Lugar")="" then
Response.Redirect("index.asp")
end if
Titulo=""
Contenido=""
Liga=""
Fuente=""
sql="SELECT * FROM Contenido WHERE Id=" & Lugar
Set rs=cn.Execute(sql)
if not rs.eof then
Titulo=rs("Nombre")
Imagen=rs("Imagen")
Contenido=rs("Contenido")
Liga=rs("Liga")
Mapa=rs("Mapa")
Fuente=rs("Fuente")
Direccion=rs("Direccion")
Telefono=rs("Telefono")
Costo=rs("Costo")
Horario=rs("Horario")
Hits=rs("Visitas")
if trim(Hits)="" then
Hits=0
end if
if Contenido<>"" then
Contenido=Replace(Contenido,chr(13)," ")
end if
if Direccion<>"" then
Direccion=Replace(Direccion,chr(13)," ")
end if
if Costo<>"" then
Costo=Replace(Costo,chr(13)," ")
end if
if Horario<>"" then
Horario=Replace(Horario,chr(13)," ")
end if
end if
%>
Chapultepec - Mapa de localización de <%= Titulo%>
