Hola, el siguiente código lo guardas como
conec.inc Cita: <%
Dim adoCon
Dim strCon
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dreamweb-e.mdb")
adoCon.Open strCon
%>
Y en la página que quieras llamarlo lo haces de este modo.
Cita: <!--#include file="conec.inc" -->
<%
Set rsDetCat = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblDetailCategory ORDER BY fldIdDetailD DESC"
rsDetCat.Open strSQL, strCon,1,2
%>
Saludos.