<% basedatos = Server.MapPath("..\..\data\montnegre2009.mdb") SQLtxt3="Select * from Inscritos Order by Primer_apellido,Segundo_apellido,Nombre" set rs3 = CreateObject("ADODB.Recordset") rs3.Open SQLtxt3, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & basedatos & ";" do While not rs3.EOF %> <% rs3.MoveNext Loop rs3.Close %>

Nom	Població	Nr. d’inscripció	Pagat
<%=rs3("Primer_apellido")%> <%=rs3("Segundo_apellido")%>, <%=rs3("Nombre")%>	<%=rs3("Poblacion")%>	2009 - <%=rs3("Dorsal")%>	<%=rs3("Pagado")%>