He realizado un formulario de email con ASP, siguiendo las instrucciones que he visto por ahi, el formulario funciona perfecto si lo pongo de la siguiente manera...
actionscript archivo fla
Código :
//Declaro las variables para enviar y para recibir
var envio_lv:LoadVars = new LoadVars();
var recibir_lv:LoadVars = new LoadVars();
//Función que envia el forumlario
function enviarMail() {
//validacion si campos estan vacios
if (email_txt.text.length && nombre_txt.length && empresa_txt.length && telefono_txt.length && pais_txt.length && ciudad_txt.length && consulta_txt.length) {
//validacion campo EMail
if (email_txt.text.indexOf("@") != -1 && email_txt.text.indexOf(".") != -1) {
//variables de loadVars
envio_lv.nombre = nombre_txt.text;
envio_lv.email = email_txt.text;
envio_lv.empresa = empresa_txt.text;
envio_lv.telefono = telefono_txt.text;
envio_lv.pais = pais_txt.text;
envio_lv.ciudad = ciudad_txt.text;
envio_lv.consulta = consulta_txt.text;
//envio las variables y me tiene que avisar en "recibir_lv" =D
envio_lv.sendAndLoad("email.asp", recibir_lv, "POST");
} else {
estado_txt.text = "Su Email es invalido";
}
} else {
estado_txt.text = "Faltan datos que son necesarios";
}
}
//Función que procesa los datos recibidos del servidor
recibir_lv.onLoad = function(exito) {
if (exito) {
estado_txt.text = "Mensaje enviado";;
} else {
//Muestra un mensaje de error en negrita
estado_txt.text = "Error en la aplicación de correo";
}
};el ASP:
Código :
<%
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
Email = Request.Form("email")
Destino = "[email protected]" 'Email de destino
Nombre = Request.Form("nombre")
Empresa = Request.Form("empresa")
oMail.Send Email, Destino, Nombre, Empresa
Set oMail = Nothing
%>
estado=Mensaje enviado :DPero al momenot de agregar en el ASP más campos para poder visualizarlos en el email que recibo, por ejemplo...
Código :
<%
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
Email = Request.Form("email")
Destino = "[email protected]" 'Email de destino
Nombre = Request.Form("nombre")
Empresa = Request.Form("empresa")
Telefono = Request.Form("telefono")
Pais = Request.Form("pais")
Ciudad = Request.Form("ciudad")
Consulta = Request.Form("consulta")
oMail.Send Email, Destino, Nombre, Empresa
Set oMail = Nothing
%>
estado=Mensaje enviado :Dme aparece el mensaje "Error en la aplicación de correo", ya no se que hacer, please helppppppp.
