Removendo acentos com ASP

Essa função é ótima para sistemas de busca, pois o ASP ignora os acentos dos registros no banco de dados porém os leva em consideração quando as páginas os recebem via método GET.

essa função remove os acentos

<%
Function RemoveAcentos(Texto)
    'Conjunto de Caracteres com acentos
    ComAcentos = "Á Í Ó Ú É Ä Ï Ö Ü Ë À Ì Ò Ù È Ã Õ Â Î Ô Û Ê á í ó ú é ä ï ö ü ë à ì ò ù è ã õ â î ô û ê Ç ç"
    ComAcentosA = split(comAcentos," ")
    'Conjunto de Caracteres sem acentos
    SemAcentos = "A I O U E A I O U E A I O U E A O A I O U E a i o u e a i o u e a i o u e a o a i o u e C c"
    SemAcentosA = split(SemAcentos," ")

    Resultado = Texto
   
    for o = 0 to ubound(ComAcentosA)
    Resultado = Replace(Resultado, ComAcentosA(o), SemAcentosA(o))
    next
    RemoveAcentos = Resultado
End Function

E para chama-la basta

removeAcentos("canção")

e então ela retorna cancao