Y si utilizamos
GetRows...
Podría funcionar bien... prueba esto haber que pasa:
Código HTML:
<table>
<%
Dim rs, sql, equipos
Dim i, j
Dim iddoc,clavedoc,descripcion,nombrearchivo 'Se definen los índices del vector con nombres simbólicos para facilitar el manejo
antivirus=0 'Inicializamos los indices correspondientes de acuerdo a la posicion de cada elemento
departamento=1
dirip=2
disco=3
usuario = request.QueryString("us")
set rs=CreateObject("adodb.recordset") 'Define objeto recordset
sql="SELECT antivirus,departamento,dirip,disco,cpu,usuario FROM equipos where usuario = '"& usuario &"'" 'Hace la consulta
rs.open sql,MM_inventarios_STRING 'En una sola peticion guarda TODOS los registros de la consulta
equipos=rs.GetRows 'Asigna los registros al vector "equipos"
rs.close 'Cerramos objeto recordset
set rs=nothing 'Liberamos el objeto
MM_inventarios_STRING.close 'Cerramos la conexion
set MM_inventarios_STRING=nothing 'Liberamos la conexion
response.write("<tr>") 'Imprimimos una fila
for i=0 to Ubound(equipos,2) 'Recorremos el vector de principio a fin
if (i mod 4)=0 then 'Esto es solo para mostrar filas de cuatro elementos(bien podria omitirse)
response.write("</tr>")
response.write("<tr>")
end if
response.write("<td>"& equipos(antivirus,i)&"></td>") 'Imprime los datos del vector con formato especifico(un checkbox para cada documento)
response.write("<td>"& equipos(departamento,i) &"</td>") ' Imprime tambien la clave del documento
response.write("<td>"& equipos(dirip,i) &"</td>")
response.write("<td>"& equipos(disco,i) &"</td>")
next
response.write("</tr>")'Cerramos la fila
response.write("<tr>")
total = UBound(equipos,2)+1 'Para sacar el total de registros
response.write("<td>Total de Registros: "& total &"</td>")
response.write("</tr>")
%>
</table> Pudiera solucionarse asi, ya tu nos diras si funciono o no...
Saludos...
