<% 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") 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")) cont=0 cate=" " contcat=0 totcat=0 tf=0 ts=0 tret=0 %>

CAMPEONATO DE LIGA DE LA COMUNITAT VALENCIANA 2008


<% //carga datos corredor if queorden=1 then tsql= "SELECT * FROM corredor where (supervisor=0) and (acaba>0) and (puntua_femecv=-1) order by categoria=1 or categoria=5 , 3 - acaba , acumulado, noms, cognoms ;" else tsql= "SELECT * FROM corredor where (supervisor=0) and (acaba>0) and (puntua_femecv=-1) order by categoriatx, 3 - acaba,acumulado, 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

ELDA

LA VALL D'UIXO

CASTELLON

TIEMPO TOTAL

CLUB

<%=ps%>

<% ps=ps+1%>

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

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

<%=rs.fields("t1") + rs.fields("pe1")%>

<%=rs.fields("t2") + rs.fields("pe2") %>

<%=rs.fields("t3") + rs.fields("pe3") %>

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

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


<% else %>

NO TIENE PERMISO PARA VISITAR ESTA PAGINA!!!!

<%end if%>