ayuda con funcion que devuelve un recordset

[mariano_donati]

Hola, la función la tenés que terminar con End Function, no End Sub. Lo segundo que veo es que si bien vos estás creando el RS, no le estás devolviendo nada a la función, porque no lo estás recorriendo, ni estás ejecutando ninguna acción sobre el mismo. Lo que podrías hacer es con el método getRows, hacer que la función te devuelva el array correspondiente que guarda los registros del RS. Sería algo así:


Function BuscarInmuebles()

Dim RSArray 'Aca va guardado el array del RS

set conexion = Server.CreateObject("ADODB.Connection")
set RS = Server.CreateObject("ADODB.RecordSet")
conexion.Open strConn
RS.Open SQL, conexion
RSArray = RS.getRows()
RS.Close
conexion.Close()
set RS = Nothing
set conexion = Nothing

Return RSArray

End Function

Saludos, y espero que alguien abunde más en esto.
Suerte!.