Campionato Regionale Enduro Abruzzo-Molise
Numeri fissi 2006
 

<% =cosa %>

<% 'On error resume next Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "tesserati" Set RS = Conn.Execute("{Call NumeriFissi}") %>
<% conta=1 classeInUso="Z" %> <% Do While Not RS.EOF %> <% if classeInUso <> rs("Categoria") then %> <% conta=1 classeInUso=rs("Categoria") %> <% end if %> <% if rs("Stampo") then %> <% conta=conta+1 RS.MoveNext Loop Conn.Close %>
<% if Rs("Categoria")="A" then scrivo="50 codice"%> <% if Rs("Categoria")="B" then scrivo="125 2t"%> <% if Rs("Categoria")="C" then scrivo="250 2t"%> <% if Rs("Categoria")="D" then scrivo="250 4t"%> <% if Rs("Categoria")="E" then scrivo="450 4t"%> <% if Rs("Categoria")="F" then scrivo="oltre 450 4t"%> <% if Rs("Categoria")="Y" then scrivo="Promo 2t"%> <% if Rs("Categoria")="Q" then scrivo="Promo 4t"%> <% =scrivo %>
Num. Pilota

M.C.

 Moto
<%=RS("NumeroGara")%> <% else %> <% end if %> <%= RS("CognomeNome")%> <%=RS("MotoClub")%> <%=RS("Moto")%>

Evidenziati i piloti 'affiliati' apediesel.it