função tira acento

[formalivre 0]

coloquei está função para retirar acentos no topo da minha página 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 IfEnd Function%>

está página está enviando um formulário via e-mail utilizando o CDOSYSMail e as variaveis estão vindo de um Flash.minha dúvida é em que parte do código abaixo coloco a função TiraAcento?

'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message")'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon'e-mail do remetente objCDOSYSMail.From = request.Form("email")'e-mail do destinatário objCDOSYSMail.To = "xxx@xxx.com"'assunto da mensagemobjCDOSYSMail.Subject = "Contato"'conteúdo da mensagem strBody = "Dados do contato" & vbCrLf & vbCrLf & _"<br><br>Nome: "& Request("nome") & vbCrLf & vbCrLf & _"<br>E-Mail: "& Request("email") & vbCrLf & vbCrLf & _"<br>Tel.: "& Request("telefone") & vbCrLf & vbCrLf & _"<br>Mensagem: "& Request("mensagem")strBody = strBody & "." objCDOSYSMail.HtmlBody = strBody'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = strBody'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.redirect ("obrigado.htm" )

[jrcardozo 4]

vai depender de qual valor você quer tirar o acento, mas seria assim

objCDOSYSMail.HtmlBody = tiraacento(strBody)

a function você coloca em qualquer parte da página asp

[formalivre 0]

não consigo entender. fiz assim:

<%'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message")'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon'e-mail do remetente objCDOSYSMail.From = request.Form("email")'e-mail do destinatário objCDOSYSMail.To = "xxx@xxx.com"'assunto da mensagemobjCDOSYSMail.Subject = "Contato"'conteúdo da mensagem strBody = "Dados do contato" & vbCrLf & vbCrLf & _"<br><br>Nome: "& Request("nome") & vbCrLf & vbCrLf & _"<br>E-Mail: "& Request("email") & vbCrLf & vbCrLf & _"<br>Tel.: "& Request("telefone") & vbCrLf & vbCrLf & _"<br>Mensagem: "& Request("mensagem")strBody = strBody & "." objCDOSYSMail.HtmlBody = tiraacento(strBody)'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = strBody'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.redirect ("obrigado.htm" )%><%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 IfEnd Function%>

coloquei a função embaixo e coloquei como você me passou

objCDOSYSMail.HtmlBody = tiraacento(strBody)

e agora não estou mais recebendo os e-mails.o que pode ser?