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