Comunidad de diseño web y desarrollo en internet online

FLASH Y ASP

Citar            
MensajeEscrito el 07 Abr 2008 09:45 am
TENGO UN PROBLEMA AL ENVIAR CORREO DESDE FLASH UTILIZO SENDANDLOAD, LLAMANDO A UNA PAGINA ASP, PERO NO ENVIA ABSOLUTAMENTE NADA. EN CAMBIO SI LO HAGO DIRECTAMENTE DESDE LA PAGINA DE ASP SI QUE VA...

EL CODIGO EN FLASH SE ENCUENTRA EN EL PRIMER FOTOGRAMA Y ES EL SIGUIENTE:

function BorraCampos() {
txtNombre.text="";
txtApellidos.text="";
txtDomicilio.text="";
txtLocalidad.text="";
txtProvincia.text="";
txtTelefono.text="";
txtMail.text="";
txtComentarios.text="";
};

btnListener = new Object();
btnListener.click = function(evObj){
BorraCampos();
};
btnLimpiar.addEventListener("click", btnListener);

btnListener2 = new Object();
btnListener2.click = function(evObj){
validacion = ValidaCampos ();
//if (Validacion) {
//enviarMail();
//};
};
btnEnviar.addEventListener("click", btnListener2);

// Función que envía el formulario
function enviarMail() {
// Declaro las variables para enviar y para recibir
var envio_lv:LoadVars = new LoadVars();
var recibir_lv:LoadVars = new LoadVars();

envio_lv.asunto = "Solicitud Información";
envio_lv.email = txtMail.text;
envio_lv.nombre = txtNombre.text;
envio_lv.apellidos = txtApellidos.text;
envio_lv.domicilio = txtDomicilio.text;
envio_lv.localidad = txtLocalidad.text;
envio_lv.provincia = txtProvincia.text;
envio_lv.telefono = txtTelefono.text;
envio_lv.cuerpo = txtComentarios.text;

envio_lv.sendAndLoad("email.asp", recibir_lv, "POST");

recibir_lv.onLoad = function (exito) {
if (exito) {
estado_txt.html = true;
estado_txt.htmlText = this.estado;
BorraCampos();
gotoAndStop("CorreoEnviado");}
else {
estado_txt.text = "Error en la aplicación de correo. Vuelva a intentarlo.";}
};


}

function ValidaCampos(ok:Boolean) {
Campo = "";
estado_txt = "";
ok=false;
if (txtNombre.text eq "") {
Campo = "Nombre";
tellTarget ("clpErrorCorreo") {
gotoAndPlay("Nombre");
}
} else if (txtTelefono.text eq "" and txtMail.text eq "") {
Campo = "Contacto";
tellTarget ("clpErrorCorreo") {
gotoAndPlay("Contacto");
}
} else if (txtComentarios.text eq "") {
Campo = "Descripcion";
tellTarget ("clpErrorCorreo") {
gotoAndPlay("Descripcion");
}
}
if (Campo eq "") {
ok=true;
enviarMail();
}

return ok;
}

POR FAVOR AYUDARME!!!! ES BASTANTE URGENTE

DESDE YA MUCHISIMASSSS GRACIAS!!!

PAOLA

Por PVDC

10 de clabLevel



Genero:Femenino  

msie7
Citar            
MensajeEscrito el 07 Abr 2008 01:25 pm

  1. Por favor, evita escribir todo en mayúsculas. En internet es sinónimo de gritar.
  2. Revisa el modo como recibes estas variables en el archivo ASP; el código se ve bien (excepto por el uso de "eq", que está desfasado en AS2, en su lugar usa "==").
  3. Cuando postees código, hazlo entre las etiquetas [*code] [*/code] (sin los asteriscos), para que sea más legible.
  4. Este tutorial puede ayudarte a aclarar tus dudas.

¡Suerte! (y)

Por The Fricky!

Presidente

6168 de clabLevel

3 tutoriales
8 articulos

Genero:Masculino   Bastard Operators From Hell Héroes

Piccola Venezia...

firefox
Citar            
MensajeEscrito el 11 Abr 2008 08:47 am
Hola muy buenas!!!!

Lamento lo de las mayúsculas...El tutorial está fenomenal...ya he cambiado el código como me has dicho y estuve dándole vueltas pero no me funciona, así que te adjunto el código de la página en ASP, a ver que me dices vale?

<%
Set Mail = Server.CreateObject ("Persits.MailSender")
Mail.Host = "mail.soluciointegral.com"
Mail.Port = 25
Mail.From = "[email protected]"
Mail.FromName = "Solicitud Informacion WEB"
Mail.AddAddress "[email protected]"
Mail.AddCC "[email protected]"
Mail.Subject = Request.Form("asunto")
nombre = Request.Form("nombre")
apellidos = Request.Form("apellidos")
domiclio = Request.Form("domicilio")
localidad = Request.Form("localidad")
provincia = Request.Form("provincia")
telefono = Request.Form("telefono")
email = Request.Form("email")
cuerpo = Request.Form("cuerpo")

str = "Nombre: " & nombre & " Apellidos: " & apellidos & " Domicilio: " & _
domicilio & " Localidad: " & localidad & " Provincia: " & _
provincia & " Teléfono: " & telefono & " E-Mail: " & _
email & " Solicitud/Comentario: "

cuerpo = str & cuerpo
'Cuerpo= "hola"

'Mail.Body = "<HTML><BODY>Cuerpo</BODY></HTML>"
'Mail.isHTML = True
Mail.Body = cuerpo
Mail.UserName = "aquí pongo el nombre de usuario"
Mail.Password = "aquí pongo la contraseña"
Mail.Send

response.Write("estado=enviado")
%>

La verdad es que no me gusta nada esto de poner en la página el nombre de usuario y la contraseña, sabes si existe otra manera de hacerlo ....

Desde ya muchísimas gracias!!!!!

Paola

Por PVDC

10 de clabLevel



Genero:Femenino  

msie7

 

Cristalab BabyBlue v4 + V4 © 2011 Cristalab
Powered by ClabEngines v4, HTML5, love and ponies.