Problemas com função

[Guilherme Teixeira]

Olá amigos eu fiz a seguinte função

function acentos(var)
var = Replace(var, "à", "à")
var = Replace(var, "á", "á")
var = Replace(var, "â", "â")
var = Replace(var, "ã", "ã")
var = Replace(var, "ä", "ä")

var = Replace(var, "è", "è")
var = Replace(var, "é", "é")
var = Replace(var, "ê", "ê")
var = Replace(var, "ë", "ë")

var = Replace(var, "ì", "ì")
var = Replace(var, "í", "í")
var = Replace(var, "î", "î")
var = Replace(var, "ï", "ï")

var = Replace(var, "ò", "ò")
var = Replace(var, "ó", "ó")
var = Replace(var, "ô", "&ocirc")
var = Replace(var, "õ", "õ")
var = Replace(var, "ö", "ö")

var = Replace(var, "ù", "ù")
var = Replace(var, "ú", "ù")
var = Replace(var, "û", "û")
var = Replace(var, "ü", "ü")

var = Replace(var, "À", "À")
var = Replace(var, "Á", "Á")
var = Replace(var, "Â", "Â")
var = Replace(var, "Ã", "Ã")
var = Replace(var, "Ä", "Ä")

var = Replace(var, "È", "È")
var = Replace(var, "É", "É")
var = Replace(var, "Ê", "Ê")
var = Replace(var, "Ë", "Ë")

var = Replace(var, "Ì", "Ì")
var = Replace(var, "Í", "Í")
var = Replace(var, "Î", "Î")
var = Replace(var, "Ï", "Ï")

var = Replace(var, "Ò", "Ò")
var = Replace(var, "Ó", "Ó")
var = Replace(var, "Ô", "Ô")
var = Replace(var, "Õ", "Õ")
var = Replace(var, "Ö", "Ö")

var = Replace(var, "Ù", "Ù")
var = Replace(var, "Ú", "Ú")
var = Replace(var, "Û", "Û")
var = Replace(var, "Ü", "Ü")

var = Replace(var, "ç", "ç")
var = Replace(var, "Ç", "Ç")

var = Replace(var, "não", "ñ")
var = Replace(var, "não", "Ñ")

var = Replace(var, "´", "´")
var = Replace(var, "`", "`")
var = Replace(var, "¨", "¨")
var = Replace(var, "^", "&cReplaceirc;")
var = Replace(var, "~", "˜")
end function

e estou a chamando assim

nome = acentos(request.Form("nome_in"))

por que a variavel nome fica em branco?

Valeuuuuu

Editado Abril 21, 2009 por Guilherme Teixeira

[bareta]

fica em branco porque a função não grava nada em acentos...

para corrigir:

var = Replace(var, "~", "˜")
acentos=var
end function