<% ' Set cn=Server.CreateObject("ADODB.Connection") ' cn.Open "DSN=DatosWebtopia" sql="SELECT referencia FROM Contador" Set rs=cn.Execute(sql) if rs("referencia")<>Date() then ' ************************* Cambio Automático Default Vacaciones dim anterior dim nuevo anterior=0 nuevo=0 sql="Select * FROM Vacaciones" Set rs=cn.Execute(sql) do until rs.eof if rs("activo")=True then anterior=rs("Id") rs.MoveNext if rs.eof then rs.MoveFirst end if nuevo=rs("Id") do until rs.eof rs.MoveNext loop else rs.MoveNext end if loop sql="UPDATE Vacaciones SET activo=True WHERE Id="&nuevo Set rs=cn.Execute(sql) sql="UPDATE Vacaciones SET activo=False WHERE Id="&anterior Set rs=cn.Execute(sql) ' ************************* Cambio Automático Default Artículos anterior=0 nuevo=0 sql="Select * FROM Articulos" Set rs=cn.Execute(sql) do until rs.eof if rs("activo")=True then anterior=rs("Id") rs.MoveNext if rs.eof then rs.MoveFirst end if nuevo=rs("Id") do until rs.eof rs.MoveNext loop else rs.MoveNext end if loop sql="UPDATE Articulos SET activo=True WHERE Id="&nuevo Set rs=cn.Execute(sql) sql="UPDATE Articulos SET activo=False WHERE Id="&anterior Set rs=cn.Execute(sql) ' ************************* Cambio Automático Default Chistes anterior=0 nuevo=0 sql="Select * FROM Chistes" Set rs=cn.Execute(sql) do until rs.eof if rs("activo")=True then anterior=rs("Id") rs.MoveNext if rs.eof then rs.MoveFirst end if nuevo=rs("Id") do until rs.eof rs.MoveNext loop else rs.MoveNext end if loop sql="UPDATE Chistes SET activo=True WHERE Id="&nuevo Set rs=cn.Execute(sql) sql="UPDATE Chistes SET activo=False WHERE Id="&anterior Set rs=cn.Execute(sql) ' ************************* Cambio Automático Default Citas anterior=0 nuevo=0 sql="Select * FROM Citas" Set rs=cn.Execute(sql) do until rs.eof if rs("activo")=True then anterior=rs("Id") rs.MoveNext if rs.eof then rs.MoveFirst end if nuevo=rs("Id") do until rs.eof rs.MoveNext loop else rs.MoveNext end if loop sql="UPDATE Citas SET activo=True WHERE Id="&nuevo Set rs=cn.Execute(sql) sql="UPDATE Citas SET activo=False WHERE Id="&anterior Set rs=cn.Execute(sql) ' ************************* sql="UPDATE Contador SET referencia='"&Date()&"'" Set rs=cn.Execute(sql) Response.Redirect("felicitacion.asp") end if ' ************************* Datos para Vacaciones LugarNombre="Sin lugar específico" LugarImagen="" LugarTexto="" sql="SELECT * FROM Vacaciones WHERE activo=True" Set rs=cn.Execute(sql) if not rs.eof then LugarNombre=rs("lugar") LugarImagen="imagenes/vacaciones/"&rs("Id") & ".jpg" LugarTexto=rs("caratula") end if ' ************************* Datos para Artículos de interés ArticuloNombre="Sin artículo específico" ArticuloImagen="" ArticuloTexto="" sql="SELECT * FROM Articulos WHERE activo=True" Set rs=cn.Execute(sql) if not rs.eof then ArticuloNumero=rs("Id") ArticuloNombre=rs("titulo") ArticuloImagen="imagenes/interes/"&rs("imagen") ArticuloTexto=rs("caratula") end if ' ************************* Datos para lista de Cumpleaños sql="SELECT * FROM Boletin WHERE CumpleMes=" & Month(Date()) & " AND CumpleDia=" & Day(Date()) Set rs=cn.Execute(sql) ListaCumple="" if not rs.eof then ListaCumple = "Hoy celebramos el cumpleaños de: " do while not rs.eof ListaCumple = ListaCumple & Propio(rs("Nombre"))&", " rs.MoveNext loop ListaCumple = ListaCumple & " ¡¡¡MUCHAS FELICIDADES!!!..." else ListaCumple="No tenemos cumpleaños registrados para hoy" end if %>
 
 
Página de Inicio Sala de Conversación (Chat) Libro de Visitas Mi cuenta
Guía Turística Chapultepec
Galería
Actividades Mapas Servicios Clasificados Contacto
Diversión
Cultura
Sitios de Interés
Museos y Galerías
Hoteles
Restaurantes
Bares
Antros
Agencias de Viaje
Renta de Autos
Casas de Cambio

Cartelera de la Semana

<% sql = "" sql = sql & "SELECT cartelera.id, cartelera.titulo, cartelera.descripcion, cartelera.detalle, cartelera.imagen, " sql = sql & " cartelera.inicia, cartelera.termina, cartelera.lugar, cartelera.liga, cartelera.precio, " sql = sql & " contenido.nombre FROM cartelera, contenido " sql = sql & " WHERE cartelera.termina >= #" & inicia & "# " sql = sql & " AND cartelera.termina <= #" & termina & " 23:59:59# " sql = sql & " AND NOT (cartelera.inicia >= #" & inicia & "# " sql = sql & " AND cartelera.termina <= #" & termina & " 23:59:59#) " sql = sql & " AND DateValue(cartelera.inicia)<>DateValue(cartelera.termina) " sql = sql & " AND contenido.Id=cartelera.lugar " sql = sql & " ORDER BY contenido.nombre, cartelera.titulo;" Set rs=cn.Execute(sql) if not rs.eof then hay_termina=True end if if hay_termina then %>
¡NO TE LO PIERDAS!... TERMINA ESTA SEMANA
<% fila=1 ancho=100 cuadros=4 publicados=0 do until rs.eof if publicados=cuadros then fila=fila+1 response.Write("") publicados=0 end if %> <% publicados=publicados+1 rs.MoveNext loop if fila<>1 then for n=publicados+1 to cuadros response.Write("") next end if %>
 

