::: CONGRESO PERUANO DE EDUCACION MEDICA :::

<% Session("activo")=true conectar() existe=0 Sql = "Select count(*) as existe from inscritos2007 where docident_par='"&request.Form("docidentpar")&"'" rs.Open Sql, Conn do while not rs.eof existe=rs("existe") rs.movenext loop rs.close if (existe=0) then %> ::: CONGRESO PERUANO DE EDUCACION MEDICA :::

"> "> "> <% if (request.Form("aspefam")<>"") then %> <% end if %> <% if (request.Form("select2")<>0) then %> <% else %> <% end if%> <% if (request.Form("celpar")<>"") then %> <% end if %> <% if (request.Form("email2par")<>"") then %> <%end if%> <% if (request.Form("categoria")<>"") then %> <%end if if (request.Form("unipar")<>0) then %> <% else %> <% end if if (request.Form("cenlabpar")<>"") then %> <%end if%>

CONFIRMACION DE <% if (request.form("pre")="pi") then response.Write("PRE-") end if %>INSCRIPCION

NOTA IMPORTANTE: Los datos que se registren, serán usados para la elaboración de su certificado.

Codigo ASPEFAM:

<%=Ucase(request.Form("aspefam")) %> ">

Nombres:

<%=Ucase(request.Form("nombrepar")) %> ">

Apellidos:

<%=Ucase(request.Form("apepatpar"))&" "&Ucase(request.Form("apematpar"))%> "> ">

Documento de Identidad :

<%=Ucase(request.Form("docidentpar")) %> ">

Sexo:

<% if (request.Form("sexopar")="m") then response.Write("Masculino") else response.Write("Femenino") end if %> ">

País:

"> <% Sql = "Select distinct codpais,nompais from pais where codpais="&request.Form("paises")&"" rs.Open Sql, Conn do while not rs.eof nompais=rs("nompais") codpais=rs("codpais") rs.movenext loop rs.close %> <%=nompais %>

Departamento / Provincia / Distrito:

<% nomdepa=""%> "> "> "> <% Sql = "Select distinct coddepa, nomdepa FROM departamentos WHERE coddepa="&request.Form("select2")&"" rs.Open Sql, Conn do while not rs.eof nomdepa=rs("nomdepa")&" / " rs.movenext loop rs.close response.write(nomdepa) Sql = "Select distinct codpro, nompro FROM provincias WHERE codpro="&request.Form("select3")&"" rs.Open Sql, Conn do while not rs.eof nompro=rs("nompro")&" / " rs.movenext loop rs.close response.write(nompro) Sql = "Select distinct coddis, nomdis FROM distritos WHERE coddis="&request.Form("select4")&"" rs.Open Sql, Conn do while not rs.eof nomdis=rs("nomdis") rs.movenext loop rs.close response.write(nomdis) %>

Domicilio:

<% if (request.Form("dirpar")<>"") then response.Write(Ucase(request.Form("dirpar"))) else response.Write(Ucase(request.Form("dirpar2"))) end if %> "") then response.Write(Ucase(request.Form("dirpar"))) else response.Write(Ucase(request.Form("dirpar2"))) end if %>">

Teléfono:

<%=request.Form("telpar")%> ">

Celular:

<%=request.Form("celpar")%> ">

Correo Electrónico:

<% if (request.Form("email1par")<>"") then response.Write(request.Form("email1par")) else response.Write(request.Form("email1par2")) end if %> "") then response.Write(request.Form("email1par")) else response.Write(request.Form("email1par2")) end if%>">

Correo Electrónico 2:

<%=request.Form("email2par")%> ">

Profesion:

"> <% Sql = "Select codcar, nomcar from carrera WHERE codcar="&request.Form("esppar")&"" rs.Open Sql, Conn do while not rs.eof nomcar=rs("nomcar") rs.movenext loop rs.close response.write(nomcar) %>

Docente Universitario:

<%=Ucase(request.Form("docentepar"))%> ">

Categoria:

<% if (request.Form("categoria")="pr") then catdocente="Principal" elseif (request.Form("categoria")="as") then catdocente="Asociado" elseif (request.Form("categoria")="au") then catdocente="Auxiliar" else catdocente="" end if response.Write(catdocente) %> ">

Universidad:

<% Sql = "Select coduni,nomuni from universidades where coduni="&request.Form("unipar") rs.Open Sql, Conn do while not rs.eof universidad=rs("nomuni") rs.movenext loop rs.close Response.Write(universidad) %> ">

Centro Laboral:

<%=Ucase(request.Form("cenlabpar"))%> ">

<% else response.Redirect("error.asp") end if %>