Asp Baglantı sorunum

[satalker34]

Microsoft OLE DB Provider for ODBC Drivers (0x80004005 )
[Microsoft][ODBC Driver Manager] Veri kaynağı adı bulunamadı ve varsayılan sürücü belirtilmemiş
/haber/baglan.asp, line 4

Baglan.asp

<% 
Set baglan = Server.CreateObject("ADODB.Connection" ) 
baglan.CursorLocation = 3 
baglan.Open "DRIVER={MySQL ODBC 3.51  Driver};database=emlakscripti;server=emlakscripti.mssql.somee.com;uid=ekbilg;password=muhammed;option=3;stmt=SET  NAMES 'latin5';" 
%><% 
Response.Buffer = True 

Function Temizle(strInput ) 
      strInput = Replace(strInput,"&", "&" ) 
      strInput = Replace(strInput,"'", "'" ) 
      strInput = Replace(strInput,"""", "'" ) 
      strInput = Replace(strInput,">", ">" ) 
      strInput = Replace(strInput,"<","<" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" ) 
      strInput = Replace(strInput,"","" )  
      strInput = Replace(strInput,".jpg","" ) 
      Temizle = strInput 
End Function 

%><% 
Function Filtrele(strWords ) 
strBadWords = Array("SELECT", "DROP", "--", "INSERT", "DELETE",  "xP_", "UNION", "UPDATE", "'", "'", "", "", "", "[",  "]","script","-","<br>","SCRIPT","Script","Script","object","OBJECT","Object","Object","applet","APPLET","Applet","Applet","embed","EMBED","Embed","Embed","event","EVENT","Event","Event","document","DOCUMENT","Document","Document","cookie","COOKIE","Cookie","Cookie","form","FORM","Form","Form","on","ON","On","on","or","OR","Or","or","Document.cookie","javascript  ","vbscript " ) 

strBadWordsReplace = Array("SELECT", "DROP", "--", "INSERT",  "DELETE", "xp_", "UNION", "UPDATE", "'", "’", "<%", "<SCRIPT>",  "<META", "<",  ">","script","^","vbcrlf","SCRIPT","Script","script","object","OBJECT","Object","object","applet","APPLET","Applet","applet","embed","EMBED","Embed","embed","event","EVENT","Event","event","document","DOCUMENT","Document","document","cookie","COOKIE","Cookie","cookie","form","FORM","Form","form","on","ON","On","on","or","OR","Or","or","document.cookie","javascript:","vbscript:"  ) 
For iSQL = 0 to uBound(strBadWords ) 
strWords = Replace(strWords, strBadWords(iSQL ), strBadWordsReplace(iSQL ),1,-1,1 ) 
Next 
Filtrele = strWords 
End Function 
%><%set rsayar = baglan.execute("select * from yonetim order by id desc" )%>

yardım edenlere teşekkürler