Veriyolu hatası

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
%>

Yardımcı olacak arkadaş yokmu ?

4. satır veritabanı yolunun hatalı olduğunu söylüyor

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