LoadVars

Pessoal, to com um formulario mas acho que esta com problemas pois, on line, ao clicar no botao enviar fica enviando sem parar (firefox pois no internet explorer, nada acontece, o navegador nao denuncia nenhum carregamento de pagina.

É o seguinte: ao clicar no botao enviar, puxa um ASP, via LOADVARS e, teoricamente mandaria uma msg pro recipiente, com os dados do formulario mas há algo estranhamente bizarro...

codigo no 1º frame:

System.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_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;
mensagem_txt.tabIndex = 4;

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

function enviar() {
if (var_nome.length <= 2) {
var_status = "Preencha seu nome.";

// 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 = "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 <= 8) {
var_status = "Preencha seu telefone.";

// se a variável tiver menos que oito digitos, alerte o usuário. }

else if (var_mensagem.length <= 1) {
var_status = "Digite a mensagem.";

// 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(); // cria um objeto para enviar os dados
var carrega = new LoadVars(); // cria um objeto para receber os dados

carrega.nome = nome_txt.text; // pegar os dados da variável var_nome
carrega.email = email_txt.text; // pegar os dados da variável var_email
carrega.telefone = telefone_txt.text; // pegar os dados da variável var_telefone
carrega.mensagem = mensagem_txt.text; // pegar os dados da variável var_mensagem
// envia a mensagem através da função "sendAndLoad".

envia.sendAndLoad("[http://www.sitesite.com.br/email.asp",](http://www.sitesite.com.br/email.asp) envia, "POST");
nextScene();
}

}
enviar_btn.onRelease = function() {
enviar();
}
apagar_btn.onRelease = function() {
nome_txt.text = "";
email_txt.text = "";
telefone_txt.text = "";
mensagem_txt.text = "";
status_txt.text = "";
}

eis o codigo ASP - email.asp:

<%

Dim iMail, Nome, Email, Telefone, Mensagem

Nome = Request.form("var_nome")
Email = Request.form("var_email")
Mensagem = Request.form("var_mensagem")
meu_email = "e-mail que recebera os dados do formulario"
Telefone = Request.form("var_telefone")

corpo = "Nome:" & Nome & "<BR>"
corpo = corpo & "E-mail:" & Email & "<BR>"
corpo = corpo & "Telefone:" & Telefone & "<BR>"
corpo = corpo & "Mensagem:" & Mensagem & "<BR>"

Set iMail = CreateObject("CDONTS.NewMail")
iMail.From = email
iMail.To = meu_email
iMail.Subject = "contato_site"
iMail.MailFormat = 0
iMail.BodyFormat = 0
iMail.Body = corpo
iMail.Send

Set iMail = nothing
%>
Alguem pode ajudar com esse codigo? Já me certifiquei no servidor se eles possuem CDONTS e a resposta foi positiva.

Alguma alma caridosa?

Obrigado!