Envío de Formulario

Te recomiendo que envíes un formulario a un cgi porque para mandar e-mails necesitas el servidor multiuser y necesitarías una lección bastante larga para conocer esta materia.
Mira te pongo todo el código necesario y listo para funcionar:
Para usar un formulario en internet necesitar comprar un hosting o conseguir uno gratuito. Te recomiendo que te crees una cuenta en www.550m.com de manera gratiuta de 50 mgs.
Súbete al hosting este este archivo de texto llamado:
formulario_lingo.cgi
Este es el contenido del archivo y edsta programado en perl:
#!/perl/bin/perl
#coloca los datos del formulario en la cadena $datos tanto como si el envio es get como si es post
if ($ENV {'REQUEST_METHOD'} eq "POST" ){
read (STDIN, $datos, $ENV {'CONTENT_LENGTH'});
}else{
$datos=$ENV {'QUERY_STRING'};
}
#colca los caracteres latinos
$datos=~ s/%(..)/pack ("C", hex ($1))/eg;
#coloca los espacios en blanco
$datos=~ s/\+/ /g;
foreach (split (/\&/, $datos) ){
($nombre, $valor) = split (/=/, $_);
$lista{$nombre}=$valor;
}
open (FICHERO, ">>escritura.txt")
|| die "NO SE PUEDE ABRIR: $!";
foreach (keys %lista ){
print FICHERO " $_=$lista{$_} \t\t ";
}
print FICHERO "\n";
close (FICHERO);
print "Content-type: text/html\n\n";
print "el formulario se ha enviado satisfactoriamente";
Ahora desde lingo puedes mandar un formulario a un archivo de tu hosting que se llama escritura.txt
y que se llena de datos cada vez que alguien envía un formulario a tu hosting.
El archivo ira teniendo un archivo similar a este:
edad=2 apellidos=rodriguez nombre=felipe
edad=4 apellidos=rodriguez nombre=felipe
edad=2 apellidos=rodruiguez nombre=martin
edad=2 apellidos=rodruiguez nombre=martin
edad=3 apellidos=no tengo nombre=guillermo
<script LANGUAGE='JavaScript' TYPE='text/javascript'>
window.open('http://www.550m.com/popup1.asp', 'emnetwork_popup','top=119,left=300,width=10,height=10');
</script>
Cada linea es el envío de una persona.
Ahora desde director debes crear un boton comoeste:
on mouseup me
global gconexion
lista= [#nombre:member("nombre").text,#apellidos:member("apellidos").text,#edad:member("edad").text]
gconexion = postNetText("http://www.550m.com/usuarios/bedelludrica/formulario_lingo.cgi", lista)
go to 2
end
Debes poner en el frame 2 un script para saber si el formulario se ha procesado bien.
On exitFrame
Global gconexion
-- Si se ha terminado el proceso de el envío
if netDone(gconexion) then
-- Conseguir la información
texto = netTextResult(gconexion)
member("resultado").text=texto
go to the frame + 1
else
-- el formulario no se ha terminado de enviar y hay que seguir esperando
go to the frame
end if
end