<% 'cobertura x distrito de escuela cargadas 'no tiene parametros de entrada Dim oConn Dim strSQL, strConn Dim rs Dim cmd Set oConn = Server.CreateObject("ADODB.Connection") Set cmd= Server.CreateObject("ADODB.Command") Set rs = Server.CreateObject("ADODB.RecordSet") strConn= "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source= " & Server.MapPath("./bdRondaConsultas.mdb")& ";" oConn.connectionString= strConn oConn.open Set cmd.activeConnection=oConn cmd.CommandText = "coberturaDistrito" cmd.CommandType = 4 Set rs = cmd.Execute() 'dibuja los cuadros if not rs.eof then rs.movefirst %> <%While not rs.eof%> <%rs.movenext wend%>

Distrito	Codigo	Cantidad de escuelas	Cantidad de escuelas leidas	%
<%=rs("nombreDistrito")%>	<%=rs("distrito")%>	<%=rs("cantidadEscuelas")%>	<%=rs("cantidadCargadas")%>	<%=formatpercent((rs("cantidadCargadas")/rs("cantidadEscuelas")), 2)%>

<% end if rs.close cmd.activeConnection=Nothing oConn.Close set oConn = nothing %>