Necesito ayuda en lo siguiente, agradezco muchísimo a quien me pueda colaborar:
Estoy haciendo un formulario de contacto en flash, le estoy colocando éste código al fotograma de acciones:
Código :
function clearField()
{
txtField1.text = label1;
txtField2.text = label2;
txtField3.text = label3;
txtField4.text = label4;
txtField5.text = label5;
txtField6.text = label6;
txtField7.text = label7;
} // End of the function
label1 = "Nombre:";
label2 = "Apellido:";
label3 = "E - mail:";
label4 = "Telefono:";
label5 = "Celular:";
label6 = "Empresa:";
label7 = "mensaje:";
countField = 7;
clearField();
var arrayLabel = new Array();
for (i = 1; i < countField + 1; i++)
{
txtField = this["txtField" + i];
txtField.index = i;
arrayLabel[i] = this["label" + i];
txtField.tabIndex = i;
txtField.onSetFocus = function ()
{
if (this.text == arrayLabel[this.index])
{
this.text = "";
} // end if
};
txtField.onKillFocus = function ()
{
if (this.text == "")
{
this.text = arrayLabel[this.index];
} // end if
};
} // end of for
btnClear.onRollOver = function ()
{
this.gotoAndPlay("over");
};
btnClear.onRollOut = btnClear.onReleaseOutside = function ()
{
this.gotoAndPlay("out");
};
btnClear.onRelease = function ()
{
clearField();
};
btnSubmit.onRollOver = function ()
{
this.gotoAndPlay("over");
};
btnSubmit.onRollOut = btnSubmit.onReleaseOutside = function ()
{
this.gotoAndPlay("out");
};en el btn enviar está el siguiente código
Código :
on (release) {
datosFormulario = new LoadVars();
datosFormulario.name1;
datosFormulario.name2;
datosFormulario.number1;
datosFormulario.cellp;
datosFormulario.email;
datosFormulario.comp;
datosFormulario.message1;
datosFormulario.send("contact.asp", "", "POST");
gotoAndStop(2);
}
en el asp tengo ésto:
Código :
<%
Option Explicit
Response.Buffer = "True"
%>
<!--Acá se definene las variables en las que se almacenará el contenido de los campos del formulario-->
<%
Dim cnombre
Dim capellido
Dim ntelefono
Dim ncelular
Dim cemail
Dim cempresa
Dim cmensaje
'Acá se asignan las variables que vienen del formulario al contáctenos
cnombre = Request.Form("name1")
capellido = Request.Form("name2")
ntelefono = Request.Form("number1")
ncelular = Request.Form("cellp")
cemail = Request.Form("email")
cempresa = Request.Form("comp")
cmensaje = Request.Form("message1")
'Acá defino los objetos del correo electrónico y la variable de envío
Dim objMail
Dim strBody0
Dim strBody1
Dim strBody2
Dim strBody3
Dim strBody4
Dim strBody5
Dim strBody6
Dim strBody7
Dim oCDO
'Acá asigno las variables que se cargaron arriba a los objetos del cuerpo del mail
strBody0 = "Mensaje Enviado desde Internet, sitio web AutoTalleresColombia.com"
strBody1 = "Nombre: " & cnombre
strBody2 = "Apellido: " & capellido
strBody3 = "Teléfono Fijo: " & ntelefono
strBody4 = "Celular: " & ncelular
strBody5 = "Correo Electrónico: " & cemail
strBody6 = "Empresa: " & cempresa
strBody7 = "Mensaje: " & cmensaje
'acá se arma el correo haciendo la recolección de variables y queda listo para el envío.
Set oCDO = Server.CreateObject("CDONTS.NewMail")
oCDO.From = cnombre
oCDO.To = "[email protected], [email][email protected][/email]"
oCDO.Subject = "Correo desde Internet: " & cnombre
oCDO.Body = vbnewline & strBody0 & vbnewline & strBody1 & vbnewline & strBody2 & vbnewline & strBody3 & vbnewline & strBody4 & vbnewline & strBody5 & vbnewline & strBody6 & vbnewline & strBody7
oCDO.Send
Set oCDO = Nothing 'Liberar...
Response.Redirect ("gracias.html")
%>
cuando lo ejecuto, me muestra el gracias.html, como si hubiese enviado el mensaje, pero en realidad no hace nada, qué puedo hacer?
