[SOLUCIONADO] uso correcto de recordcount

[neofilo]

Hola a todoso, tengo el siguiente codigo.

Código:

<%
strSQL_imagen = "SELECT * FROM archivos_coop WHERE id_coop='"&id_promo&"'"
		Set objRS_imagen = cn.Execute(strSQL_imagen) 
		'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)
		%>

Mi problema es que el recordcount siempre da valor -1, como puedo hacer para solucionarlo?

[alpe2000]

Para que recordcount funcione tienes que tener presente el tipo de cursor que usas.

esto te ayudará:

http://www.w3schools.com/ado/prop_rs_recordcount.asp

[neofilo]

no entiendo muy bien la función que hace lo que está marcado en rojo.

Código:

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("northwind.mdb"))

set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT * FROM Customers"
rs.Open sql,conn

if rs.Supports(adApproxPosition)=true then
  i=rs.RecordCount
  response.write("The number of records is: " & i)
end if

rs.Close
conn.Close
%>

[neofilo]

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

[neofilo]

ya he encontrado la solución.

Código:

ruta =objRS_imagen.fields("direccion")
		rsArray = objRS_imagen.GetRows() 
        numero  = UBound(rsArray, 2) + 1