Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Baixei um exemplo no site do Weverton que é o ideal para mim , mas como todo iniciante (eu acho que todos ) tem dificuldade na hora do formulario , gostaria de uma ajuda , meu servidor é o kinghost e assinei o plano asp , mas nao consigo enviar nem a pau .
esta dando uma mensagem ( UNDEFINED), sera que alguem poderia me ajudar , por favor !
Os codigos que estou modificando sao esses .
<%
'Envio de email Flash + Linguagens
'Desenvolvido por Weverton Naves (tom.naves@gmail.com) (http://wevertonn.wordpress.com)
'Scripts web sem autoria de Weverton Naves
'Flash com autoria de Weverton Naves
Dim Aspmail
set Aspmail = Server.CreateObject("SMTPsvg.Mailer")
'pegar variaveis
nome=request.Form("formNome")
email=request.Form("formEmail")
assunto=request.Form("formAssunto")
sexo=request.Form("formSexo")
interesses=request.Form("formInteresses")
news=request.Form("formNews")
mensagem=request.Form("formMsg")
'suas informaÁıes aqui
seunome="Renato"
seuemail="meuemail@hotmail.com"
Aspmail.RemoteHost = "smtp.web.kinghost.net"
Aspmail.FromName = nome 'Nome de quem envia
Aspmail.FromAddress = email 'Email de quem envia
Aspmail.AddRecipient seunome, meuemail@hotmail.com 'Email que vai receber
Aspmail.Subject = assunto 'Assunto
Aspmail.BodyText = "Ol·, vocÍ recebeu uma mensagem do flash.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Sexo :"&sexo&"<br>Assunto: "&Assunto&"<br>Interesses: "&Interesses&"<br>Newsletter: "&news&"<br> Mensagem: "&mensagem
If Aspmail.SendMail Then
response.Write("retorno=Enviado com sucesso.")
Else
response.Write("retorno=Erro ao enviar.")
End If
Set Aspmail = Nothing 'finaliza o objeto'
%>
e no flash
estou alterando assim
stop();
//variáveis
var objLV:LoadVars = new LoadVars();
var PaginasEnvio:Array = new Array("enviaMail.php","enviaMailCdonts.asp","enviaMailAspmail.asp","enviaMailAspEmail.asp","enviaMailCDOSYS.asp");
//tipo de envio, 1 para php - 2 para asp cdonts - 3 para aspmail - 4 para Persits AspEmail - 5 para Asp CDOSYS
formaEscolhida = 3;
objLV.onLoad = function(sucess:Boolean) {
if (sucess) {
retorno = this.retorno;
} else {
retorno = "Erro na comunicação";
}
gotoAndStop(4);
};
//função de envio de email
function enviaMail() {
//coloca as variaveis no loadVars
objLV.formMsg = formMsg;
objLV.formNome = formNome;
objLV.formEmail = formEmail;
objLV.formAssunto = formAssunto;
//newsletter, radiobutton
objLV.formNews = formNews.selectedData;
//sexo, combobox
objLV.formSexo = formSexo.getItemAt(formSexo.selectedIndex).label;
//interesses, checkbox
objLV.formInteresses = "";
if (form_s_artes.selected) {
objLV.formInteresses += "artes,";
}
if (form_s_design.selected) {
objLV.formInteresses += "design,";
}
if (form_s_actionscript.selected) {
objLV.formInteresses += "actionscript,";
}
if (form_s_air.selected) {
objLV.formInteresses += "air,";
}
if (form_s_flex.selected) {
objLV.formInteresses += "flex,";
}
//tira a vírgula do fim
if (objLV.formInteresses.indexOf(",") == objLV.formInteresses.length) {
trace("tem virgula no fim");
}
//enviando
//ASP cdonts
//objLV.sendAndLoad("enviaMailCdonts.asp",objLV,"POST");
//asp Aspmail
//objLV.sendAndLoad("enviaMailAspmail.asp",objLV,"POST");
//php
objLV.sendAndLoad("enviaMailAspmail.asp",objLV,"POST");
nextFrame();
}
//botão
envia.onRelease = function() {
enviaMail();
};Carregando comentários...