[aliunalcik]

merhaba arkadaşlar,


mydesign haberci v0.3 deki db yi mysql ye çevirmek istedim fakat hep hata ile karşılaşıyorum


db bağlantısını yapıp mdb yi çevirdim fakat yinede aynı hata yine aynı hata. Scriptte inc_ayarlar dosyası var ve tüm bağlantılar burda orjinali ve yaptığım örneği aşağıda veriyorum. nerde yanlış yaptığımı bulamadım



ORJİNAL :

<%
'// Değişkenler Tanımlanıyor
Dim adoCon
Dim kd
Dim rs
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
 
'// Veritabanı Bağlantısı Yapılıyor
Set adoCon = Server.CreateObject("Adodb.Connection")
adoCon.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath("xxx") &";"
 
'// Kayıtsetleri Açılıyor
Set kd = Server.CreateObject("Adodb.Recordset")
Set rs = Server.CreateObject("Adodb.Recordset")
 
'// Site Ayarları Alınıyor
kd.Open "SELECT TOP 1 * FROM tblAyarlar", adoCon, 1, 3
strSiteAdi = kd("site_adi")
strSiteAdresi = kd("site_adresi")
strSiteAciklamasi = kd("aciklama")
strCopyright = kd("copyright")
blnOnayKodu = kd("onay_kodu")
blnAdminOnay = kd("admin_onay")
intHaberSayisi = kd("haber_sayisi")
intYorumSayisi = kd("yorum_sayisi")
strVersiyon = "0.3"
kd.Close
%>

DÜZENLEDİĞİM :

<%
'// Değişkenler Tanımlanıyor
Dim adoCon
Dim kd
Dim rs
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 conn
 
'// Veritabanı Bağlantısı Yapılıyor
'Set adoCon = Server.CreateObject("Adodb.Connection")
'adoCon.open = "Provider = MySQL ODBC 3.51 Driver; SERVER = localhost; DATABASE =xxx; UID = xxx; PASSWORD=xxx;"
set conn=Server.CreateObject("ADODB.Connection")
adoCon ="Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Database=xxx;Uid=xxx;Pwd=xxx;"
conn.open adoCon
 
'// Kayıtsetleri Açılıyor
Set kd = Server.CreateObject("Adodb.Recordset")
Set rs = Server.CreateObject("Adodb.Recordset")
 
'// Site Ayarları Alınıyor
kd.Open "SELECT TOP 1 * FROM tblAyarlar", adoCon, 1, 3
strSiteAdi = kd("site_adi")
strSiteAdresi = kd("site_adresi")
strSiteAciklamasi = kd("aciklama")
strCopyright = kd("copyright")
blnOnayKodu = kd("onay_kodu")
blnAdminOnay = kd("admin_onay")
intHaberSayisi = kd("haber_sayisi")
intYorumSayisi = kd("yorum_sayisi")
strVersiyon = "0.3"
kd.Close
%>

düzenlediğim kodda şu hata çıkıyor :

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.
/dnm/inc_ayarlar.asp, line 43


bu satır

kd.Open "SELECT TOP 1 * FROM tblAyarlar", adoCon, 1, 3


sorun nerde anlayamadım yardım edebilirseniz çok sevinirim...