<%@ LANGUAGE="VBSCRIPT" %> <% Dim conexion Dim MySQL dim ct '** Get initial recordset pathtabla = Server.MapPath("\") + "\2014\verificaciones\basedatos\basedatos.mdb" Set conexion = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT * FROM inscripciones ORDER BY campo1" conexion.Open MySQL,("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & pathtabla ),3 %> Panel de Control

LISTA OFICIAL de INSCRITOS

<% while NOT conexion.EOF %> <% conexion.MoveNext %> <% wend%>
 Nº 
 Concursante 
 Nac. 
 CCAA 
 Piloto 
Copiloto
 Nac/CCAA 
 Marca 
 Modelo 
 Tipo
 Categoría 
 Trofeos 
 Pr 
 Jr 
 <%= conexion("campo1") %> 
  <%= conexion("campo2") %> 
 <%= conexion("campo8") %> 
  <%= conexion("campo9") %> <%= conexion("campo10") %> 
 <%= conexion("campo15") %> 
  <%= conexion("campo26") %> 
 <%= conexion("campo29") %> 
 <%= conexion("campo33") %> 
 <%= conexion("campo16") %> 
 <%= conexion("campo17") %> 
       <%= conexion("campo18") %> <%= conexion("campo19") %>
 <%= conexion("campo24") %> 
  <%= conexion("campo27") %> 
 <%= conexion("campo30") %> 
    
 <%= conexion("campo25") %> 


<% conexion.close set conexion=nothing %>