lo he implementado de la siguiente forma.
Código:
strSQL_imagen = "SELECT * FROM archivos_coop WHERE id_coop='"&id_promo&"'"
Set objRS_imagen = cn.Execute(strSQL_imagen)
if objRS_imagen.Supports(adApproxPosition)=true then
'si hay mas de 1 campo con imagen principal o no hay ninguno pone por defecto la imagen de "sin foto"
numero = objRS_imagen.recordcount
response.Write(numero)
if objRS_imagen.recordcount<>1 then
ruta = "./images/Sin_foto.jpg"
else
ruta =objRS_imagen.fields("direccion")
end if
'response.Write(ruta)
end if pero sigue devolviendome
-1