Amigos:
Tengo el siguiente codigo en ASP pero al momento de calarlo en mi servidor desde flash solo se queda trabado
<%
Destino = "[email protected]"
servidor = "mail.beachvillarental.com"
titulo = "Formulario de contacto"
Origen = Request("email")
nombre = Request("nombre")
empresa = Request("empresa")
Mensaje = Request("mensaje")
Set Mail = Server.CreateObject("Persits.MailSender")
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strBody = strBody & "Mi nombre es: "
strBody = strBody & "<b>" & nombre & "</b><br><br>"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "<b>" & Origen & "</b><br><br>"
strBody = strBody & "Trabajo en la empresa: "
strBody = strBody & "<b>" & empresa & "</b><br><hr><br>"
strBody = strBody & "Mi mensaje es: <br>"
strBody = strBody & Mensaje & chr(10)
strBody = strBody & "</font>"
Mail.Host = servidor
Mail.Port = 25
Mail.From = "[email protected]"
Mail.FromName = Email ' Opcional
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino
On Error Resume Next
Mail.Send
' El control del error es con ASPMAIL
If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensaje enviado correctamente."
End If
'Destruimos el objeto con aspmail
Set Mail = Nothing
%>
cuando se ejecuta el swf este solo se queda trabajo con el poup de conectando al servidor, no se is este mal mi codigo o si mi swf
on (release) {
buscarroba = email.indexOf( "@" ) ;
buscapunto = email.indexOf( "." ) ;
trace(buscarroba);
if (nombre == "" || nombre.length <3) {
setProperty("popup", _visible, "1");
popup.mensaje = "tu nombre?";
} else if (email == "" || email.length <5) {
setProperty("popup", _visible, "1");
popup.mensaje = "tu email?";
} else if (buscarroba == (-1)) {
setProperty("popup", _visible, "1");
popup.mensaje = "hmmm.. un email sin \"@\"...";
} else if (buscapunto == (-1)) {
setProperty("popup", _visible, "1");
popup.mensaje = "y qué tal un email mas real?";
} else if (mensaje.length < 10) {
setProperty("popup", _visible, "1");
popup.mensaje = "Si, comentanos algo...";
} else {
loadVariables("contactar.asp", "", "POST");
setProperty("popup", _visible, "1");
popup.mensaje = "esperando respuesta del servidor.. ;)";
}
}
Gracias de antemano.
360
