Kod:
<%
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ı
Kod:
<%
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