Jump to content


VCdesign

Member Since 08/03/2010
Offline Last Active 28/10/2010, 16:06
-----

#997225 Formulario Aspemail

Posted by VCdesign on 24/03/2010, 17:33

Resolvido o problema!
Vou deixar aqui a resposta para caso alguem perdido (como eu) esteja com o mesmo problema.

Formulario Flash + ASP:

1. Certifique-se que o servidor tem o componente Aspemail instalado.

2. Codigo ActionScript 2.0 dentro do botao enviar (bem simples, pois qdo inventei moda com codigos para o Flash limpar, dar mensagem, etc... dava pau):

on (release) {
 	// Endereco da pagina ASP para o botao enviar funcionar
getURL("http://www.coloque aqui seu site.com/nome da sua pagina.asp?nome da variavel colocada na caixa do formulario Flash="+_parent.mesmo nome da variavel+"&variavel="+_parent.mesma variavel+"&variavel="+_parent.mesma variavel+"&variavel="+_parent.mesma variavel+"&"&variavel="+_parent.mesma variavel, "_self", "GET");


//o trace vai mostrar no output se o flash esta puxando as variaveis. Se vier undefined eh pq a variavel esta dentro de algum movieclip que vc criou e vc deve escrever o nome depois de _parent, ex: "&company="+_parent.nome do movieclip.company
 
trace("Name " + _parent.nome da variavel);
trace("Company " + _parent.nome da variavel);
trace("Telephone " + _parent.nome da variavel);
trace("E-mail " + _parent.nome da variavel);
trace("Message " + _parent.nome da variavel);

}

No ASP (no final, depois que a pessoar preencheu o formulario e enviou, o asp vai redirecionar para a pagina principal do seu site, se der erro ele vai dizer o problema):

<%
Set Mail=Server.CreateObject("Persits.MailSender")

Mail.Host="nome do seu host - smtp"
Mail.Subject="assunto do seu email - ex: Contato do site tal"
Mail.From="destinatario@empresa.com"
Mail.AddAddress "destinatario@empresa.com"
Mail.Body= "Name: " & Request.QueryString("nome da variavel que vc colocou no Flash") & Chr(13) & _
"Company: " & Request.QueryString("nome da variavel que vc colocou no Flash") & Chr(13) & _
"Telephone: " & Request.QueryString("nome da variavel que vc colocou no Flash") & Chr(13) & _ 
"E-mail: " & Request.QueryString("nome da variavel que vc colocou no Flash") & Chr(13) & _
"Message: " & Request.QueryString("nome da variavel que vc colocou no Flash")

On Error Resume Next ' catch errors
Mail.Send
If Err <> 0 Then ' error occurred
response.write(Err.Description)
else
response.redirect("http://www.nome do seu site.com")
End If

%>

Tudo bem simples, mas funcional! Tudo que esta em negrito eh o que vc deve mudar. De resto, nao toque em nenhuma virgula! rsrsrs...
Espero que ajude mais alguem!


IPB Skin By Virteq