Função para remover acentos

[Cazanova 0]

Pessoal, oque falta na minha função para ela funcionar?

 

<%Function RemoveAcentos( strTexto )	Dim intCont	Dim arrSymbols	arrSymbols = Array("Á","Í","Ó","Ú","É","Ä","Ï","Ö","Ü","Ë","À","Ì","Ò","Ù","È","Ã","Õ")	Dim arrSymbolsHtml	arrSymbolsHtml = Array("Á","Í","Ó","Ú","É","Ä","Ï","Ö","Ü","Ë","À","Ì","Ò","Ù","È","Ã","Õ")	Dim strResultado	intCont = 0	strResultado = strTexto	Do While intCont < (UBound(arrSymbols)+1)		strResultado = Replace(strResultado, arrSymbols(intCont), arrSymbolsHtml(intCont))		intCont = intCont + 1	LoopEnd Functionnome = "ÁÍÓ"email = "ÚÉÄ"HTML = ""HTML = HTML & ""HTML = HTML & "" & RemoveAcentos(nome) & " / "HTML = HTML & "" & RemoveAcentos(email) & ""%><%=HTML%>

[jothaz 1]

Camarada,

 

Assim sem pensar mto tenta isso:

Function RemoveAcentos( strTexto )	Dim intCont	Dim arrSymbols	arrSymbols = Array("Á","Í","Ó","Ú","É","Ä","Ï","Ö","Ü","Ë","À","Ì","Ò","Ù","È","Ã","Õ")	Dim arrSymbolsHtml	arrSymbolsHtml = Array("Á","Í","Ó","Ú","É","Ä","Ï","Ö","Ü","Ë","À","Ì","Ò","Ù","È","Ã","Õ")	Dim strResultado	intCont = 0	strResultado = strTexto	Do While intCont < (UBound(arrSymbols)+1)		strResultado = Replace(strResultado, arrSymbols(intCont), arrSymbolsHtml(intCont))		intCont = intCont + 1	Loop'--'--Insira esta parte   RemoveAcentos = strResultado End Function

Na linha RemoveAcentos = strResultado você esta retornando ovalor para a função.

 

t+

[Cazanova 0]

valeu !! funcionou