Veriyolu hatası - R10.net
  • 25-07-2014, 00:17:43
    #1
    merhabalar arkadaşlar acaba kodlarda ne gibi bi yanlışlık yapıyorum acil yardım edermisiniz

    Aldığım hata

    Microsoft OLE DB Provider for ODBC Drivers error '80004005'

    [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

    /includes/baglanti.asp, line 4



    <%
    Set MySQL_Baglanti= Server.CreateObject("ADODB.connection")
    Veritabanim = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; UID=xxxxx; pwd=xxx; db=xxxx"';
    MySQL_Baglanti.Open Veritabanim
    domain="domainismi.com"
    title=Turizm | Tatil Portalı"
    keywords=""
    descriptions=""
    site_URL="http://www.domainismi.com"
    sql="select * from smtp;"
    set veriler=mysql_baglanti.execute(sql)
    if not veriler.eof then
    robotMail=veriler("gonderen")
    robotSifre=veriler("sifre")
    robotSMTP=veriler("smtp")
    sistemEposta=veriler("alici")
    else
    robotMail=""
    robotSifre=""
    robotSMTP=""
    sistemEposta=""
    end if

    Public function link_turkce(veri)
    veri = Replace (veri ,"Ğ","G")
    veri = Replace (veri ,"Ü","U")
    veri = Replace (veri ,"Ş","S")
    veri = Replace (veri ,"İ","I")
    veri = Replace (veri ,"Ö","O")
    veri = Replace (veri ,"Ç","C")
    veri = Replace (veri ,"ğ","g")
    veri = Replace (veri ,"ü","u")
    veri = Replace (veri ,"ş","s")
    veri = Replace (veri ,"ı","i")
    veri = Replace (veri ,"ö","o")
    veri = Replace (veri ,"ç","c")
    veri = Replace (veri ," ","-")
    veri = Replace (veri ,"'","-")
    veri = Replace (veri ,"`","-")
    veri = Replace (veri ,"=","")
    veri = Replace (veri ,"&","")
    veri = Replace (veri ,"%","")
    veri = Replace (veri ,"!","")
    veri = Replace (veri ,"#","")
    veri = Replace (veri ,"*","")
    veri = Replace (veri ,"'","-")
    veri = Replace (veri ,",","-")
    veri = Replace (veri ,Chr(34),"")
    veri = Replace (veri ,Chr(39),"")
    link_turkce=veri
    end function

    public Function sqlinjinput(input)
    known_bad = array( "'", ";", "select", "insert", "update", "delete", "drop", "--", "xp_", "sp_" )
    IsValidate = false
    for i = lbound(known_bad) to ubound(known_bad)
    if (instr(1, input, known_bad(i), vbtextcompare ) <> 0) then
    IsValidate = true
    exit for
    end if
    next
    sqlinput = IsValidate
    End Function

    Public function temizlik(veri)
    veri = Replace (veri ,"'","")
    veri = Replace (veri ,"`","")
    veri = Replace (veri ,"=","")
    veri = Replace (veri ,"&","")
    veri = Replace (veri ,"%","")
    veri = Replace (veri ,"!","")
    veri = Replace (veri ,"#","")
    veri = Replace (veri ,"*","")
    veri = Replace (veri ,Chr(34),"")
    veri = Replace (veri ,Chr(39),"")
    temizlik=veri
    end function


    Public function temizlikform(veri)
    veri = Replace (veri ,"'","")
    veri = Replace (veri ,"`","")
    veri = Replace (veri ,"=","")
    veri = Replace (veri ,"&","")
    veri = Replace (veri ,"%","")
    veri = Replace (veri ,"!","")
    veri = Replace (veri ,"#","")
    veri = Replace (veri ,"*","")
    veri = Replace (veri ,"'","")
    veri = Replace (veri ,"Aramak istediginiz kelime","")
    veri = Replace (veri ,Chr(34),"")
    veri = Replace (veri ,Chr(39),"")
    temizlikform=veri
    end function

    Public function trkar(veri)
    veri = Replace (veri ,"ı","ı")
    veri = Replace (veri ,"ğ","ğ")
    veri = Replace (veri ,"ş","ş")
    veri = Replace (veri ,"ü","ü")
    veri = Replace (veri ,"ö","ö")
    veri = Replace (veri ,"ç","ç")
    veri = Replace (veri ,"'","")
    veri = Replace (veri ,"`","")
    veri = Replace (veri ,"=","")
    veri = Replace (veri ,"&","")
    veri = Replace (veri ,"%","")
    veri = Replace (veri ,"!","")
    veri = Replace (veri ,"#","")
    veri = Replace (veri ,"*","")
    veri = Replace (veri ,"Ä°","İ")
    veri = Replace (veri ,"Ä?","Ğ")
    veri = Replace (veri ,"Ü","Ü")
    veri = Replace (veri ,"Å?","Ş")
    veri = Replace (veri ,"Ö","Ö")
    veri = Replace (veri ,"Ç","Ç")
    veri = Replace (veri ,Chr(34),"")
    veri = Replace (veri ,Chr(39),"")
    trkar=veri
    end function

    Public function virgulle(veri)
    veri = Replace (veri ," "," , ")
    virgulle=veri
    end function

    Public function sadece_sayi(veri)
    veri = Replace (veri ,"'","")
    veri = Replace (veri ,"`","")
    veri = Replace (veri ,"=","")
    veri = Replace (veri ,"&","")
    veri = Replace (veri ,"#","")
    veri = Replace (veri ,"*","")
    veri = Replace (veri ,"'","")
    veri = Replace (veri ,Chr(34),"")
    veri = Replace (veri ,Chr(39),"")
    veri = Replace (veri ,"q","")
    veri = Replace (veri ,"w","")
    veri = Replace (veri ,"e","")
    veri = Replace (veri ,"r","")
    veri = Replace (veri ,"t","")
    veri = Replace (veri ,"y","")
    veri = Replace (veri ,"u","")
    veri = Replace (veri ,"i","")
    veri = Replace (veri ,"o","")
    veri = Replace (veri ,"p","")
    veri = Replace (veri ,"g","")
    veri = Replace (veri ,"ü","")
    veri = Replace (veri ,"a","")
    veri = Replace (veri ,"s","")
    veri = Replace (veri ,"d","")
    veri = Replace (veri ,"f","")
    veri = Replace (veri ,"g","")
    veri = Replace (veri ,"h","")
    veri = Replace (veri ,"j","")
    veri = Replace (veri ,"k","")
    veri = Replace (veri ,"l","")
    veri = Replace (veri ,"s","")
    veri = Replace (veri ,"i","")
    veri = Replace (veri ,"z","")
    veri = Replace (veri ,"x","")
    veri = Replace (veri ,"c","")
    veri = Replace (veri ,"v","")
    veri = Replace (veri ,"b","")
    veri = Replace (veri ,"n","")
    veri = Replace (veri ,"m","")
    veri = Replace (veri ,"ö","")
    veri = Replace (veri ,"ç","")
    veri = Replace (veri ,"Q","")
    veri = Replace (veri ,"W","")
    veri = Replace (veri ,"E","")
    veri = Replace (veri ,"R","")
    veri = Replace (veri ,"T","")
    veri = Replace (veri ,"Y","")
    veri = Replace (veri ,"U","")
    veri = Replace (veri ,"I","")
    veri = Replace (veri ,"O","")
    veri = Replace (veri ,"P","")
    veri = Replace (veri ,"G","")
    veri = Replace (veri ,"Ü","")
    veri = Replace (veri ,"A","")
    veri = Replace (veri ,"S","")
    veri = Replace (veri ,"D","")
    veri = Replace (veri ,"F","")
    veri = Replace (veri ,"G","")
    veri = Replace (veri ,"H","")
    veri = Replace (veri ,"J","")
    veri = Replace (veri ,"K","")
    veri = Replace (veri ,"L","")
    veri = Replace (veri ,"S","")
    veri = Replace (veri ,"I","")
    veri = Replace (veri ,"Z","")
    veri = Replace (veri ,"X","")
    veri = Replace (veri ,"C","")
    veri = Replace (veri ,"V","")
    veri = Replace (veri ,"B","")
    veri = Replace (veri ,"N","")
    veri = Replace (veri ,"M","")
    veri = Replace (veri ,"Ö","")
    veri = Replace (veri ,"Ç","")
    veri = Replace (veri ,"!","")
    veri = Replace (veri ,"'","")
    veri = Replace (veri ,"#","")
    veri = Replace (veri ,"@","")
    veri = Replace (veri ,"+","")
    veri = Replace (veri ,"$","")
    veri = Replace (veri ,"%","")
    veri = Replace (veri ,"&","")
    veri = Replace (veri ,"/","")
    veri = Replace (veri ,"{","")
    veri = Replace (veri ,"(","")
    veri = Replace (veri ,"[","")
    veri = Replace (veri ,"]","")
    veri = Replace (veri ,")","")
    veri = Replace (veri ,"=","")
    veri = Replace (veri ,"}","")
    veri = Replace (veri ,"?","")
    veri = Replace (veri ,"*","")
    veri = Replace (veri ,"\","")
    veri = Replace (veri ,"-","")
    veri = Replace (veri ,"_","")
    veri = Replace (veri ,"~","")
    veri = Replace (veri ,";","")
    veri = Replace (veri ,",","")
    veri = Replace (veri ,".","")
    veri = Replace (veri ,":","")
    veri = Replace (veri ,"|","")
    veri = Replace (veri ,">","")
    veri = Replace (veri ,"<","")
    sadece_sayi=veri
    end function

    'EPOSTA KONTROL
    Function cckEmail(email)
    Dim regEx, Match, Matches
    If email <> "" Then

    Set regEx = New RegExp
    regEx.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
    regEx.IgnoreCase = True
    If regEx.Test(email) Then cckEmail = True Else cckEmail = False
    End If
    End Function
    'EPOSTA BİTİŞİ
    Public function bosluk_kapa(veri)
    veri = Replace (veri ," ","-|-")
    bosluk_kapa=veri
    end function

    Public function bosluk_ac(veri)
    veri = Replace (veri ,"-|-"," ")
    bosluk_ac=veri
    end function
    %>
    <%
    if month(date())=1 then
    ay="Ocak"
    end if

    if month(date())=2 then
    ay="Şubat"
    end if

    if month(date())=3 then
    ay="Mart"
    end if

    if month(date())=4 then
    ay="Nisan"
    end if

    if month(date())=5 then
    ay="Mayıs"
    end if

    if month(date())=6 then
    ay="Haziran"
    end if

    if month(date())=7 then
    ay="Temmuz"
    end if

    if month(date())=8 then
    ay="Ağustos"
    end if

    if month(date())=9 then
    ay="Eylül"
    end if

    if month(date())=10 then
    ay="Ekim"
    end if

    if month(date())=11 then
    ay="Kasım"
    end if

    if month(date())=12 then
    ay="Aralık"
    end if


    if weekday(date())=1 then
    gun="Pazar"
    end if

    if weekday(date())=2 then
    gun="Pazartesi"
    end if

    if weekday(date())=3 then
    gun="Salı"
    end if

    if weekday(date())=4 then
    gun="Çarşamba"
    end if

    if weekday(date())=5 then
    gun="Perşembe"
    end if

    if weekday(date())=6 then
    gun="Cuma"
    end if

    if weekday(date())=7 then
    gun="Cumartesi"
    end if
    %>
  • 26-07-2014, 00:35:30
    #4
    bende zaten hatanın ordan olduğunu söyliyorum yardım ede bilecek bi arkadaş arıyorum
  • 13-08-2014, 14:45:10
    #5
    Panelyazilim adlı üyeden alıntı: mesajı görüntüle
    bende zaten hatanın ordan olduğunu söyliyorum yardım ede bilecek bi arkadaş arıyorum
    keşke konuyu hazır kodlar kısmına açmasaydınız.eğer localde deniyorsanız sorun muhtemelen odbc ayarlarınızda sebebler sistemde mysql kurulu olmaya bilir.eğer hostingde çıkıyorsa hosting aldığınız şirkete ticket açınız size doğru bağlantı ismini verecektir.
    https://www.r10.net/asp/107691-data-s...nd-hatasi.html
    bu yazıyıda bir okuyunuz
    konu ile ilgil goggle araması:https://www.google.com.tr/search?q=%...w=1024&bih=677
R10.net sizlere daha iyi hizmet sunmak için çerezleri kullanıyor.R10.net'i kullanarak çerezleri kullanmamızı kabul etmiş olacaksınız.
Detaylı bilgi almak için Gizlilik ve Çerez Politikası metnimizi inceleyebilirsiniz.