Volver al Menu Principal
Inscripciones
Pulsa aqui para imprimir esta hoja
<% 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

<% dim tr tr = 1 %> <% while NOT conexion.EOF %> <% if tr = 1 then %> <% tr = 2 %> <% else %> <% tr = 1 end if %> <% conexion.MoveNext %> <% wend%> <% conexion.close set conexion=nothing %>
CONCURSANTE
PILOTO COPILOTO VEHICULO C.C. GR. CL.
<%= conexion("campo1") %>
<%= conexion("campo2") %> <%= conexion("campo8") %> <%= conexion("campo14") %>  <%= conexion("campo20") %>  <%= conexion("campo21") %> <%= conexion("campo25") %> <%= conexion("campo26") %>

www.llanesnet.com - Diseño EXO Llanes