<% nom = Request.Form("nombre") %> <% Set objConnection = Server.CreateObject("ADODB.Connection") objconnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("titulados.mdb") SQLQuery = "SELECT format(fecexapro,'DD/MM/YYYY') as fecha,nombre,sexo FROM titulado WHERE nombre like '" & nom & "%' order by nombre" SQLQuery2 = "SELECT count(nombre) as suma FROM titulado WHERE nombre like '" & nom & "%'" SQLQuery3 = "SELECT count(sexo) as mascu FROM titulado WHERE nombre like '" & nom & "%' and sexo='MASCULINO'" SQLQuery4 = "SELECT count(sexo) as feme FROM titulado WHERE nombre like '" & nom & "%' and sexo='FEMENINO'" Set rsdatosList = objConnection.Execute(SQLQuery) Set rsdatosList2 = objConnection.Execute(SQLQuery2) Set rsdatosList3 = objConnection.Execute(SQLQuery3) Set rsdatosList4 = objConnection.Execute(SQLQuery4) %>

Hoy es <%= FormatDateTime(Now,1) %>

Consulta de <%Response.write nom%>

<% Do Until rsdatosList.EOF%> <% rsdatosList.MoveNext Loop %>
Fecha de Examen Nombre Sexo
<%= rsdatosList("fecha")%> <%= rsdatosList("nombre")%> <%= rsdatosList("sexo")%>
<%response.write rsdatosList3("mascu")%> Hombres y <%response.write rsdatosList4("feme")%> Mujeres Total : <%response.write rsdatosList2("suma")%>

Información proporcionada por el Departamento Escolar de la Facultad hasta agosto de 2005

Comentarios o sugerencias a aortiz@mail.uanl.mx