confirmación de inscripciones

<% '***CODIGO ASP CUANDO ENTRAS EN LA PAGINA TRAS HACER SUBMIT. EL PARAMETRO SEGUNDA '***AL TENER VALOR INDICA QUE ES LA SEGUNDA VEZ, ES DECIR SE HAN RELLENADO LOS CRITERIOS Y '***SE HA HECHO SUBMIT if request("segunda")<>"" then AbreBase() 'Set dbConn1 = Server.CreateObject("ADODB.Connection") 'dbConn1.ConnectionString="DSN=EjemploBD.mdb" 'dbConn1.mode=3 'dbConn1.open 'dbConn1.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=c:\inetpub\vhosts\timerunners.es\httpdocs\mcorre\data\mcorreinternet.mdb" str="select apellidos, nombre,nacimiento,documento from madridcorreko where autori>'0' and autori<>'Error' " 'str1="select apellidos,nombre,nacimiento,documento from participantes where 1=1 " if request("nombre")<>"" then str=str & " and nombre like '%" & quitablancos(request("nombre")) & "%'" 'str1=str1 & " and nombre like '%" & quitablancos(request("nombre")) & "%'" end if if request("apellidos")<>"" then str=str & " and apellidos like '%" & quitablancos(request("apellidos")) & "%'" 'str1=str1 & " and apellidos like '%" & quitablancos(request("apellidos")) & "%'" end if if request("ano")<>"" then str=str & " and nacimiento=" & request("ano") 'str1=str1 & " and nacimiento=" & request("ano") end if 'response.write(str) 'response.write(str1) 'response.write(str2) set rs=dbconn.execute(str) 'set rs1=dbconn1.execute(str1) 'response.write("cuenta" & rs.recordcount) '*****SI NO HAY PERSONAS QUE SE AJUSTEN MUESTRO MENSAJE DE ERROR if rs.eof then %>

No hay resultados que se ajusten a los criterios de búsqueda.
Puede que algún dato de búsqueda haya sido incorrectamente introducido.
Si continúa sin aparecer en la relación de corredores, pngase en contacto con nosotros
a trav\E9s del 91 447 96 31 /41 o del e-mail inscripciones@mapoma.es

No results found.
You may have entered some field incorrectly.
If your name is still not on the list, please contact us:
Tel: +34 91 447 96 31 /41 e-mail: inscripciones@mapoma.es

Volver a confirmación / Return <% else '*****SI HAY PERSONAS QUE SE AJUSTAN AL CRITERIO DE BUSQUEDA hayrs=not rs.eof %> .

Los resultados de la búsqueda son los siguientes
Search results

<% if hayrs then 'response.write("hayrs and (not hayrs1)") do while not rs.eof %> <% rs.movenext loop end if %>

Nombre/Name

Apellidos/Surname

Año de nacimiento/
Year of birth

Comienzo DNI

<%=rs("Nombre")%>

<%=rs("Apellidos")%>

<%=rs("nacimiento")%>
<%=left(rs("documento"),2)%>

Volver a confirmación / Return

<% end if else '********AQUI COMIENZA EL CODIGO DEL FORMULARIO. SE PINTA LA PRIMERA VEZ QUE ENTRAS EN LA PAGINA, YA QUE '*** SEGUNDA=0 Function QuitaBlancos(str) 'deja solo un blanco entre palabras str = ucase(Replace(Trim(str), "'", "")) Do While InStr(str, " ") > 0 str = Replace(str, " ", " ") Loop QuitaBlancos = str End Function %>

Formulario de confirmación de inscripciones de Madrid corre por Madrid
Confirmation of inscriptions for Madrid corre por Madrid

Introduzca los datos por los que desea realizar la búsqueda(Año y Apellidos requeridos)
Enter searching fields (Year and Surname is always required)

<%end if%>