<% 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 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("geg.mdb")) tsql= "SELECT * FROM corredor order by categoriatx ;" rs.Open tsql, oConn cont=0 cate=" " contcat=0 totcat=0 rs.movefirst %>

GRAN PREMIO BUFF SALOMON - VIII MARATÓ DE MUNTANYA DE LA MARINA ALTA 2006


<% //carga datos corredor rs.Close if queorden=1 then tsql= "SELECT * FROM corredor order by noms, cognoms ;" else if queorden=2 then rsql= "SELECT * FROM corredor order by club, noms, cognoms ;" else if queorden=3 then tsql= "SELECT * FROM corredor order by sexe, noms, cognoms ;" else if queorden=4 then tsql= "SELECT * FROM corredor order by ano, noms, cognoms;" else if queorden=5 then tsql= "SELECT * FROM corredor order by federacion, sexe, noms, cognoms ;" else if queorden=6 then tsql= "SELECT * FROM corredor order by dorsal ;" end if end if end if end if end if end if rs.Open tsql, oConn do until rs.eof %> <% rs.movenext loop rs.close set rs=nothing %>







DORSAL

NOMBRE Y APELLIDOS

CLUB DEPORTIVO

SEXO

AÑO

FEDERACION

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

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

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

<% IF rs.fields("SEXe") THEN %> FEMENINO <% ELSE %> MASCULINO <% END IF %>

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

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


<% else %>

NO TIENE PERMISO PARA VISITAR ESTA PAGINA!!!!

<%end if%>