Tengo un problema con un formulario hecho en flash y asp que me envía los datos pero no me aparecen las alertas en el campo de texto dinámico. Ya he leído los post relacionados y no me solucionan el problema. A ver si alguien viendo los códigos se da cuenta del error:
En flash, en el primer frame, estas son las acciones:
estado_txt.autoSize=true;
//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() {
envio_lv.nombre = nombre.text;
envio_lv.empresa = empresa.text;
envio_lv.email = email.text;
envio_lv.comentario = comentario.text;
envio_lv.sendAndLoad("http://www.xxx.com/correo.asp", recibir_lv, "POST");
//Aqui ustedes pueden cambiar de form.php a form.asp dependiendo del servidor
//que usen
}
//Función que procesa los datos recibidos del servidor
var recibir_lv:LoadVars = new LoadVars();
recibir_lv.onLoad = function(exito) {
if (exito) {
//output recibida de correo.php
if (this.output == "bien") {
trace("MENSAJE ENVIADO");
estado_txt.text="Su mensaje se ha enviado con éxito";
formulario_mc.enviar_btn.enabled=true;
}
if (this.output == "mal") {
trace("PHP NO ENVIADO");
estado_txt.text="Su mensaje no ha podido ser enviado, intentelo más tarde";
formulario_mc.enviar_btn.enabled=true;
}
} else {
trace("ERROR CONECTANDO");
estado_txt.text="Su mensaje no ha podido ser enviado, intentelo más tarde";
formulario_mc.enviar_btn.enabled=true;
}
};
function BorrarForm() {
errores_txt.text = "";
estado_txt.text = "";
nombre.text = empresa.text=email.text=comentario.text="";
}
stop();
Don de estado_text es la caja de texto dinámico donde no me funcionan los mensajes.
Este es el asp:
<%
nombre = Request.form("nombre")
comentario = Request.form("comentario")
empresa = Request.form("empresa")
email = Request.form("email")
Set mail = server.createObject("Persits.MailSender")
mail.host = "mail.xxx.com"
mail.from = "[email protected]"
mail.addAddress "[email protected]"
mail.Subject = "Formulario de xxx"
'compongo el cuerpo del mensaje
cuerpo = "Formulario Web xxx"& VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE
cuerpo = cuerpo & "Comentario: " & comentario & VBNEWLINE
cuerpo = cuerpo & "Empresa: " & empresa & VBNEWLINE
cuerpo = cuerpo & "Email: " & email & VBNEWLINE
mail.body = cuerpo
On Error Resume Next
mail.send
if Err ><0 then
Response.Write "&estado=Error al procesar el formulario, intentelo mas tarde"
else
Response.Write "&estado=Mensaje enviado correctamente"
end if
%>
Gracias a todos por las molestias...
