Tengo realizado un formulario en flash que interactúa con asp. He probado su correcto funcionamiento al diseñarlo (un swf, un html y el asp) pero ahora que lo he insertado (creando el MC dentro de una pelicula) me encuentro que falla no pudiendo enviar los datos.
Copio por partes:
Formulario (primer fotograma)
//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_txt.text;
envio_lv.telefono = telefono_txt.text;
envio_lv.email = email_txt.text;
envio_lv.consulta = consulta_txt.text;
envio_lv.sendAndLoad("email.asp", recibir_lv, "POST");
}
//Función que procesa los datos recibidos del servidor
recibir_lv.onLoad = function(exito) {
if (exito) {
estado_txt.text = this.estado;
} else {
//Muestra un mensaje de error en negrita
estado_txt.text = "Error en la aplicación de correo";
}
};
Script del Boton
on (release) {
estado_txt.text = "Enviando su correo ...";
enviarMail();
}
Código de la pagina ASP que levanta las variables y envía el mail:
<%
Response.Buffer = True
Dim nombre, telefono, email
Dim consulta
nombre=Request.Form("nombre")
telefono=Request.Form("telefono")
email=Request.Form("email")
consulta=Request.Form("consulta")
Dim HTML
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html lang=""es"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Consulta desde la Web</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
HTML = HTML & "<font size =""2"" face=""Arial"">"
HTML = HTML & "<div align=""center""><strong>Consulta desde la Web</strong></div>"
HTML = HTML & "Nombre y Apellido: <strong>" & nombre & "</strong><br>"
HTML = HTML & "Telefono: <strong>" & telefono & "</strong><br>"
HTML = HTML & "Email: <strong>" & email & "</strong><br>"
HTML = HTML & "Consulta: <strong>" & consulta & "</strong><br>"
HTML = HTML & "</font>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
Set link = CreateObject("CDONTS.Newmail")
link.mailFormat=0
link.bodyFormat=0
link.From = request.form("email")
link.To = "[email protected]"
link.Subject = "Consulta desde la Web"
link.Body = HTML
link.Send
Set link = Nothing
%>
&estado=Mensaje enviado
Aclaro que la pagina ASP se encuentra en el mismo nivel que la pagina HTML que lleva el SWF, tal como funcionaba el formulario solo con su respectivo HTML y ASP.
Lo que imagino pueda suceder es un error en la búsqueda de la pagina ASP y posteriormente la confirmación del envío que retorna al SWF.
El punto es que no sale y el script del flash lanza ERROR EN LA APLICACION DE CORREO.
Bueno, como siempre que he preguntado algo, agradeceré muchísimo cualquier sugerencia o idea, todo es bienvenido.
Un saludo!
