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
