% if (Session("activo")=true ) then conectar() existe=0 Sql = "Select nom_par, apep_par, apem_par, codgen_pas from inscritos2007 where codgen_pas='"&request.Form("codigo")&"'" Sql = Sql & " and docident_par='"&request.Form("docidentpar")&"' and inscrito=1" rs.Open Sql, Conn do while not rs.eof nompos=rs("nom_par") apepatpos=rs("apep_par") apematpos=rs("apem_par") codgen=rs("codgen_pas") existe=existe+1 rs.movenext loop rs.close %>
![]() |
![]() |
||
<% if (existe=1) then %>
<% else
Session.Abandon()
%>
|
|||