<% on error resume next dim cnn set cnn = Server.CreateObject("ADODB.Connection") cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("dbinscriptos.mdb")) If cnn.Errors.Count > 0 then if Err.number = "-2147467259" then Response.Redirect "../trabajando.asp" end if end if on error goto 0 dim strSql,rst strSql="Select * from tInscriptos Order by Apellido, nombre" SET rst=Server.CreateObject("ADODB.Recordset") SET rst = cnn.Execute (strSql) %> Maraton de la Bandera 2019 - Inscriptos

Inscriptos

<% While (Not rst.eof) response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") rst.movenext wend %>
Apellido y Nombre Documento Provincia Pais Distancia
" & rst("apellido") & " " & rst("nombre") & "" & left(rst("documento"),5)& "***" & rst("provincia") & "" & rst("pais") & "" & rst("distancia") & "k