Bizkaiko Eusko Pilota Federakuntza

Federación Vizcaina de Pelota Vasca

Campeonato Escolar - Campeonato Federados - Campeonato de Bizkaia de Clubes

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% const kc_afdb__Ruta_BD__Clubes = "../../../../data/pelota/clubes.mdb" const kc_afdb__Ruta_BD__CorteIngles2006 = "../../../../data/pelota/corteingles2006.mdb" const kc_afdb__Ruta_BD__Escolar = "../../../../data/pelota/escolar.mdb" const kc_afdb__Ruta_BD__Federados = "../../../../data/pelota/federados.mdb" const kc_afdb__Ruta_BD__Udaberri = "../../../../data/pelota/udaberri.mdb" function afdb_fvpv__Abrir_BD__Ruta_Relativa(cRuta) Call oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath(cRuta)) end function Response.CharSet = "utf-8" base=request.querystring("bas") oConn="" RS="" SQL="" Set oConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.Recordset") select case base case 1 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Clubes) titulo_cam="Campeonato de Bizkaia de clubes" case 2 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Escolar) titulo_cam="Campeonato Escolar" case 3 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Federados) titulo_cam="Campeonato Federados" case 4 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__CorteIngles2006) end select SQL="SELECT DISTINCT Jornada FROM Tantos WHERE jornada>0 ORDER BY jornada" rs.Open SQL,oConn miTablaJornadas=rs.getrows rs.Close set rs=nothing oConn.Close set oConn=nothing Set oConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.Recordset") select case base case 1 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Clubes) case 2 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Escolar) case 3 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Federados) case 4 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__CorteIngles2006) end select SQL="SELECT DISTINCT Especialidad FROM Equipos ORDER BY Especialidad" rs.Open SQL,oConn miTablaEspecialidades=rs.getrows rs.Close set rs=nothing oConn.Close set oConn=nothing Set oConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.Recordset") select case base case 1 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Clubes) case 2 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Escolar) case 3 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Federados) case 4 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__CorteIngles2006) end select SQL="SELECT DISTINCT Categoria FROM Equipos ORDER BY Categoria" rs.Open SQL,oConn miTablaCategorias=rs.getrows rs.Close set rs=nothing oConn.Close set oConn=nothing lajornada=request.form("jornada") laespecialidad=request.form("especialidad") elcampeonato=request.form("campeonato") lacategoria=request.form("categoria") elgrupo=request.form("grupo") estaimprimiendo=request.form("imprimido") response.write ""&titulo_cam&"

