Form Flash + Asp

[Nittho Lima]

Olá pessoal, estou com o seguinte problema.

Meu formulário, o visitante digita as informações normalmente, o formulário é enviado, quando chega no email as palavras acentuadas chegam com caracteres estranhos do tipo: "Ao,Colégio Marìzia MaiorBoa Noite!Andei visitando o site de vocês e gostei do Colégio, gostaria de saber se vocês trabalham também "

Meu form funciona no flash 6.

Agradeço a atenção:

ystem.useCodepage = true; // usar o formato Unicode, pra não haver problemas com o texto.

// ========================= ações do formulário ================================================//


// setando as variáveis

var_nome = "";
var_email = "";
var_telefone = "";
var_setor = "";
var_cidade = "";
var_mensagem = "";
var var_status:String = "";

//=====================


// atribuindo a ordem de foco dos campos quando a tecla "Tab" for pressionada
nome_txt.tabIndex = 1;
email_txt.tabIndex = 2;
telefone_txt.tabIndex = 3;
setor_txt.tabIndex = 4;
cidade_txt.tabIndex = 5;
mensagem_txt.tabIndex = 6;


// criando função que valida
// e envia os dados informados pelo usuário

function enviar() {

if (var_nome.length <= 2) {
    var_status = "Por favor, preencha seu nome corretamente";
    // se a variável tiver menos que dois digitos, alerte o usuário
}

else if (var_email.length <= 8 or var_email.indexOf("@", 0) == -1 or var_email.indexOf(".", 0) == -1) {
    var_status = "Por favor, preencha seu email corretamente";
    // se a variável tiver menos que dois digitos, alerte o usuário.
    // se não existir o caracter "@", nem o "." no meio do e-mail, alerte o usuário.
}

else if (var_telefone.length <= 1) {
    var_status = "Telefone inválido";
    // se a variável tiver menos que dois digitos, alerte o usuário.
}

else if (var_setor.length <= 1) {
    var_status = "Informe o setor (Ped, Adm, etc.)";
    // se a variável tiver menos que dois digitos, alerte o usuário.
}

else if (var_cidade.length <= 1) {
    var_status = "Preencha a cidade corretamente";
    // se a variável tiver menos que dois digitos, alerte o usuário.
}

else if (var_mensagem.length <= 1) {
    var_status = "Mensagem inválida";
    // se a variável tiver menos que dois digitos, alerte o usuário.
}


// se os dados informados passarem pela validação, executar as linhas abaixo:
else {
    
var envia = new LoadVars();
var carrega = new LoadVars();
envia.nome = nome_txt.text;
envia.email = email_txt.text;
envia.telefone = telefone_txt.text;
envia.setor = setor_txt.text;
envia.cidade = cidade_txt.text;
envia.mensagem = mensagem_txt.text;
envia.sendAndLoad("http://www.mariziamaior.com.br/novo/email.asp", carrega, "POST"); // envia a mensagem através da função "sendAndLoad".
nextScene();
LimpaCampos();
    }
}

enviar_btn.onRelease = function() {
    enviar();
}

limpar_btn.onRelease = function() {
    nome_txt.text = "";
    email_txt.text = "";
    telefone_txt.text = "";
    setor_txt.text = "";
    cidade_txt.text = "";
    mensagem_txt.text = "";
}
if(carrega!="success"){
//Falhou no envio
}
else
{
//Envio bem sucedido
}

Asp

<%
Dim iConf
Dim Flds 
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    .Update
End With
%>
<%
Dim nome, quemsou, telefone, email, cidade, estado, mensagem, objmail

nome = Request.Form("nome")
telefone = Request.Form("telefone")
email = Request.Form("email")
eusou = Request.Form("eusou")
cidade = Request.Form("cidade")
estado = Request.Form("estado")
mensagem = Request.Form("mensagem")

  Set objMail = Server.CreateObject("CDO.Message")

Set objMail.Configuration = iConf
  
  ObjMail.From = email
  ObjMail.To = "informail@terra.com.br"

  'Definições de servidor SMTP e Autenticação
  ObjMail.Subject = "Contato via site"
Objmail.HTMLBody = "Contato pelo Site Marízia Maior <br /><br />Nome : " & nome & "<br /><br />" & "Eu Sou : " & eusou & "<br /><br />" & "Cidade : " & cidade & "<br /><br />" & "Estado : " & estado & "<br /><br />" & "E-mail : " & email & "<br /><br />" & "Telefone : " & telefone & "<br /><br />" & "Mensagem : <br />" & mensagem
  Objmail.Send

response.write "E-mail enviado para contato@marizia.com ..."

  Set objmail = Nothing
%>

[bareta]

já experimentou cilocar codificação ná pagina ASP antes de enviar? ou remover do Flash?

[Nittho Lima]

Não tenho muita intimidade com esses códigos, você poderia ser mais específico.

Obrigado!

[bareta]

http://www.w3.org/International/O-HTTP-charset.pt-br.php

[Nittho Lima]

De acordo com a página q você me enviou teria q colocar esse cabeçalho no asp...

<%Response.charset="utf-8"%>

mais não deu certo.

[bareta]

então experimente alterar a codificação no flash...