[Resolvido] Problemas com Frete Personalizado - Loja Exemplo

Bom dia galera,

tenho uma loja exemplo hospedada em uma revenda Locaweb, que estava com alguns problemas na hora de alterar o frete personalizado, segui as dicas dadas pelo amigo do site Surgimento.com.br do seguinte link: http://www.surgimento.com.br/blog/tutoriais/como-resolver-problema-ao-atualizar-o-frete-personalizado-da-loja-exemplo/ e o problema mudou, agora está dando o seguinte erro:

>
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 5.1 Driver][mysqld-5.0.91-community-nt]Unknown column '’0‘' in 'where clause'

/loja/painelctrl/ADM_altera_valores_frete.asp, line 52

Aqui está o código da página:

<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.5
' Data: 18/10/06
' Arquivo: ADM_altera_valores_frete.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 27/06/08
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

server.scripttimeout = 300
%>
<!--#INCLUDE FILE="funcoes/ADM_funcoes_checa_senha.asp"-->
<!--#INCLUDE FILE="funcoes/ADM_funcoes_pedidos.asp"-->
<!--#INCLUDE FILE="../funcoes/funcoes.asp"-->
<%
' Esta página só pode ser acessada se o visitante já se autenticou
checa_senha()

'Verifica se o perfil de usuário permite acesso a esta página
Call checa_perfil_admin(""&ADMTarifas&"")
'Abre o banco de dados
Call abre_conexao(conexao)

For o=0 to 30

valor_fr = Split(Replace(Request.form("P"&o),", ","#"),"#")

For I = 0 to Ubound(valor_fr)

Set RS_Produto = Server.CreateObject("ADODB.Recordset")

RS_Produto.CursorLocation = 3
RS_Produto.CursorType = 0
RS_Produto.LockType = 3

 RS_Produto.Open "SELECT codigo_frete, UF, Localidade, indicador, km, p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24, p25, p26, p27, p28, p29, p30, advalorem from Tabela_frete_personalizado WHERE codigo_frete ="&I&"", Conexao
 If request("valorPadrao") <> "" And Request("ativaValorPadrao") = "sim" Then
 'Caso o usuário defina um valor de frete único para todas as regiões
 valor_basePadrao = replace(request("valorPadrao"),".","")
 valor_basePadrao = replace(valor_basePadrao,",",".")
 Conexao.execute "UPDATE Tabela_frete_personalizado SET P"&o&"=’"&Trim( valor_basePadrao)&"‘ WHERE codigo_frete =’"&I&"‘ "
 'RS_Produto("P"&o) = valor_basePadrao

 Else
 'Caso o usuário defina um valor de frete diferente para cada região.
 valor_base = replace(valor_fr(I),".","")
 valor_base = replace(valor_base,",",".")
 Conexao.execute "UPDATE Tabela_frete_personalizado SET P"&o&"=’"&valor_base&"‘ WHERE codigo_frete =’"&I&"‘ "
 'RS_Produto("P"&o) = Trim(valor_base)
 End if
 'RS_Produto.Update

 RS_Produto.Close
 Set RS_Produto = Nothing

	Next

Next

Call fecha_conexao()
Response.redirect "ADM_valores_frete.asp?msgRet=Dados atualizados"
%>

Tenho um breve conhecimento em ASP, se puderem me ajudar a resolver esse impasse ficarei grato.

Desde ja, obrigado

Att.