" %> <%if estaimprimiendo<>1 then%>
Especialidad:  Categoría:  Campeonato:  Grupo:  Jornada:  
<%end if%> <% haybusqueda=request.form("enviado") if haybusqueda="1" Then Set oConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.Recordset") select case base case 1 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Clubes) case 2 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Escolar) case 3 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Federados) case 4 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__CorteIngles2006) end Select SQL="SELECT DISTINCTROW Equipos.Equipo, Equipos_1.Equipo, Tantos.Tantos1, Tantos.Tantos2, Tantos.Jornada, Equipos.Especialidad, Equipos.Campeonato, Equipos.Categoria, Equipos.Grupo FROM (Tantos INNER JOIN Equipos ON Tantos.IDEquipo_1 = Equipos.IDEquipo) INNER JOIN Equipos AS Equipos_1 ON Tantos.IDEquipo_2 = Equipos_1.IDEquipo WHERE Equipos.Especialidad='"&laespecialidad&"' AND Equipos.Categoria='"&lacategoria&"' AND Tantos.Jornada="&lajornada&" AND Equipos.Campeonato='"&elcampeonato&"' AND Equipos.Grupo='"&elgrupo&"'" rs.Open SQL,oConn if rs.eof then nohay=1 rs.Close set rs=nothing oConn.Close set oConn=nothing else nohay=0 miTabla=rs.getrows rs.Close set rs=nothing oConn.Close set oConn=nothing a=0 b=1 c=2 d=3 e=4 f=5 g=6 h=7 i=8 end if Set oConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.Recordset") select case base case 1 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Clubes) case 2 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Escolar) case 3 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Federados) case 4 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__CorteIngles2006) end select SQL="SELECT Tantos.IDEquipo_2,Equipos.Equipo,Tantos.Tantos1,Tantos.Tantos2,Tantos.Puntos1,Tantos.Puntos2,Tantos.NoPresentado1,Tantos.NoPresentado2,Tantos.Jornada FROM Tantos INNER JOIN Equipos ON (Tantos.IDEquipo_2=Equipos.IDEquipo) WHERE Equipos.Especialidad='"&laespecialidad&"' AND Equipos.Categoria='"&lacategoria&"' AND Tantos.Jornada="&lajornada&" AND Equipos.Campeonato='"&elcampeonato&"' AND Equipos.Grupo='"&elgrupo&"' ORDER BY Equipos.Especialidad,Equipos.Categoria,Equipos.Grupo,Tantos.Jornada" rs.Open SQL,oConn if rs.eof then nohay=1 rs.Close set rs=nothing oConn.Close set oConn=nothing else nohay=0 miTabla2=rs.getrows rs.Close set rs=nothing oConn.Close set oConn=nothing end if%> <%if nohay=0 then%>
<%=laespecialidad&" - "&lacategoria&" - "&elcampeonato&" - Grupo "&elgrupo&" - Jornada "&lajornada%>
<%for i=0 to ubound(miTabla,2)%>
<%=miTabla(0,i)&" - "&miTabla(1,i)&" >> "&miTabla(2,i)&" - "&miTabla(3,i)&"
" %>
<%next%>
Clasificación
<% Set oConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.Recordset") select case base case 1 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Clubes) case 2 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Escolar) case 3 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Federados) case 4 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__CorteIngles2006) end select SQL="SELECT IdEquipo,Equipo FROM Equipos WHERE Especialidad='"&laespecialidad&"' AND Categoria='"&lacategoria&"' AND Grupo='"&elgrupo&"' ORDER BY IdEquipo" rs.Open SQL,oConn miTablaEquipos=rs.getrows rs.Close set rs=nothing oConn.Close set oConn=nothing Set oConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.Recordset") select case base case 1 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Clubes) case 2 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Escolar) case 3 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Federados) case 4 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__CorteIngles2006) end select SQL="SELECT DISTINCT Tantos.IDEquipo_1 FROM Tantos INNER JOIN Equipos ON (Tantos.IDEquipo_1=Equipos.IDEquipo) WHERE Equipos.Especialidad='"&laespecialidad&"' AND Equipos.Categoria='"&lacategoria&"' AND Equipos.Campeonato='"&elcampeonato&"' AND Equipos.Grupo='"&elgrupo&"'" rs.Open SQL,oConn miTablaClas=rs.getrows rs.Close set rs=nothing oConn.Close set oConn=nothing dim ganados(50) for i=0 to 50 ganados(i)=0 next dim perdidos(50) for i=0 to 50 perdidos(i)=0 next dim puntos(50) for i=0 to 50 puntos(i)=0 next Set oConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.Recordset") select case base case 1 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Clubes) case 2 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Escolar) case 3 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__Federados) case 4 Call afdb_fvpv__Abrir_BD__Ruta_Relativa(kc_afdb__Ruta_BD__CorteIngles2006) end select SQL="SELECT Tantos.IDEquipo_1, Tantos.IDEquipo_2, Tantos.Tantos1, Tantos.Tantos2, Tantos.Puntos1, Tantos.Puntos2, Tantos.Jornada FROM Tantos INNER JOIN Equipos ON (Tantos.IDEquipo_1=Equipos.IDEquipo) WHERE (Tantos.Jornada<="&lajornada&") AND (Equipos.Especialidad='"&laespecialidad&"' AND Equipos.Categoria='"&lacategoria&"' AND Equipos.Grupo='"&elgrupo&"') ORDER BY Tantos.Jornada,Tantos.IDEquipo_1" rs.Open SQL,oConn miTabla2=rs.GetRows equipo1=0 equipo2=1 r1=2 r2=3 puntos1=4 puntos2=5 rs.Close set rs=nothing oConn.Close set oConn=nothing for i=0 to ubound(miTablaClas,2) for j=0 to ubound(miTabla2,2) if miTablaClas(0,i)=miTabla2(equipo1,j) then if miTabla2(r1,j)>miTabla2(r2,j) then ganados(i)=ganados(i)+1 puntos(i)=puntos(i)+miTabla2(puntos1,j) end if if miTabla2(r1,j)miTabla2(r2,j) then perdidos(i)=perdidos(i)+1 puntos(i)=puntos(i)+miTabla2(puntos2,j) end if end if next next%> <% dim clas(20,4) %> <%for i=0 to ubound(miTablaClas,2)%> <%for j=0 to ubound(miTablaEquipos,2) if miTablaClas(0,i)=miTablaEquipos(0,j) then clas(i,0)=miTablaEquipos(1,j) next clas(i,1)=puntos(i) clas(i,2)=ganados(i)+perdidos(i) clas(i,3)=ganados(i) clas(i,4)=perdidos(i) %> <%next%> <%final=ubound(miTablaClas,2)%> <% Sub SwapRows(ary,row1,row2) Dim x,tempvar For x = 0 to Ubound(ary,2) tempvar = ary(row1,x) ary(row1,x) = ary(row2,x) ary(row2,x) = tempvar Next End Sub 'SwapRows Sub QuickSort(vec,loBound,hiBound,SortField) Dim pivot(),loSwap,hiSwap,temp,counter Redim pivot (Ubound(vec,2)) if hiBound - loBound = 1 then if vec(loBound,SortField) > vec(hiBound,SortField) then Call SwapRows(vec,hiBound,loBound) End If For counter = 0 to Ubound(vec,2) pivot(counter) = vec(int((loBound + hiBound) / 2),counter) vec(int((loBound + hiBound) / 2),counter) = vec(loBound,counter) vec(loBound,counter) = pivot(counter) Next loSwap = loBound + 1 hiSwap = hiBound do while loSwap < hiSwap and vec(loSwap,SortField) <= pivot(SortField) loSwap = loSwap + 1 wend while vec(hiSwap,SortField) > pivot(SortField) hiSwap = hiSwap - 1 wend if loSwap < hiSwap then Call SwapRows(vec,loSwap,hiSwap) loop while loSwap < hiSwap For counter = 0 to Ubound(vec,2) vec(loBound,counter) = vec(hiSwap,counter) vec(hiSwap,counter) = pivot(counter) Next if loBound < (hiSwap - 1) then Call QuickSort(vec,loBound,hiSwap-1,SortField) if hiSwap + 1 < hibound then Call QuickSort(vec,hiSwap+1,hiBound,SortField) End Sub 'QuickSort Sub PrintArray(vec,lo,hi,mark) Dim i,j%>
 
Puntos
Jugados
Ganados
Perdidos
<% Response.Write "
" For i = hi to lo step -1 Response.Write "
"& vec(i,0) & "
" For j = 1 to Ubound(vec,2) Response.Write "
"& vec(i,j) & "
" Next Response.Write "
" Next Response.Write "
" End Sub 'PrintArray Randomize Dim x(19,5),z,y Const col =1 For z = 0 to 19 For y = 0 to 5 x(z,y) = int(Rnd*1000) If (Rnd < 0.5) then x(z,y) = x(z,y)-1000 Next Next Call QuickSort(clas,0,19,col) Call PrintArray(clas,0,19,col) %> <%if estaimprimiendo<>1 then%>
 
<%end if%> <%end if%> <%end if%>