<% Sub imprimirAutor(RB) response.write(RB("nombre_grupo")) 'Buscamos los links del grupo si existen y los mostramos 'segun existan solo el link o link y texto li=RB("link_info") ti=RB("texto_info") lw=RB("link_web") tw=RB("texto_web") 'primero para la información de la siguiente forma: 'si existen texto y link se saca el texto con el link correspondiente 'si existe solo el link se saca el texto y el link iguales 'si solo existe texto se saca el texto sin link if (li<>"") or (ti<>"") or (lw<>"") or (tw<>"") then response.write("
") end if if (li<>"") and (ti<>"") then response.write("- "&ti&" -") else if (li<>"") then response.write("- "&li&" -") end if if (ti<>"") then response.write("- "&ti&" -") end if end if 'Despues para la pagina web if lw<>"" then response.write("- ") if tw<>"" then response.write(""&tw&" ") else response.write(""&lw&" ") end if response.write(" -") end if end sub %> <% codigo=Request.Querystring("local") ConsultaSQL="Select * From Locales Where cod_local Like ('"&codigo&"')" set RB=Conn.Execute(ConsultaSQL) 'Comprobamos que el local exista if not RB.eof then zona=RB("zona") consulta2SQL="Select provincia From Zonas Where zona Like ('"&zona&"')" set RP=Conn.Execute(Consulta2SQL) url_im=obtener_url(RP("provincia"),RB("zona")) nombre_foto RB("im_local"),url_im,foto1,foto2,foto3,foto4,foto1m,foto2m,foto3m,foto4m %>
<%=RB("nombre_local")%>
www.movidagalega.com
<%linkweb=RB("link_web") If linkweb<>"" Then%> <%End If%> <%musica=RB("txt_musica") If musica<>"" Then%> <%End If%> <%especial=RB("txt_especial") If especial<>"" Then%> <%End If%> <%horario=RB("txt_horario") If horario<>"" Then%> <%End If%> <%dircalle=RB("dir_calle") telefono1=RB("telefono1") telefono2=RB("telefono2") If ((dircalle<>"") OR (telefono1<>"")) Then%> <%End If%> <%descuento=RB("vale_descuento") If (descuento<>"") Then%> <%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 %> <%end if %> <%'Si la consulta no es vacia se escriben las fiestas%> <%if not RF.eof then %> <%end if %> <%origen=Request.ServerVariables("HTTP_REFERER") If InStr(origen,"zona.asp")<>0 Then%> <%End If%>
">

<%=RB("txt_intro")%>

http://<%=RB("link_web")%>

<%=musica%>

<%=especial%>

<%=horario%>

<%response.write(dircalle&" "&RB("dir_num")&". ") If telefono1<>"" Then%> Tfn: <%response.write(telefono1) If telefono2<>"" Then %> y <%response.write(telefono2) End If End If%>
Consigue aquí descuento en tu consumición
<%'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 %> <%Loop %>
Próximos Conciertos:
Fecha Artista-Grupo
<%=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 %>
 
<%'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 %> <%RF.movenext %> <%Loop %>
Próximas Fiestas:
Fecha Fiesta
<%=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 %>
 
<%If RB("url_mapa")<>"" Then%> " class="textonormal" target="_blank"> Ver mapa <%End If%>
 
Volver
 
 
 
 
<%else %> <%end if %>