<% pagina = "resultados.asp" tipo = request.querystring("categoria") etapa = request.querystring("etapa") if tipo = "super" then response.Redirect("resultados_super.asp?categoria="&tipo&"&etapa="&etapa&"") end if if etapa = "semi" then response.Redirect("resultados_semi.asp?categoria="&tipo&"&etapa="&etapa&"") end if if etapa = "final" then response.Redirect("resultados_final.asp?categoria="&tipo&"&etapa="&etapa&"") end if if etapa = "resp" then response.Redirect("resultados_repescagem.asp?categoria="&tipo&"&etapa="&etapa&"") end if if tipo = empty then tipo = "leve" end if if etapa = empty then etapa = "class" end if Set Conn2 = Server.CreateObject("ADODB.Connection") Conn2.Open "DBQ=" & Server.MapPath("backoffice/resultados.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}" '-------------- LEVE -------------- Set rs1= Server.CreateObject("ADODB.Recordset") 'SQL1 = "SELECT * FROM tb_pilotos WHERE categoria = '"&tipo&"' AND PTclass <> NULL order by PTclass DESC, Desempate1 DESC, Desempate2 DESC" SQL1 = "SELECT * FROM tb_pilotos WHERE categoria = '"&tipo&"' ORDER BY Desempate1" rs1.Open SQL1 , Conn2 , 3 , 3 %> RESULTADOS - COPA BRASIL KART INDOOR 2017
 
<%if tipo <> empty then%>
<% N = 1 do while not rs1.eof %>
<%=N%>º
 <%=Replace(rs1("nomeexibicao"), "
", " ")%>
.jpg" width="22" height="15">
 <%=rs1("grupo")%>
<%=rs1("PTclass")%>
pts
CLASSIFICATÓRIA 1
 Bateria:
<%=rs1("BA")%> 
<% If IsNull(rs1("PNA")) Then%> <%=rs1("PTA")%> <%else%> <%=(rs1("PTA"))- ((rs1("PNA"))*3)%> <%end if%>
pts
Pos. Final.
<%=rs1("PA")%> 
 AdvertÊncia:
<% If IsNull(rs1("PNA")) Then%> - <%else%> <%=rs1("PNA")%> <%end if%>  
CLASSIFICATÓRIA 2
 Bateria:
<%=rs1("BB")%> 
<% If IsNull(rs1("PNB")) Then%> <%=rs1("PTB")%> <%else%> <%=(rs1("PTB"))- ((rs1("PNB"))*3)%> <%end if%>
pts
Pos. Final.
<%=rs1("PB")%> 
  AdvertÊncia:
<% If IsNull(rs1("PNB")) Then%> - <%else%> <%=rs1("PNB")%> <%end if%>  
CLASSIFICATÓRIA 3
 Bateria:
<%=rs1("BC")%> 
<% If IsNull(rs1("PNC")) Then%> <%=rs1("PTC")%> <%else%> <%=(rs1("PTC"))- ((rs1("PNC")*3))%> <%end if%>
pts
Pos. Final.
<%=rs1("PC")%> 
 AdvertÊncia:
<% If IsNull(rs1("PNC")) Then%> - <%else%> <%=rs1("PNC")%> <%end if%>  

<% rs1.movenext N = N+1 loop %>

 


<%end if%>