Hola Gente, les agradezco a todos por su interes.
Una de las utilizades de Getrows y precisamente liberar la BD en el menor tiempo posible.
En cuanto al problema voya probar lo que dice dazuaga.
Cuando hablo de Getrows no es para q me devuelva un registro, solo lo indique para que sea mas comprensible.
Voya probar este codigo:
'-------------------
<%
Dim CAT
CAT = "1"
if (Request("shk") <> "") then CAT = Request("shk")
' shk = id_ricura : es el identificador para consultas
%>
<%
Dim oConn_ricura, rs_ricura, SQL_ricura, ricura
Dim id_ricura, nom_ricura, smoll_ricura, large_ricura, fecha
id_ricura = 0
nom_ricura = 1
smoll_ricura = 2
large_ricura =3
fecha = 4
SQL_ricura="SELECT * FROM ricuras"
SQL_ricura = "SELECT * FROM ricuras WHERE id_ricura = " + Replace(CAT, "'", "''")
set oConn_ricura = Server.CreateObject("ADODB.Connection")
oConn_ricura.Open MM_pcte_STRING
set rs_ricura = oConn_ricura.Execute(SQL_ricura)
if ricura.eof and ricura.bof then
Response.Write "NO HAY REGISTROS" ' que opinan los expertos eh
Else
ricura = rs_ricura.GetRows
'Liberamos los objetos ya!! (porque el objeto recordset no viene vacío y, además, ya lo asignamos a un array con GetRows)
rs_ricura.Close
set rs_ricura = nothing
oConn_ricura.Close
set oConn_ricura = nothing
'-----------
for I = 0 to UBound(ricura,2)
'Abrimos una nueva fila
Response.Write("<TR>")
Response.Write("<TD>" & ricura(large_ricura, I) & "</TD>")
Response.Write("<TD>" & ricura(nom_ricura, I) & "</TD>")
Response.Write("<TD>" & ricura(id_ricura, I) & "</TD>")
Response.Write("</TR>")
next
end if
%>
