Foros del Web » Creando para Internet » Flash y Actionscript »

problemas con senAndLoad

Estas en el tema de problemas con senAndLoad en el foro de Flash y Actionscript en Foros del Web. Hola tengo este codigo en AS no me da nigun error de AC pero cuando lo ejecuto i le doy al boton submit no me ...
  #1 (permalink)  
Antiguo 17/08/2004, 11:16
Avatar de engonga  
Fecha de Ingreso: marzo-2002
Ubicación: Córdoba
Mensajes: 1.299
Antigüedad: 15 años, 9 meses
Puntos: 8
problemas con senAndLoad

Hola tengo este codigo en AS

no me da nigun error de AC pero cuando lo ejecuto i le doy al boton submit no me hace nada el flash y me tendria que ir al fotograma "resultado" y pintarme el testo dinámico "texto" pero no lo hace.

me pueden decir porque no lo hace?

si lo hago con un getURL si que me funciona pero no me devuelve las variables y no me interesa.


gracias

----
on (release) {

misVariables = new LoadVars();
misvariablesvueltas = new LoadVars();
misvariables.nombre = nombre;
misvariables.email = email;
misvariables.mensaje = mensage;
misvariablesvueltas.onLoad = function(){
gotoandplay("resultat");
texto="result" add this.resultado;
}

misvariables.senAndLoad("http://www.dominio.com/mailform/aspemail2.asp", misvariablesvueltas);

}
-----

y el fichero asp es este

--------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'agafo les variables del formualri en flash
nombre=Request.Form("nombre")
email=Request.Form("email")
mensaje=Request.Form("mensaje")
'canvio els salts de linea i ho passo a una varialbe mensajebo
mensajebo=replace(mensaje,chr(13),"<br />")

'creo el cos del missatge amb diferents variables


taula ="<table width='500' border='1' bordercolor='#000000' cellpadding='2' cellspacing='0'>"
capcaleramail = "<b> Atención! NO responda este mail automáticamente este mail ha sido enviado automáticamente des de la web<br>En el cuerpo del menssaje existe un capo que se llama <i>email</i> utilize este email para enviar un correo a la presona<br> que ha enviado el formulario</b><br><br>CAMPOS RELLENADOS POR EL CLIENTE:"
linea1 ="<tr><td align='left' valign='top' width='30%'>Nombre persona contacto:</td><td align='left' valign='top' width='70%'>" & nombre & "</td></tr>"
linea2 ="<tr><td align='left' valign='top'>Email:</td><td align='left' valign='top'>" &email& "</td></tr>"
linea3 ="<tr><td align='left' valign='top'>Observaciones:</td><td align='left' valign='top'>" &mensajebo&"</td></tr>"
fitaula ="</table>"
peumail ="<br><br>Menssaje enviado pos aspEail de persist, con modificaciones hechas por el equipo web de cvcash<br>&Agrave;lex Garc&iacute;a y Joan Blanch"

cuerpomail = capcaleramail & taula & linea1 & linea2 & linea3 & fitaula & peumail

'ja tinc les variables passades del form ara creem el missatge

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.ethverger-inmobiliaria.com" ' Specify a valid SMTP server
Mail.From = "[email protected]" ' direccion que envia el correo
Mail.FromName = email ' Specify sender's name

'Mail.AddAddress "[email protected]" direcció a qui va dirigit el mail
Mail.AddAddress "[email protected]"

Mail.Subject = "Formulari enviado por " & email
'Mail.Body = "Funciona bien:" & Chr(13) & Chr(10)

Mail.Body ="<html><body bgcolor=#ffffff>" &cuerpomail& "</BODY></HTML>"
Mail.IsHTML = true

On Error Resume Next
Mail.Send
'Mail.Sendtoqueue
If Err <> 0 Then

'Response.Write "Error encountered: " & Err.Description
Response.Write("&resultado=ERROR!!" & Err.Description)
else
'Response.Write "Form enviado correctamente"
Response.Write("&resultado=Formulario enviado correctamente")
End If
%>
-----
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:31.