<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' DiyalogTR.Com | ziyaretçi defteri ' W: http://www.DiyalogTR.Com ' @: Admin@DiyalogTR.Com ' ' Ayarlar Sayfası Kodları ' Son Düzenleme: 16 Mayıs 2008 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// Nesneler açılıyor Set baglanti = Server.Createobject("Adodb.Connection") Set kd = Server.Createobject("Adodb.Recordset") // Veritabanı Yolu ' Güvenlik için veritabanının ismini mutlaka değiştirin ' db klasöründe bulunan veritabanının ismini değiştirdikten sonra bu kısmı değiştirin strVeritabaniYolu = "db/dbdefter.mdb" '// Veritabanı bağlantısı yapılıyor baglanti.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.Mappath(strVeritabaniYolu) &";" '// Ayarlar tablosundan site bilgileri alınıyor 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") kd.Close If intMesajSayisi = "" OR IsNumeric(intMesajSayisi) = False Then intMesajSayisi = 5 %>