[Resolvido] Erro com Caracteres Especiais ( CDOSYS )
Bom tarde a todos, estou com erro quando o visitante do site X preenche o formulário com caracteres "especiais" ( á , ç , ã , @ , # etc )
imagino que tenha a ver com ASCII - UTF-8, mas não sei como colocar isso no código.
<%@ Language=VBScript%>
<html>
<head>
<title>Formulário</title>
</head>
<body><%
Dim cBody, n
cBody = ""
cBody = cBody & "Nome: " & Request.Form("Nome") & "<BR>"'vbCrLf
cBody = cBody & "Email: <a href='mailto:" & Request.Form("Email") & "'>" & Request.Form("Email") & "</a>" & "<BR>"'vbCrLf
cBody = cBody & "Assunto: " & Request.Form("Assunto") & "<BR>"'vbCrLf
cBody = cBody & "Comentário: " & Request.Form("Comentario") & "<BR>"'vbCrLf'## Configuração do cabeçalho da mensagem
sDestinatario = "xxxx@yyyyy.com"
sRemetente = "xxxx@yyyyy.com"
sResponder = ""
sAssunto = "Cadastro de Empresa"
sMensagem = ""
'## configurações do componente CDOSYS
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") = "localhost"
'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
' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
'configura o remetente
objCDOSYSMail.From = sRemetente
'configura o destinatário
objCDOSYSMail.To = sDestinatario
'configura o reply-to
objCDOSYSMail.ReplyTo = sResponder
'configura o assunto
objCDOSYSMail.Subject = sAssunto
'configura o conteúdo da mensagem
'objCDOSYSMail.TextBody = sMensagem
'### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ###
'para envio da mensagem no formato html altere o TextBody para HtmlBody
objCDOSYSMail.HtmlBody = cBody
sMensagem = sMensagem & cBody
'objCDOSYSMail.fields.update
' ### ENVIA O E-MAIL ###
objCDOSYSMail.Send
' ### DESTRÓI OS OBJETOS ###
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
'response.write "Mensagem enviada para: "&sDestinatario&"..."
Response.Redirect("http://www.XXXX.html")
%>
</body>
</html>Desde Já, fica meu agradecimento
Discussão (12)
Carregando comentários...