ASP to DLL problemi ! :(

[hitix]

<%
on error resume next
DB_KLASORU = "db/"
DB_ISMI = "database.mdb"
DB_TAMYOL = DB_KLASORU & DB_ISMI
VT_YOL = SERVER.MAPPATH(DB_TAMYOL)
DSN = "DBQ=" & VT_YOL &   ";Driver={Microsoft Access Driver (*.mdb)}"
if BAGLANTI.State = False Then
Set BAGLANTI = Server.CreateObject("ADODB.Connection")
BAGLANTI.Open DSN
End if
%>

bu kodu DLL haline getirip DLL'i servera tanıtıp dll dosyasını

<%
   Dim objPabloSoftwareSolutions
   Set objPabloSoftwareSolutions = Server.CreateObject("Baglanti.Class1")
   objPabloSoftwareSolutions.ExecuteMain
   Set objPabloSoftwareSolutions = Nothing
%>

açtığım zaman serverdaki bu dosyayı include eden hiçbir dosya çalışmıyor.

Lütfen yardım