<% db_veriyolu ="../" & vtyolu & "/"& vtadi &"" set Baglanti = server.createobject("adodb.connection") Baglanti.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.mappath(db_veriyolu & ".mdb") Set kd=Server.CreateObject("Adodb.Recordset") '// Ayarlar tablosundan site bilgileri aliniyor kd.open "SELECT * FROM ayarlar", baglanti, 1, 3 strSiteBasligi = kd("site_adi") strCopyright = kd("copyright") blnOnayKodu = kd("onay_kodu") blnAdminOnay = kd("admin_onay") intMesajSayisi = kd("kayit_sayisi") strZamanFarki = kd("zaman_farki") intZamanFarkiDegeri = kd("fark_degeri") kd.Close If intMesajSayisi = "" OR IsNumeric(intMesajSayisi) = False Then intMesajSayisi = 5 If intZamanFarkiDegeri = "" OR IsNumeric(intZamanFarkiDegeri) = False Then intZamanFarkiDegeri = 0 %>