Conforme |
Nombre |
Corro
Electrónico |
Carné |
Condición |
Fecha deposito (dd/mm/aaaa) |
<%
Sql= "SELECT cod_par, nom_par, apep_par, apem_par, tipo_par, fechareg_par, "
Sql= Sql & " email1_par, aspefam FROM inscritos2007"
Sql= Sql & " WHERE apep_par like '"& Request.Form("apep_par") &"%' "
Sql= Sql & " and apem_par like '"& Request.Form("apem_par") &"%' "
Sql= Sql & " and nom_par like '"& Request.Form("nom_par") &"%' "
Sql= Sql & " and inscrito=0"
rs.Open Sql, Conn
do while not rs.eof
%>
">
|
<%=rs("apep_par") & " " & rs("apem_par") & ", " & rs("nom_par")%> |
<%=rs("email1_par")%> |
<%=rs("aspefam")%> |
<%=rs("tipo_par")%> |
|
<%prof_par=rs("tipo_par")%>
<%rs.movenext
loop
rs.close
%>
<%
if (prof_par="p") then
Sql= "SELECT count(*) as son FROM inscritos2007 WHERE codgen_pas Is not Null and tipo_par='p' "
Sql= Sql & "and codgen_pas like 'p%'"
codgen_pas="p"
else
Sql= "SELECT count(*) as son FROM inscritos2007 WHERE codgen_pas Is not Null "
Sql= Sql & " and (tipo_par='e' or tipo_par='a') and (codgen_pas like 'a%' or codgen_pas like 'e%')"
codgen_pas="e"
end if
rs.Open Sql, Conn
do while not rs.eof
cont=rs("son")
rs.movenext
loop
rs.close
Conn.close
cont=cont+1
if (cont<10) then
codgen_pas=codgen_pas & "07000"
else
if (cont<100) then
codgen_pas=codgen_pas & "0700"
else
if (cont<1000) then
codgen_pas=codgen_pas & "070"
end if
end if
end if
codgen_pas=codgen_pas & cont
%>
<%=codgen_pas%>
|
|
|