<%
function conecta()
'Conexion a Base de Datos sin declarar DSN
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("..Archivos\Covasca.mdb")
set conn = Server.Createobject("adodb.connection")
conn.open strconn
set conecta=conn
end function
%>
<%
Sub desconecta(conn)
conn.close
set conn=nothing
end sub
%>
lo guardas como conexion.inc
para llamarlo de alguna pagina ocupa un include
<!--#INCLUDE file="../conexion.inc"-->
arriba de esta etiqueta
<html>
