Busca em asp

[Patrique 0]

Qual a mensagem de erro que aparece?

[celinho_macaense 0]

Esse erro:

Microsoft VBScript compilation error '800a0408'

 

Invalid character

 

/noticia/buscar.asp, line 46

 

Response.Charset="ISO-8859-1" %

------------------------------^

[Patrique 0]

velho poste a linha 46 do seu code ae

[celinho_macaense 0]

da 41 a 65

 

response.write "" & RS("Classe") & "<BR>"
response.write ("<a href=""ver.asp?id=" & RS("ID") & "&classe=" 	& RS("Classe1") & """>" & RS("Topico") & "</a>") & "<BR><BR>"
RS.MoveNext
Wend
end if
 %> 
<%
Function RemoveAcentos(ByVal Texto)
    Dim ComAcentos
    Dim SemAcentos
    Dim Resultado
        Dim Cont
    'Conjunto de Caracteres com acentos
    ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
    'Conjunto de Caracteres sem acentos
    SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"
    Cont = 0
    Resultado = Texto
    Do While Cont < Len(ComAcentos)
        Cont = Cont + 1
        Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1))
    Loop
    RemoveAcentos = Resultado
End Function
%>