Tirar Acentuação em ASP

Function TiraAcento(ByVal Palavra)
        cacento = “àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ^~´`’”
        sacento = “aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN”
        texto = “”
        If Palavra <> “” Then
            For x = 1 To Len(Palavra)
                letra = Mid(Palavra, x, 1)
                pos_acento = InStr(cacento, letra)
                If pos_acento > 0 Then
                    letra = Mid(sacento, pos_acento, 1)
                End If
                texto = texto & letra
            Next
            TiraAcento = texto
        End If
    End Function

————————————————————————————
chamando a função

CODEresponse.write(TiraAcento(“fórum Imasters.Programação é tudo”))