duda con funcion de conexion

[verinchi]

mmm.... no sabes si está bien.... ¿La probaste? ¿Da algún error?

Mirá, en mi experiencia no hago una función para conectar a la base de datos, porque la función que hacés no está devolviendo, por ejemplo, ningún valor para trabajar.

Lo que hago yo es, como bien hiciste en un archivo aparte, declarar una variable y la cadena de conexión de esta manera:

Dim MiConexion
MiConexion=dsn=SIRH;uid=consic;pwd=consic;

Con esto, cuando quieras conectar a la base, basta con haber incluido el archivo de conexión en la página en cuestión y hacer la llamada MiConexion.Open()

O bien, cuando armas el recordset, en la línea Recordset.ActiveConnection=MiConexion

Insisto en recomendarte que leas un poco acerca de "El Objeto Recordset" para ASP antes de intentar implementarlo.

Saludos