<% Dim oConn,rs,oConn1,rd Dim PaginaActual Dim PaginasTotales Dim TamPagina dim c1,c2,c3,c4 dim t1,t2,t3,t4 dim vnom ,vape ,vlic ,vpas ,vclu ,vano ,vcor ,vsex ,vc1,vc2,vc3,vc4, tipo_op dim queorden, tsql,quecarrera dim cont dim cate dim contcat, totcat dim sale, ts dim retira, tret dim fuera, tf queorden=request.querystring("orden") quecarrera=request.querystring("carrera") if queorden>0 and queorden<101 then set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oconn.Provider="Microsoft.Jet.OLEDB.4.0" oconn.Open(Server.Mappath("femecv.mdb")) tsql= "SELECT * FROM corredor where (i" & quecarrera & "=-1) and (supervisor=0) order by categoriatx ;" rs.Open tsql, oConn cont=0 cate=" " contcat=0 totcat=0 tf=0 ts=0 tret=0 if not (rs.bof and rs.eof) then rs.movefirst if quecarrera=1 then %>

CAMPEONATO DE LIGA DE LA COMUNITAT VALENCIANA 2008 – 1ª ELDA

<%else if quecarrera=2 then %>

CAMPEONATO DE LIGA DE LA COMUNITAT VALENCIANA 2008 – 1ª LA VALL D'UIXO

<%else if quecarrera=3 then %>

CAMPEONATO DE LIGA DE LA COMUNITAT VALENCIANA 2008 – 1ª CASTELLON

<%else if quecarrera=4 then %>

CAMPEONATO ABSOLUTO DE LA COMUNITAT VALENCIANA 2008 – 1ª BUSSOT

<%end if end if end if end if %>
<%do until rs.eof if cate<>rs("categoriatx") then if cate<>" " then %> <% end if cate=rs("categoriatx") contcat=1 totcat=totcat +1 sale=0 retira=0 fuera=0 else contcat=contcat + 1 totcat=totcat+1 end if if rs.fields("sale" & quecarrera)=-1 then sale=sale+1 ts=ts+1 if rs.fields("r" & quecarrera)=1 then retira=retira+1 tret=tret+1 else if rs.fields("r" & quecarrera)=3 then fuera=fuera+1 tf=tf+1 end if end if end if rs.movenext loop if cate<>" " then %> <% end if%>

INSCRITOS POR CATEGORIA

inscritos en la categoria: <%=cate %>

<%=contcat%>

Salen: <%=sale %>

Retiran: <%=retira%>

Fuera Tiempo: <%=fuera%>

inscritos en la categoria: <%=cate %>

<%=contcat%>

Salen: <%=sale %>

Retiran: <%=retira%>

Fuera Tiempo: <%=fuera%>

Nš total inscritos

<%=totcat%>

<%=ts%>

<%=tret%>

<%=tf%>


<% //carga datos corredor rs.Close if queorden=1 then tsql= "SELECT * FROM corredor where (i" & quecarrera & "=-1) and (sale" & quecarrera & "=-1) and (supervisor=0) order by categoria=1 or categoria=5 , r" & quecarrera & " , t" & quecarrera & " + pe" & quecarrera & ", noms, cognoms ;" else tsql= "SELECT * FROM corredor where (i" & quecarrera & "=-1) and (sale" & quecarrera & "=-1) and (supervisor=0) order by categoriatx, r" & quecarrera & " , t" & quecarrera & " + pe" & quecarrera & " , noms, cognoms ;" end if rs.Open tsql, oConn dim ps dim tt dim tr cate="" do until rs.eof if queorden=1 then if rs.fields("categoria")=1 or rs.fields("categoria")=5 then tr= not (cate="JUVENILES") cate="JUVENILES" else tr= not (cate="GENERAL") cate="GENERAL" end if else tr=(rs.fields("categoriatx")<>cate) cate=rs.fields("categoriatx") end if if tr then ps=1 %> <% end if %> <% rs.movenext loop rs.close set rs=nothing %>

<% = cate %>

PUESTO

DORSAL

CORREDOR

TIEMPO

PENALIZA.

TIEMPO TOTAL

CLUB

<%=ps%>

<% ps=ps+1%>

<%=rs.fields("dorsal") %>

<%=rs.fields("cognoms") & ", " & rs.fields("noms") %>

<%=rs.fields("t" & quecarrera)%>

<%=rs.fields("pe" & quecarrera)%>

 <% if rs.fields("r" & quecarrera)=0 then tt=rs.fields("t" & quecarrera ) + rs.fields("pe" & quecarrera ) else if rs.fields("r" & quecarrera)=1 then tt="Retirado" else if rs.fields("r" & quecarrera)=3 then tt="Fuera Tiempo" end if end if end if %>

<%=tt %>

<%=rs.fields("club")%>


<% else %>

NO TIENE PERMISO PARA VISITAR ESTA PAGINA!!!!

<%end if end if%>