el problema es que lo ha probado de mil formas y la que mas se acerca es la del tutorial de loadvars, usando ese codigo y el mail.asp lo que ocurre es que se queda permanentemente el status de enviando el mensaje... y ya mas nunca sale otro mensaje ni error en el servidor, ni undefined, ni su mensaje ha sido enviado...
pueden verlo aquí:(no es publicidad para mi web) es la segunda que hago y como es una sola pelicula se tendran que meter en la seccion de contacto, ya de paso podrian criticarla y decirme que cambiarian, etc, pero mi principal preocupacion es conseguir hacer funcionar el formulario, no tiene codigo php, si asp.
www.tresdesign.net
en cada loadvar tengo puesto como nombre de instancia el nombre del campo seguido de txt y en el y en el fieldname solamente el nombre del campo sin txt, ejemplo
primer campo loadvar:
-nombre de instancia: nombre_txt
-field name: nombre
tengo 4 campos: nombre_txt, email_txt, asunto_txt y mensaje_txt
codigo en primer frame:
Código :
var envio_lv:LoadVars = new LoadVars();
var recibir_lv:LoadVars = new LoadVars();
function enviarMail() {
envio_lv.nombre = nombre_txt.text;
envio_lv.email = email_txt.text;
envio_lv.asunto = titulo_txt.text;
envio_lv.mensaje = mensaje_txt.text;
envio_lv.sendAndLoad("email.asp", recibir_lv, "POST");
}
recibir_lv.onLoad = function(exito) {
if (exito) {
estado_txt.text = this.estado;
} else {
estado_txt.text = "Error en la aplicación de correo";
}
};codigo boton enviar:
Código :
on (release) {
mensaje_txt.text = "Enviando su correo ...";
nombre_txt.text = "";
email_txt.text = "";
asunto_txt.text = "";
enviarMail();
}codigo boton borrar:
Código :
on (release) {
mensaje_txt.text = "";
nombre_txt.text = "";
email_txt.text = "";
asunto_txt.text = "";
}codigo asp:
Código :
<%
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
Remitente = Request.Form("email")
Destino = "[email protected]" 'Email de destino
Nombre = Request.Form("nombre")
Asunto = Request.Form("asunto")
Mensaje = Request.Form("mensaje")
oMail.Send Remitente, Destino, Asunto, Mensaje, Nombre
Set oMail = Nothing
%>
estado=Mensaje enviadosi con esto no consiguen dar con la solucion y necesitan mas datos podria enviar los archivos de la web a vuestro correo.
muchas gracias por su ayuda.
