Problema com form flash+asp

[michalski 0]

Caros amigos e aimgas,

 

Peguei na net um modelo de form bem interessante falsh+asp.

Dei umas modificadas mas acho que tem alguma ou algumas coisas erradas.

Estou disponibilizando os arquivos neste Link

 

Se perceberem do lado do form tem um quadro de texto onde gostaria que aparecesse a msg: Enviado com Sucesso!

 

 

Agradeço desde já a ajuda!

 

 

Abs,

[Weverton N 0]

Amigo. Utilize a classe loadVars para enviar o conteúdo.

Coloque este código no seu primeiro frame:

 

 

var envia:LoadVars = new LoadVars();
var recebe:LoadVars = new LoadVars();
recebe.onLoad = function(sucess:Boolean) {
	if (recebe.retorno == "ok") {
		texto = "Enviado com sucesso!";
	} else {
		texto = "Problemas ao enviar.";
	}
	trace("bla")
};
function EnviarDados() {
	envia.nome = nome;
	envia.email = email;
	envia.cidade = cidade;
	envia.mensagem = mensagem;
	envia.sendAndLoad("http://www.michalski.com.br/rafaelmichalski/contactar.asp",recebe,"POST");
}

No botão, coloque isto:

 

on (release) {
	EnviarDados();
}

Agora, para que de certo, no fim do envio do seu asp, você deve escrever (reponse.wirte) isto, e somente isto:

 

retorno=ok

[michalski 0]

Agora, para que de certo, no fim do envio do seu asp, você deve escrever (reponse.wirte) isto, e somente isto:

 

retorno=ok

Grande Weverton,

 

Muito obrigado pelo tempo prestado para me ajudar. Só não entendi onde eu coloco exatamente o "retorno=ok".

Se entendi você disse pra eu colocar esse código dentro do arquivo contactar.asp certo?

 

o final do arquivo contactar.asp está assim:

If Err <> 0 Then
	  Response.Write  "Mensagem enviado com SUCESSO. Logo entraremos em contato."
End If

Set Mail = Nothing

%>

[Weverton N 0]

Deixe assim:

 

If Err <> 0 Then
	  Response.Write  "retorno=ok"
End If

Set Mail = Nothing

%>

[michalski 0]

Deixe assim:

 

If Err <> 0 Then
	  Response.Write  "retorno=ok"
End If

Set Mail = Nothing

%>

Weverton,

 

Fiz o teste online mas está dando uma das msg de email que você colocou: "Problemas ao enviar".

 

 

Abs,

[Weverton N 0]

Coloque o onLoad assim, pra gente debuggar:

 

recebe.onLoad = function(sucess:Boolean) {
trace("Sucesso: "+sucess);
trace("retorno: "+recebe.retorno);
	if (recebe.retorno == "ok") {
		texto = "Enviado com sucesso!";
	} else {
		texto = "Problemas ao enviar.";
	}
	trace("bla")
};

Assim ele vai traçar o retorno. Posta o que aparecer no output. Daí a gente ve se tá dando certo.

[michalski 0]

Coloque o onLoad assim, pra gente debuggar:

 

recebe.onLoad = function(sucess:Boolean) {
trace("Sucesso: "+sucess);
trace("retorno: "+recebe.retorno);
	if (recebe.retorno == "ok") {
		texto = "Enviado com sucesso!";
	} else {
		texto = "Problemas ao enviar.";
	}
	trace("bla")
};

Assim ele vai traçar o retorno. Posta o que aparecer no output. Daí a gente ve se tá dando certo.

No output não deu erro, mas quando faço o teste online a msg "Problemas ao enviar!" continua aparecendo.

Outra coisa: o arquivo .asp está na mesma pasta do swf, o caminho do arquivo tem que ser completo ou basta colocar só o nome do arquivo.asp?

 

Abs,

[carneirinho 7]

Será que oo problema não está no asp?Ele só vai printar a msg de enviado com sucesso se o email do aspemail funcionar, faz o seguinte, coloque essas linhas:

 

Origem = "email@teste.com"

nome = "João"

cidade = "São Paulo"

Mensagem = "Funcionaaaaaaa"

 

no lugar de:

 

Origem = Request("email")

nome = Request("nome")

cidade = Request("cidade")

Mensagem = Request("mensagem")

 

e ve se ele envia o email acessando somente o link em asp

[michalski 0]

Será que oo problema não está no asp?Ele só vai printar a msg de enviado com sucesso se o email do aspemail funcionar, faz o seguinte, coloque essas linhas:

 

Origem = "email@teste.com"

nome = "João"

cidade = "São Paulo"

Mensagem = "Funcionaaaaaaa"

 

no lugar de:

 

Origem = Request("email")

nome = Request("nome")

cidade = Request("cidade")

Mensagem = Request("mensagem")

 

e ve se ele envia o email acessando somente o link em asp

 

Continua dando erro!

[Weverton N 0]

Posta o .fla. Em .zip.

[carneirinho 7]

Se deu erro só no asp sem tentar mandar o email pelo flash, acessando a pagina.asp, dai precisa primeiro resolver o problema no asp, porque no flash parece estar tudo certo, você acessou o link pelo endereço do asp?Que erro que deu?

[michalski 0]

Posta o .fla. Em .zip.

Gente, o .fla está AQUI.

 

 

Obrigado pela força!

 

 

Abs,

[Weverton N 0]

Amigo. Vi seu .fla.

Seguinte, o erro é no asp. Mas tira a linha loadVariables("") de dentro da actions do botão enviar, pra não dar conflito.

 

É o seguinte, você sabe se o seu servidor tem o Persits.MailSender instalado para enviar o email???

Abs.