<% end if %> <% sql = "" sql = sql & "SELECT cartelera.id, cartelera.titulo, cartelera.descripcion, cartelera.detalle, cartelera.imagen, " sql = sql & " cartelera.inicia, cartelera.termina, cartelera.lugar, cartelera.liga, cartelera.precio, " sql = sql & " contenido.nombre FROM cartelera, contenido " sql = sql & " WHERE cartelera.inicia >= #" & inicia & "# " sql = sql & " AND cartelera.termina <= #" & termina & " 23:59:59# " 'sql = sql & " AND DateValue(cartelera.inicia)<>DateValue(cartelera.termina) " sql = sql & " AND contenido.Id=cartelera.lugar " sql = sql & " ORDER BY contenido.nombre, cartelera.titulo;" Set rs=cn.Execute(sql) if not rs.eof then hay_esta_semana=True end if if hay_esta_semana then %>
SOLO ESTA SEMANA
<% fila=1 ancho=100 cuadros=4 publicados=0 do until rs.eof if publicados=cuadros then fila=fila+1 response.Write("") publicados=0 end if %> <% publicados=publicados+1 rs.MoveNext loop if fila<>1 then for n=publicados+1 to cuadros response.Write("") next end if %>
 

<% end if %> <% sql = "" sql = sql & "SELECT cartelera.id, cartelera.titulo, cartelera.descripcion, cartelera.detalle, cartelera.imagen, " sql = sql & " cartelera.inicia, cartelera.termina, cartelera.lugar, cartelera.liga, cartelera.precio, " sql = sql & " contenido.nombre FROM cartelera, contenido " sql = sql & " WHERE cartelera.inicia >= #" & inicia & "# " sql = sql & " AND cartelera.inicia <= #" & termina & " 23:59:59# " sql = sql & " AND NOT (cartelera.inicia >= #" & inicia & "# " sql = sql & " AND cartelera.termina <= #" & termina & " 23:59:59#) " sql = sql & " AND DateValue(cartelera.inicia)<>DateValue(cartelera.termina) " sql = sql & " AND contenido.Id=cartelera.lugar " sql = sql & " ORDER BY contenido.nombre, cartelera.titulo;" Set rs=cn.Execute(sql) if not rs.eof then hay_comienza=True end if 'do until rs.eof ' Response.Write(""&rs("titulo")&" - "&rs("inicia")&" - "&rs("termina")&"
") ' rs.MoveNext 'loop if hay_comienza then %>
ESTA SEMANA COMIENZA...
<% fila=1 ancho=100 cuadros=4 publicados=0 do until rs.eof if publicados=cuadros then fila=fila+1 response.Write("") publicados=0 end if %> <% publicados=publicados+1 rs.MoveNext loop if fila<>1 then for n=publicados+1 to cuadros response.Write("") next end if %>
 

<% end if %> <% sql = "" sql = sql & "SELECT cartelera.id, cartelera.titulo, cartelera.descripcion, cartelera.detalle, cartelera.imagen, " sql = sql & " cartelera.inicia, cartelera.termina, cartelera.lugar, cartelera.liga, cartelera.precio, cartelera.visitas, " sql = sql & " contenido.nombre FROM cartelera, contenido " sql = sql & " WHERE ((cartelera.inicia < #" & inicia & "# " sql = sql & " AND cartelera.termina > #" & termina & " 23:59:59#) " sql = sql & " OR cartelera.inicia > #" & termina & " 23:59:59#) " sql = sql & " AND NOT (" sql = sql & "cartelera.inicia >= #" & inicia & "# " sql = sql & " AND cartelera.termina <= #" & termina & " 23:59:59#) " sql = sql & " AND contenido.Id=cartelera.lugar " sql = sql & " ORDER BY cartelera.visitas, cartelera.inicia;" cad_carrousel="" Set rs=cn.Execute(sql) do until rs.eof cad_carrousel=cad_carrousel & """"&"http://www.chapultepec.com.mx/imagenes/" & rs("imagen") & """" & "," & """" & "http://www.chapultepec.com.mx/agenda_ver.asp?Evento=" & rs("Id") & """" ' Response.Write(""""&"http://www.chapultepec.com.mx/imagenes/" & rs("imagen") & """" & "," & """" & "http://www.chapultepec.com.mx/agenda_ver.asp?Evento=" & rs("Id") & """") rs.MoveNext if not rs.eof then cad_carrousel=cad_carrousel & "," ' Response.Write(",
") end if loop Set rs=cn.Execute(sql) if not rs.eof then hay_proximamente=True end if if hay_proximamente then %>
Continuan o se presentan Próximamente
<% ' *** ' *** aqui empieza el codigo para el carrousel ' *** %> <% ' *** ' *** aqui termina el codigo para el carrousel ' *** %>

<% end if %>

Busca una Actividad o Evento

Entre
 " size="11" maxlength="10"> y " size="11" maxlength="10">
Lugar
Actividad
Niños Adolescentes Adultos 3ra. Edad

Busca con Búsqueda Google
en nuestro sitio
www chapultepec
<%' if Session("CorreoValido") = "webtopia@webtopia.com.mx" then %> Visitas a la Guía Turística Chapultepec: <%= FormatNumber(Application("ChapulinCount"),0) %> <%' end if %>

Casa del Lago Juan José Arreola


Galería de Fotos