Merhabalar .

ASP Bir sitem var . Sitemi başka bir sunucuya tasıdıgımda

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/functions.asp, line 48

Böyle bir hata alıyorum. Functions.asp dosyasıda şu şekilde :

<!-- #include file="templates.asp"-->
<style>
img{
  border:none;}
</style>
<style type="text/css">
img, div , td , th , tr , table , a , div , span { 
  behavior: url(iepngfix.htc);}
</style>
 <%
 Set Conn = Server.CreateObject("adodb.Connection")
'Conn.open "DRIVER={MySQL ODBC 3.51 Driver}; Server=localhost; Port=3306; UID=root; pwd=root; db=formmuhendislik; stmt=SET NAMES 'latin5'"
 Conn.open "DRIVER={MySQL ODBC 3.51 Driver}; Server=xxxxxx; Port=3306; UID=xxxx; pwd=xxxxxxx; db=xxxxxx; stmt=SET NAMES 'latin5'"

Function GetDbCol(param1,param2,param3)
	'param1 : table
	'param2 : coloumn
	'param3 : sql addition
	set Rs = Server.CreateObject("adodb.recordset")
	Rs.open "Select * from " & param1 & " " & param3,Conn,1,3
		if not Rs.eof then
			ReturnVal = Rs(param2)
		Else
			ReturnVal = ""
		End if
	Rs.Close
	Set Rs = nothing
	GetDbCol = ReturnVal
End Function

Function SetDbCol(param1,param2,param3,param4)
	'param1 : table
	'param2 : coloumn
	'param3 : sql addition
	'param4 : new value
	set Rs = Server.CreateObject("adodb.recordset")
	Rs.open "Update " & param1 & " set " & param2 & "='" + param4 + "' " & param3,Conn,1,3
	Set Rs = nothing
	if err<>0 then
		SetDbCol = false
	else
		SetDbCol = true
	end if
End Function

Function nRS(SQL)
	Set RSCOMMON = Server.CreateObject("adodb.recordset")
	RSCOMMON.open SQL,Conn,1,3 (48. satır)
	set nRS = RSCOMMON
	Set RSCOMMON = nothing
End Function

Function meta(table,id,column)
	meta = getDbCol("meta",column," where xid = " & id & " and tablo = '" & table & "'")
End Function

Sub Hakkimizda
	Response.Write(getDbCol("pages","hakkimizda",""))	
End Sub

Sub Anasayfa
	Response.Write(getDbCol("pages","anasayfa",""))	
End Sub
%>

Hatayı nasıl düzeltebilirim ?

Site adresi : 1 , 2