Hola, para crear o modficar un archivo de texto puedes utilizar esta función:
Código:
'____________________________________________
Sub ModiArch(cArchi, cCuerpo)
'Crea o modifica el archivo de la noticia
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Dim oSFile, oTextArch
Set oSFile = Server.CreateObject("Scripting.FileSystemObject")
Set oTextArch = oSFile.CreateTextFile (Server.MapPath(cArchi & ".txt"), True)
oTextArch.WriteLine(cCuerpo)
Set oSFile = Nothing
oTextArch.Close: Set oTextArch = Nothing
End Sub
Como puedes ver, sólo debes pasarle la ruta del archivo a crear o modificar y el cuerpo del archivo.
Bien, antes de llamar a esta función deberemos comprobar que tanto usuario como contraseña sean correctos y se hayen en le sistema. (Esta parte la doy por sabida, si no es así te posteo una dirección donde lo tienes todo hecho y explicado con el código completo. Es sumamente sencillo)
Para crear el cuerpo del archivo, sólo tienes que sacar todos los datos que te interesan.
Código:
dFecha = Date()
dHora = Time()
'Si prefieres todo junto...
dFechayHora = Now()
cUser = Request.Form("User")
cPwd = Request.Form("Pwd")
cIP = Request.ServerVariables("REMOTE_ADDR")
cDeDonde = Request.ServerVariables("HTTP_REFERER")
Ahora sólo debes componer la línea del Usuario, separando los datos como quieras...
Por ejemplo:
cBody = dFechayHora & " - " & cUser & " - " & cPwd & " - " & cIP & " - " & cDeDonde
'Y llamamos a la función que crea el archivo:
ModiArch("Usuario_001", cBody)
Esto, con tus retoques, debe funcionarte perfecto, un saludo.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red en castellano"></a>