|
|
<%
'Dim Mes(12)
'Mes(1)="enero"
'Mes(2)="febrero"
'Mes(3)="marzo"
'Mes(4)="abril"
'Mes(5)="mayo"
'Mes(6)="junio"
'Mes(7)="julio"
'Mes(8)="agosto"
'Mes(9)="septiembre"
'Mes(10)="octubre"
'Mes(11)="noviembre"
'Mes(12)="diciembre"
%>
Conoce las opciones que Chapultepec te ofrece esta semana |
|
¡No te lo pierdas!... Esto es lo que termina esta 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
%>
<%
fila=1
ancho=100
cuadros=3
publicados=0
do until rs.eof
if publicados=cuadros then
fila=fila+1
response.Write(" | ")
publicados=0
end if
%>
">" alt="<%= rs("titulo")%>" width="<%= ancho%>" border="0">
<%= rs("titulo")%> <%=rs("nombre")%>
|
<%
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_termina=True
end if
if hay_termina then
%>
<%
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
%>
">" alt="<%= rs("titulo")%>" width="<%= ancho%>" border="0">
<%= rs("titulo")%>
<%=rs("nombre")%> |
<%
publicados=publicados+1
rs.MoveNext
loop
if fila<>1 then
for n=publicados+1 to cuadros
response.Write(" | ")
next
end if
%>
|
<% end if %>
Lo que inició recientemente
|
<%
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 >= #" & inicia2 & "# "
sql = sql & " AND cartelera.inicia <= #" & termina & " 23:59:59# "
sql = sql & " AND NOT (cartelera.inicia >= #" & inicia2 & "# "
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
%>
<%
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
%>
">" alt="<%= rs("titulo")%>" width="<%= ancho%>" border="0">
<%= rs("titulo")%>
<%=rs("nombre")%> |
<%
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 DISTINCT cartelera.id as numevento, 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, TipoActividad.Actividad "
sql = sql & " FROM cartelera, contenido, TipoActividad "
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 & " AND TipoActividad.Clave=cartelera.Actividad "
'sql = sql & " ORDER BY cartelera.visitas, cartelera.inicia;"
sql = sql & " ORDER BY cartelera.titulo"
'sql = sql & " ORDER BY cartelera.inicia;"
'Response.Write(sql&" ")
continuan=""
Set rs=cn.Execute(sql)
do while not rs.eof
if DateValue(rs("inicia")) > DateValue(termina) then
continuan = continuan & "" & rs("titulo") & ". "&rs("nombre")&" [" & rs("Actividad") & "] "
else
continuan = continuan & "" & rs("titulo") & ". "&rs("nombre")&" [" & rs("Actividad") & "] "
end if
rs.MoveNext
loop
%>
<%
'sql = "SELECT Nombre, CumpleMes, CumpleDia FROM Boletin WHERE DateValue(CumpleMes&"""/"""&CumpleDia&"""/"""&Year(Now())) >= #" & inicia & "# AND DateValue(CumpleMes&"""/"""&CumpleDia&"""/"""&Year(Now())) <= #" & termina & " 23:59:59#) ORDER BY cartelera.titulo"
sql= "SELECT Boletin.Nombre FROM Boletin WHERE (((Year(Now()) & Right(""00"" & [CumpleMes],2) & Right(""00"" & [CumpleDia],2)) Between """&year(inicia)&right("00"&month(inicia),2)&right("00"&day(inicia),2)&""" And """&year(termina)&right("00"&month(termina),2)&right("00"&day(termina),2)&"""))"
sql=sql&"ORDER BY Boletin.Nombre;"
'Response.Write(sql&" ")
cumplen=""
Set rs=cn.Execute(sql)
do while not rs.eof
cumplen = cumplen & trim(Propio(rs("Nombre"))) & ", "
rs.MoveNext
loop
%>
AQUÍ TE PRESENTAMOS MÁS OPCIONES |
|
|
<%
ResTit=""
ResIma=""
ResDes=""
sql= "SELECT * FROM Contenido WHERE Categoria='re' AND Indice AND Imagen<>'spacer.gif' AND Imagen<>'' AND Imagen is not null "
Set rs=cn.Execute(sql)
if not rs.eof then
ResId = rs("Id")
ResTit = rs("Nombre")
ResIma = rs("Imagen")
ResDes = rs("Caratula")
end if
BarsTit=""
BarIma=""
BarDes=""
sql= "SELECT * FROM Contenido WHERE Categoria='ba' AND Indice AND Imagen<>'spacer.gif' AND Imagen<>'' AND Imagen is not null "
Set rs=cn.Execute(sql)
if not rs.eof then
BarId = rs("Id")
BarTit = rs("Nombre")
BarIma = rs("Imagen")
BarDes = rs("Caratula")
end if
NocTit=""
NocIma=""
NocDes=""
sql= "SELECT * FROM Contenido WHERE Categoria='an' AND Indice AND Imagen<>'spacer.gif' AND Imagen<>'' AND Imagen is not null "
Set rs=cn.Execute(sql)
if not rs.eof then
NocId = rs("Id")
NocTit = rs("Nombre")
NocIma = rs("Imagen")
NocDes = rs("Caratula")
end if
%>
|
Restaurantes |
|
Bares y Cantinas |
|
Vida Nocturna |
|
<%= ResTit%> |
<%= ResDes%> |
|
|
|
<%= BarTit%> |
<%= BarDes%> |
|
|
|
<%= NocTit%> |
<%= NocDes%> |
|
|
|
|
Te invitamos a revisar nuestra Directiva de Privacidad para conocer
las
políticas que seguimos para la protección de tu información.
Si en algún momento deseas dejar de recibir nuentro boletín, solicita tu baja aquí
|
|
|
| |
|