<%
set conn = server.createobject ("Adodb.connection") 'creación del objeto conexión
set rs = server.createobject ("Adodb.recordset") 'creación objeto recordset
rs.cursortype = 3 'elección de tipo de cursor
conn.open "provider = Microsoft.Jet.Oledb.4.0; Data Source=" & Server.mappath ("datos/all.mdb") 'Apertura de la conexión y declaración del driver de la base
sql= "Select Rubro, prioridad from rubros Order by prioridad" 'declaración de consulta sql
Rs.open sql, conn 'abre recordset y ejecuta consulta sql
c=rs.recordcount 'asigna a C el valor de la cantidad de hallazgos de la consulta
d=3 'determina cantidad de filas en las tablas y tamaño de las celdas
Response.Write "
"
for i=1 to c
h=i/d
j=int(i/d)
e=int(100/d)
Response.write "
