"> |
|
<%=RB("txt_intro")%> |
|
<%linkweb=RB("link_web")
If linkweb<>"" Then%>
http://<%=RB("link_web")%> |
|
<%End If%>
<%musica=RB("txt_musica")
If musica<>"" Then%>
<%=musica%> |
<%End If%>
|
<%especial=RB("txt_especial")
If especial<>"" Then%>
<%=especial%> |
|
<%End If%>
<%horario=RB("txt_horario")
If horario<>"" Then%>
<%=horario%> |
|
<%End If%>
<%dircalle=RB("dir_calle")
telefono1=RB("telefono1")
telefono2=RB("telefono2")
If ((dircalle<>"") OR (telefono1<>"")) Then%>
<%response.write(dircalle&" "&RB("dir_num")&". ")
If telefono1<>"" Then%>
Tfn:
<%response.write(telefono1)
If telefono2<>"" Then
%>
y
<%response.write(telefono2)
End If
End If%> |
<%End If%>
<%descuento=RB("vale_descuento")
If (descuento<>"") Then%>
Consigue
aquí descuento en tu consumición |
<%End If%>
<%'Imprimir fiestas y conciertos%>
<%Dim mes,anho,color,dia
mes = MonthName(month(now()))
anho = year(now())
dia = Day(now())
color=1%>
<%numero_mes=fnumero_mes(mes)%>
<%sig_mes=fsig_mes(numero_mes)%>
<%sig_anho=fsig_anho(numero_mes,anho)%>
<%sig_dia_mes=fsig_dia_mes(dia,numero_mes)%>
<%ConsultaSQL="Select * From conciertos,grupos,salas Where (fecha between #"&numero_mes&"/"&dia&"/"&anho&"# and #"&sig_mes&"/"&sig_dia_mes&"/"&sig_anho&"#) and (grupos.id_grupo=conciertos.id_grupo) and (salas.id_sala=conciertos.id_sala) and (salas.cod_local="&codigo&") Order by fecha,conciertos.id_sala"%>
<%set RC=Conn.Execute(ConsultaSQL)%>
<%ConsultaSQL="Select * From Fiestas Where (fecha between #"&numero_mes&"/"&dia&"/"&anho&"# and #"&sig_mes&"/"&sig_dia_mes&"/"&sig_anho&"#) and (id_local="&codigo&")Order by fecha,fiesta"%>
<%set RF=Conn.Execute(ConsultaSQL)%>
<%'Si la consulta no es vacia se escriben los conciertos%>
<%if not RC.eof then %>
Próximos
Conciertos: |
Fecha |
Artista-Grupo |
<%'Mientras haya conciertos se muestran%>
<%Do While not RC.eof%>
<%fechaCerto=RC("fecha")%>
<%precioCerto=RC("precio")%>
<%pventaCerto=RC("puntos_venta")%>
<%horaCerto=RC("hora")%>
<%'Se alternan los estilos a mostrar%>
<%if color=1 then %>
<%color=0%>
<%else %>
<%color=1%>
<%end if %>
<%=mostrar_fecha(fechaCerto)%> |
<%imprimirAutor(RC)%> <%'Ahora miramos los conciertos de dos o mas grupos buscando los que%> <%'sean en la misma sala y misma fecha%> <%Do %> <%RC.Movenext %> <%salir=true %> <%if not RC.eof then %> <%if (RC("fecha")=fechaCerto) then %> <%response.write(" ")%> <%imprimirAutor(RC)%> <%salir=false %> <%else %> <%salir=true %> <%end if %> <%end if %> <%Loop While not salir %> <%if ((horaCerto<>"") OR (precioCerto<>"") OR (pventaCerto<>"")) Then %>
<%if (horaCerto<>"") then%>
<%=("Hora: "&horaCerto&" h. ")%>
<%end if %>
<%if (precioCerto<>"") then%>
<%=("Precio: "&precioCerto&". ")%>
<%end if %>
<%if (pventaCerto<>"") then%>
<%=("Venta Entradas: "&pventaCerto&".")%>
<%end if %>
<%end if %> |
<%Loop %>
|
|
<%end if %>
<%'Si la consulta no es vacia se escriben las fiestas%>
<%if not RF.eof then %>
|
Próximas
Fiestas: |
Fecha |
Fiesta |
<%'Mientras haya FIESTAS se muestran%>
<%Do While not RF.eof %>
<%fechaFiesta=RF("fecha")%>
<%nombreFiesta=RF("fiesta")%>
<%'Se alternan los estilos a mostrar%>
<%if color=1 then %>
<%color=0%>
<%else %>
<%color=1%>
<%end if %>
<%=mostrar_fecha(fechaFiesta)%> |
<%=nombreFiesta%> <%if RF("texto_fiesta")<>"" then %> <%=" - "&RF("texto_fiesta")&" -"%> <%end if %> <%if (RF("texto_link")<>"") AND (RF("link")<>"") then %> <%=" - "&RF("texto_link")&" -"%> <%else %> <%if (RF("texto_fiesta")="") AND (RF("link")<>"") then %> <%=" - "&RF("link")&" -"%> <%end if %> <%end if %> |
<%RF.movenext %>
<%Loop %>
|
<%end if %>
|
<%If RB("url_mapa")<>"" Then%> " class="textonormal" target="_blank">
Ver mapa <%End If%> |
|
<%origen=Request.ServerVariables("HTTP_REFERER")
If InStr(origen,"zona.asp")<>0 Then%>
Volver
|
<%End If%>
|
Copyright © 2001 Movida
Galega ® Todos los derechos reservados.
Web optimizado para resolución 800x600. |
|
|
|