<% Session("activo")=true conectar() %> ::: CONGRESO PERUANO DE EDUCACION MEDICA :::
  LISTA DE VALIDADOS - LISTA DE REGISTRADOS - LISTA DE TRABAJOS
<% 'entre " " va el nombre de la tabla, y luego de la "," se indica la BD que contiene esa tabla. 'El número que le sigue, el "1", es la forma de abrir la tabla. Sql= "SELECT nom_par, apep_par, apem_par, pais_par, tipo_par, doc_par, uni_par, esp_par, codgen_pas, email1_par " Sql= Sql & " FROM inscritos2007 " Sql= Sql & " WHERE codgen_pas is not null ORDER BY apep_par" x=0 p=0 e=0 rs.Open Sql, Conn do while not rs.eof x=x+1 if (rs("tipo_par")="p") then p=p+1 else e=e+1 end if %> <%rs.movenext loop rs.close %>
Nº
Nombre
Profesión
Docente
Universidad
<%=x%> <% =rs("codgen_pas") %> <% Sql1= "SELECT codcar, nomcar FROM carrera WHERE codcar=" & rs("esp_par") rs1.Open Sql1, Conn do while not rs1.eof response.Write(rs1("nomcar")) rs1.movenext loop rs1.close %>
<%=rs("doc_par")%>
 <% val1=rs("uni_par") if val1="" then val1="0" end if Sql1= "SELECT coduni, nomuni FROM universidades WHERE coduni=" & val1 & "" rs1.Open Sql1, Conn do while not rs1.eof response.Write(rs1("nomuni")) rs1.movenext loop rs1.close %>
  "><%=rs("apep_par")&" "&rs("apem_par")&", "&rs("nom_par")%>
ESTADISTICAS
Profesionales
<%=p %> <% if (x>0) then response.Write(formatnumber(100*p/x,2)) else response.Write(0) end if %> %
Estudiantes
<%=e %> <% if (x>0) then response.Write(formatnumber(100*e/x,2)) else response.Write(0) end if %> %