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

Ayuda Please !

Estas en el tema de Ayuda Please ! en el foro de Flash y Actionscript en Foros del Web. Buenas gente, tengo un problemita con el siguiente codigo asp. Se trata de uns imple formulario flash a asp, que no se si me envia ...
  #1 (permalink)  
Antiguo 29/10/2004, 15:25
 
Fecha de Ingreso: marzo-2002
Mensajes: 43
Antigüedad: 15 años, 9 meses
Puntos: 0
Pregunta Ayuda Please !

Buenas gente, tengo un problemita con el siguiente codigo asp.
Se trata de uns imple formulario flash a asp, que no se si me envia o no las variables al asp y ademas el asp no me envia el mail.

a ver quien manya este tema!!!!! si encuentran el error!!???

Saludos


en flash:

enviar = function () {
if (email_txt.text.length && nombre_txt.length && telefono_txt.length && comentarios_txt.length) {
if (email_txt.text.indexOf("@") != -1 && email_txt.text.indexOf(".") != -1) {
form_lv = new LoadVars();
form_lv.nombre = nombre_txt.text;
form_lv.email = email_txt.text;
form_lv.comentarios = comentarios_txt.text;
form_lv.telefono = telefono_txt.text;
form_lv.sendAndLoad("http://www.pirulo.com.ar/form.asp", form_lv, "POST");
comentarios_txt.text = "Enviando Mensaje..";
nombre_txt.text = "";
email_txt.text = "";
telefono_txt.text = "";
form_lv.onLoad = function() {
trace("LLEGO");
trace(this.estatus);
if (this.estatus == "ok") {
comentarios_txt.text = "Tu mensaje fue enviado...";
nombre_txt.text = "";
email_txt.text = "";
telefono_txt.text = "";
} else {
comentarios_txt.text = "Problemas con el servidor\nIntentelo de Nuevo";
}
};
} else {
email_txt.text = "Correo Invalido";
}
} else {
email_txt.text = "Dato Necesario";
nombre_txt.text = "Dato Necesario";
telefono_txt.text = "Dato Necesario";
comentarios_txt.text = "Dato Necesario";
}
};
borrar = function () {
nombre_txt.text = "";
email_txt.text = "";
comentarios_txt.text = "";
telefono_txt.text = "";
};
enviar_btn.onRelease = enviar;
borrar_btn.onRelease = borrar;


en el form.asp:

<%

Dim objMsg, strFrom, strTo, strReplyTo, strBody, strSubject
Dim lngImportance, lngMsgFormat, lngMsgEncode

strFrom = Trim(Request.Form("email"))
strTo = "[email protected]"

strReplyTo = Trim(Request.Form("email"))
strSubject = "Formulario Web"
strBody = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
strBody = strBody & "<html>"
strBody = strBody & "<head>"
strBody = strBody & "<meta http-equiv=""Content-Type"
strBody = strBody & "HTML = HTML & ""content=""text/html; charset=iso-8859-1"">"""
strBody = strBody & "<title> TITULO DEL MAIL </title>"
strBody = strBody & "</head>"
strBody = strBody & "<body>"
strBody = strBody & "<FONT FACE=Verdana SIZE=2 COLOR=#600B7B><BR><B>"
strBody = strBody & "FORMULARIO CONSULTA<br><br>"
strBody = strBody & "Nombre: " & Trim(Request.Form("nombre")) & "<br>"
strBody = strBody & "Apellido: " & Trim(Request.Form("apellido")) & "<br>"
strBody = strBody & "Fecha de Nacimiento: " & Trim(Request.Form("fecha")) & "<br>"
strBody = strBody & "Telefono: " & Trim(Request.Form("telefono")) & "<br>"
strBody = strBody & "E-Mail: " & Trim(Request.Form("email")) & "<br>"
strBody = strBody & "Comentarios: " & Trim(Request.Form("comentarios")) & "<br>"
strBody = strBody & "<br>"
strBody = strBody & "<BR></body>"
strBody = strBody & "</html>"

Set objMsg = Server.CreateObject("CDONTS.NewMail")
If Len(Trim(strReplyTo)) > 0 Then
objMsg.Value("Reply-To")=strReplyTo
End If

If Len(Trim(strFrom)) = 0 Then
strFrom = "[email protected]"
End If
objMsg.From = strFrom
objMsg.To = strTo
objMsg.Subject = "FORMULARIO WEB""
objMsg.BodyFormat = 0
objMsg.MailFormat = 0
objMsg.Body = strBody
objMsg.Send
Set objMsg = Nothing

%>
estatus = ok
__________________
Kuminatano® :pirata:

"Sólo un sabio puede estar bien con Dios y con el Diablo..."

"Wake up... Open your eyes... Open you mind..."
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 06:09.