Cita:
Iniciado por Julcar 
En si lo que quiero hacer es reutilizar esa funcion para hacer varios selects en la misma página.
En ese caso lo que debe recibir es una sentencia SQL y devolver un recordset:
Código:
Function conectar(strSQL)
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath ("datos/clasificadosnet.mdb") & ";"
conectar = Conn.Execute(strSQL)
end Function
Código:
strSQL = "SELECT categorias.id_categoria, categorias.nombre_categoria, categorias.orden_categoria " & _
"FROM categorias ORDER BY categorias.orden_categoria ASC"
Set rs = conectar(strSQL)
Honestamente a mi no me convence esta aproximación pues:
- Dejas conexiones abiertas
- Dejas objetos creados sin destruir
- Es demasiado abstracto -no puedes/debes encerrar todas las cosas que pasan dentro de un website en una función-
Lo mejor desde mi punto de vista sería crear funciones específicas para cada uno de los casos, pero es sólo mi opinión.
Saludos