Como se usa EOF - BOF con Getrows?

[AlZuwaga]

Me parece que hay una confusión... Al usar GetRows SIEMPRE se hace uso de un objeto recordset. La gracia del GetRows es liberar la BD lo antes posible. Por lo tanto, debés cerrar los objetos recordset y conection lo antes posible y no al final del código.
Tu código, sin probar si funciona (eso te lo dejo a vos), debería quedar más o menos así:


<%
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" ' ESTÁ DE MÁS
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"
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
%>

<img src="<%=ricura(large_ricura, 0)%>" border="0">

<%end if %>



Ahora te digo que es medio absurdo usar GetRows para sólo un registro... Generalmente se utiliza para recordsets de varios o muchos registros. Para ello no te compliques la vida y directamente manipulá el recordset normalmente