• 08-07-2010, 10:39:56
    #1
    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
  • 08-07-2010, 10:50:32
    #2
    Sanırım odbc ye bağlanamadı
    Denetim masasından odbc ayarları yapılıyordu
    Onu yaptınmı
  • 08-07-2010, 10:53:39
    #3
    Sorun yeni taşıdığınız sunucuda görünüyor.

    Sunucu yetkililerine bildirin hatayı.
  • 08-07-2010, 11:13:16
    #4
    Peki teşekkürler