Erro em update em mysql

[ConteudoAnimal.com.br 0]

Ola Pessoal,

 

Estou com 1 problema de acesso no mysql

 

Pego o campo manchete da tabela Noticias , tiro os acentos via função e preciso jogar o resultado sem acentos para outro campo da tabela noticias chamado url

 

O problema é que na hora de fazer o update.... dá o seguinte erro:

 

ADODB.Recordset error '800a0cb3'

 

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

 

/dbadmin.asp, line 37

 

 

Segue o codigo abaixo do www.conteudoanimal.com.br/dbadmin.asp :

 

Function SemAcento(txt)

Dim xc, xs, saida, posicao, caract, X

xc = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ'"

xs = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"

saida = ""

If txt <> "" then

For X = 1 To Len(txt)

caract = Mid(txt,X,1)

posicao = InStr(xc,caract)

If posicao > 0 Then

caract = mid(xs,posicao,1)

end if

saida = saida & caract

Next

SemAcento = saida

End If

End Function

 

 

Set Conn = Server.CreateObject("ADODB.Connection")

conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=mysql57.conteudoanimal.com.br;PORT=3306;...dados de login e senha...;OPTION=3;")

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

set rs = conn.execute ("Select * from Noticias")

if not rs.eof then

while not rs.eof

 

url = SemAcento(manchete)

 

sql = rs.update

 

rs.Movenext

wend

end if

[Mário Monteiro 179]

Está fazendo em ASP certo?

 

Creio que o erro esteja na programação e não no DB