Ver Mensaje Individual
  #2 (permalink)  
Antiguo 06/06/2007, 06:48
Avatar de SebastiFast
SebastiFast
Colaborador
 
Fecha de Ingreso: mayo-2004
Ubicación: Venezuela
Mensajes: 1.586
Antigüedad: 19 años, 11 meses
Puntos: 45
Re: formulario flash

Este formulario estuvo en las faq's hace tiempo y por algún motivo no se encuentra disponible ahora. El crédito era de "cheditas".

En el fla.:
Código de fotograma:
Código:
function borrar() {
	nombre = "";
	telefono = "";
	MailFrom = "";
	direccion = "";
	mensaje = "";
}
function enviar() {
	enviar = new LoadVars();
	enviar.nombre = nombre;
	enviar.telefono = telefono;
	enviar.MailFrom = MailFrom;
	enviar.direccion = direccion;
	enviar.mensaje = mensaje;
	enviar.onLoad = function(success) {
		status = "Su Mensaje Fue enviado Correctamente";
		borrar();
	};
	enviar.sendAndLoad("flaform.php", enviar, "POST");
}
	borrar();
Vas a crear un recuadro de "introducción de texto" al que asignaras la variable: "nombre", sin comillas. Puedes colocar texto artístico del lado izquierdo para identificar el campo "Nombre:" o "Nombre y Apellido:".
Haces lo mismo para:

Teléfono: var: telefono
Email: var: MailFrom
Dirección: var: direccion
Mensaje: var: mensaje (este será "Multilínea")

Creas un cuadro de texto dinámico y le asignas variable: status

Creas un botón "BORRAR" con el siguiente código:
Código:
on (release) {
	borrar();
}
Creas otro botón "ENVIAR"
Código:
on (release) {
	if (MailFrom.indexOf("@") != -1 && MailFrom.indexOf(".") != -1 && nombre != "" && telefono != "" && mensaje != "") {
		enviar();
	} else {
		status = "Llene correctamente todos los campos";
	}
}

Creas un archivo php en algún editor:
Archivo flaform.php
Código PHP:

<?php
$MailTo
="[email protected]";
$ToSubject "Contacto desde Formulario Web";
$dia=date("m.d.Y");
$hora=date("H:i:s");
$contenido="
El Mensaje se Envio el  $dia a las $hora:\n\n
----------------------------------------------------------------------------\n
Nombre: $nombre\n
Teléfono: $telefono\n
E-mail: $MailFrom\n
Dirección: $direccion\n
Mensaje: $mensaje\n
----------------------------------------------------------------------------\n
"
;
mail($MailTo"$subject$ToSubject de $nombre"$contenido"From: $MailFrom\r\n");
?>
Eso es todo. Subes ambos archivos a la misma carpeta en el servidor.
__________________

"Nunca es tarde para empezar, mientras sea ahora" ____________ Cher