%@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),"
|
||||||||||||||||||||||||||||||||||||
Directiva de Privacidad | Aviso Legal |