1. DLL의 프로젝트는 rydns
    class는 rydns_co 로 한다

2. DLL은 아래의 코드를 복붙하고 microsoft activex lib 2.6을 추가한다
--- DLL ------------------------------------
Private Const strCnn = "Provider=SQLOLEDB;Data Source=xxx.xxx.xxx.xxx,1433;Initial Catalog=xxxxxx;UID=xxxxx; PWD=xxxxxx;"
Private vDB As ADODB.Connection

Private Sub Class_Initialize()

    Set vDB = New ADODB.Connection

End Sub

Public Property Get DBCONN() As Variant

    vDB.Open strCnn

    Set DBCONN = vDB

End Property
--- DLL -------------------------------------

3. asp는 아래의 코드를 복붙하고 상단에 쓰여진 프로젝트와 클래스명을 기입한다
---- DBcon.asp -------------------------------

<!--METADATA TYPE= "typelib"  NAME= "ADODB Type Library" FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll"  -->
<OBJECT RUNAT=server PROGID=ADODB.Connection id=DB></OBJECT>
<%
 Dim DB
 Dim DBConn

 Set DBConn = Server.CreateObject("rydns.rydns_co")
 Set DB = DBConn.DBCONN

 'Response.write DB.connectionstring     db정보를 확인

 DB.CommandTimeout=18000 'db커넥션 개체의 쿼리결과 대기시간을 늘여준다
 Session.Timeout = 300
%>
---- DBcon.asp --------------------------------

[원문] http://egloos.zum.com/Freelf/v/3019869