Crear una conexion a la bd desde una funcion

[TheHard]

Saludos!

Alguien sabe por qué me pasa esto? este es mi código:

Dim oCn, oRs
Dim sSQL
sSQL = "SELECT COUNT (*) FROM tabla"

Set oCn = DBConexion

Function DBConexion ()

Dim oCn, sConnString

Set oCn = Server.CreateObject("ADODB.Connection")

sConnString = "Driver={SQL Server};Description={};SERVER=(local);UID=sa;PWD=x x;DATABASE=Desarrollo;"

On Error Resume Next
oCn.Open sConnString

On Error Goto 0

Set DBConnexion = oCn

End Function

Probé a conectarme a la bdd sin llamar a la función, y anda perfecto! pero si trato de hacer lo anterior, me sale esto:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'DBConexion'
/net/derco/visor.asp, línea 9

Alguna idea? no he podido dar con la solucion

Gracias!

[PosDon]

Set DBConnexion = oCn

La funcion se llama DBConexion, así que en la sentencia anterior te sobra una n, de todas maneras no recuerdo si es válido devolver un valor de la funcion mediante Set, pero pruebalo.

[mariano_donati]

El Set tengo entendido que únicamente se reserva para los objetos. Para que la función nos devuelva el valor basta con nombre_funcion = valor o return valor, según tengo entendido, vuelvo a repetir.
Saludos!.

[TheHard]

Muchas gracias! Sabía que debía funcionar... sólo era que no estaba devolviendo el valor correcto :)

Gracias de nuevo :)