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>Àlex Garcí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
%>
-----
