merhaba arkadaşlar

asp sitemi açınca şu hatayı veriyor:

inc_ayarlar.asp dosyasındaki kodlar:

<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' mydesign | haberci
' W: MyDesign | Kodlar, Makaleler, Download, Linkler | Türkiye'nin Programlama Merkezi
' @: mydesign@mydesign.gen.tr
' Ayarlar Sayfas Kodlar
' Son Dzenleme: 22 Eyll 2006 (v0.4)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// Deikenler Tanmlanyor
Dim adoCon
Dim kdGenel
Dim kdMenu
Dim kdYardimci
Dim kdYorum
Dim kdFonksiyon
Dim strVeri
Dim strTarih
Dim blnSaat
Dim Gunler
Dim Aylar
Dim Saniye
Dim Dakika
Dim Saat
Dim Gun
Dim Gun_Adi
Dim Ay
Dim Yil
Dim intHexLength
Dim intLoopCounter
Dim strSiteAdi
Dim strSiteAdresi
Dim strCopyright
Dim blnOnayKodu
Dim intHaberSayisi
Dim intYorumSayisi
Dim strVersiyon
Dim blnAdminOnay
Dim strSiteAciklamasi
Dim intArananKategori
Dim strArananKategori
Dim strArananKelime
Dim blnMenuAc
'// Veritaban Balants Yaplyor
Set adoCon = Server.CreateObject("Adodb.Connection")
adoCon.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath("database/veriler.mdb") &";"
'// Kaytsetleri Alyor
Set kdGenel = Server.CreateObject("Adodb.Recordset")
Set kdYardimci = Server.CreateObject("Adodb.Recordset")
Set kdMenu = Server.CreateObject("Adodb.Recordset")
Set kdYorum = Server.CreateObject("Adodb.Recordset")
Set kdFonksiyon = Server.CreateObject("Adodb.Recordset")
'// Site Ayarlar Alnyor
kdGenel.Open "SELECT TOP 1 * FROM tblAyarlar", adoCon, 1, 3
strSiteAdi = kdGenel("site_adi")
strSiteAdresi = kdGenel("site_adresi")
strSiteAciklamasi = kdGenel("aciklama")
strCopyright = kdGenel("copyright")
blnOnayKodu = kdGenel("onay_kodu")
blnAdminOnay = kdGenel("admin_onay")
intHaberSayisi = kdGenel("haber_sayisi")
intYorumSayisi = kdGenel("yorum_sayisi")
strVersiyon = "0.4"
kdGenel.Close
%>

bu sorunu nasıl düzeltebilirim?