<%
Dim conexion
Dim MySQL
dim ct
'** Get initial recordset
Set conexion = Server.CreateObject("ADODB.Recordset")
MySQL = "SELECT * FROM tabla1 ORDER BY campo1"
conexion.Open MySQL,("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/verificaciones/basedatos/basedatos.mdb")),3 %>
<%=conexion.recordcount%> Inscripciones
Nº
CONCURSANTE
PILOTO
COPILOTO
VEHICULO
C.C.
GR.
CL.
<% dim tr
tr = 1 %>
<% while NOT conexion.EOF %>
<% if tr = 1 then %>
<% tr = 2 %>
<% else %>
<% tr = 1
end if %>
<%= conexion("campo1") %>
<%= conexion("campo2") %>
<%= conexion("campo8") %>
<%= conexion("campo14") %>
<%= conexion("campo20") %>
<%= conexion("campo21") %>
<%= conexion("campo25") %>
<%= conexion("campo26") %>
<% conexion.MoveNext %>
<% wend%>
<%
conexion.close
set conexion=nothing
%>