<% 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 Dim mes,anho,color mes = MonthName(month(now())) anho = year(now()) color=1 origen=Request.ServerVariables("HTTP_REFERER") if InStr(origen,"certo.asp") then mes=Request.Form("mes") anho=Request.Form("anho") end if %> <%numero_mes=fnumero_mes(mes)%> <%ultimo_dia=fultimo_dia(mes)%> <%ConsultaSQL="Select * From conciertos,grupos,salas Where (fecha between #"&numero_mes&"/1/"&anho&"# and #"&numero_mes&"/"&ultimo_dia&"/"&anho&"#) and (grupos.id_grupo=conciertos.id_grupo) and (salas.id_sala=conciertos.id_sala) Order by fecha,conciertos.id_sala"%> <%set RB=Conn.Execute(ConsultaSQL)%> <%'Si la consulta no es vacia se escriben los conciertos if not RB.eof then %> <%'Mientras haya conciertos se muestran Do While not RB.eof fechaCerto=RB("fecha") salaCerto=RB("nombre_sala") localidadCerto=RB("localidad") provinciaCerto=RB("provincia") precioCerto=RB("precio") pventaCerto=RB("puntos_venta") horaCerto=RB("hora") codlocal=RB("cod_local") linksala=RB("link_sala") 'Se alternan los estilos a mostrar if color=1 then color=0%> <%else color=1%> <%end if %> <%Loop %> <%else %> <%end if %>

Ver conciertos de otro mes: <% for i=1 to 12 nombreMes=MonthName(i) response.write(""&nombreMes&"") next %> <% for i=2000 to 2004 response.write(""&i&"") next %> Búsqueda avanzada
<%=(mes&" "&anho)%>
Fecha	Artista-Grupo	Lugar
<%=mostrar_fecha(fechaCerto)%>	<%imprimirAutor(RB)%> <%'Ahora miramos los conciertos de dos o mas grupos buscando los que 'sean en la misma zona, misma sala, misma fecha y MISMA HORA Do RB.Movenext salir=true if not RB.eof then if (RB("fecha")=fechaCerto) And (RB("localidad")=localidadCerto) And (RB("nombre_sala")=salaCerto) And (RB("hora")=horaCerto) then response.write(" ") imprimirAutor(RB) salir=false else salir=true end if end if Loop While not salir %>	<%'Comprobamos si la sala tiene link a la BBDD de locales if codlocal<>0 then ConsultaSQL="Select nombre_local,locales.zona,provincia From Locales,Zonas Where cod_local="&codlocal&" AND locales.zona=zonas.zona" set RL=Conn.Execute(ConsultaSQL) salaCerto=RL("nombre_local") localidadCerto=RL("zona") provinciaCerto=RL("provincia")%> <%=salaCerto%> <%else if linksala<>"" Then %> <%=salaCerto%> <%else %> <%=salaCerto%> <%end if %> <%end if %> <%if salaCerto<>"" Then %> <%end if %> <%'Comprobamos si la zona existe en la BBDD de zonas para hacer link%> <%ConsultaSQL="Select * From Zonas Where zona Like '"&localidadCerto&"'"%> <%set RZ=Conn.Execute(ConsultaSQL) %> <%if localidadCerto<>"" Then %> - <%if not RZ.eof then %> " target="_blank" class="enlace"> <%=localidadCerto%> <%else %> <%=localidadCerto%> <%end if %> (<%=provinciaCerto%>) - <%else %> - <%=provinciaCerto%> - <%end if %> <%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 %>
No se han encontrado conciertos en la BBDD de Movidagalega para las fechas indicadas
Copyright © 2002 - Movida Galega ® - Todos los derechos reservados. Web optimizada para resolución 800x600.