Si les entiendo, aqui les mando el codigo fuente:
<%
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)
ricura = rs_ricura.GetRows
'Liberamos los objetos ya!!
rs_ricura.Close
set rs_ricura = nothing
oConn_ricura.Close
set oConn_ricura = nothing
%>
Para ver el resultado coloco lo siguiente:
<% if
ricura.eof and
ricura.bof then %>
No hay registros para esta consulta
<% else%>
<img src="<%=ricura(large_ricura, 0)%>" border="0">
<%end if %>
Estaria bien asi? 
Ahora donde va el .EOF, en este caso seria
ricura.eof ?
Como se puede ver necesito el valor de shk que pude ser 1,2, etc que obviamente esta en la BD y lo obtengo con un Request ahora bien el problema es cuando ese valor no este en la BD, y se genera un error el la pagina
Segun el codigo q me dieron donde va ?
========
if
recordset .eof and recordset.bof then
response.write "No hay registros para esta Consulta"
else
recordset.getrows
'acá laburás el GertRows
end if
=====
Nota: Para este caso
recordset = ricura ?