Crear TXT sobre histórico de mi BD access.

[wpp]

Leer la contestación siguiente.
Gracias.

[wpp]

He encontrado esto:

Código:

<% 
Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 
strFichero = Server.MapPath("/mdb-database/log.txt") 

apellido1 =""&RS("apellido1")&""
ip = request.ServerVariables("REMOTE_ADDR") 
explorador = request.ServerVariables("HTTP_USER_AGENT") 
fecha = now 

If Instr(explorador, "MSIE") Then 
Browser = "Microsoft Internet Explorer" 
ElseIf Instr(explorador, "Mozilla") and Instr(explorador, "compatible") = 0 Then 
Browser = "Netscape Navigator" 
End If 

Set OutStream = FileObject.CreateTextFile (strFichero, true) 
OutStream.WriteLine("IP: "& ip & " Explorador: " & Browser & " Apellido1: " & apellido1 & " Fecha: "& fecha) 
OutStream.Close 

Set OutStream = Nothing 
Set FileObject = Nothing 
%>

Inserto response.cookies en cada login y quiero que los recupere y los inserte en la línea outstream.writeline, pero he probado varias cosas y no rula.

He probado en la línea esta poner apellido1:

Código:

apellido1 =""&RS("apellido1")&""
ip = request.ServerVariables("REMOTE_ADDR") 
explorador = request.ServerVariables("HTTP_USER_AGENT") 
fecha = now

Y luego escribirlo:

Código:

OutStream.WriteLine("IP: "& ip & " Explorador: " & Browser & " Apellido:" & apellido1 & " Fecha: "& fecha)

Pero no va.

Ruego alguna ayuda.

[El_Metallick]

No se se lo que quieres es algo asi

Modificados

Código:

set FSO = Server.CreateObject("Scripting.FileSystemObject")

'Condición para saber si existe el fichero
If fso.FileExists (Server.MapPath("inc/editados.txt")) Then 
   set oFich = FSO.OpenTextFile(Server.MapPath("inc/editados.txt"), 8)
   'Escribimos la linea nueva
   oFich.WriteLine ("" & now & " Se cambió " & categoria1 & " " & marca1 & " " & modelo1 & " " & descripcion1 & " " & precio1 & " por " & categoria & " " & marca & " " & modelo & " " & descripcion & " " & precio & "")
   oFich.Close
else
   'Se crea el fichero
   set oFich = FSO.CreateTextFile ( Server.MapPath("inc/editados.txt"), True )
   set oFich = FSO.OpenTextFile(Server.MapPath("inc/editados.txt"), 8)
   'Escribimos la linea nueva
   oFich.WriteLine ("" & now & " Se cambió " & categoria1 & " " & marca1 & " " & modelo1 & " " & descripcion1 & " " & precio1 & " por " & categoria & " " & marca & " " & modelo & " " & descripcion & " " & precio & "")
   oFich.Close
end if

Isertados

Código:

set FSO = Server.CreateObject("Scripting.FileSystemObject")

'Condición para saber si existe el fichero
If fso.FileExists (Server.MapPath("inc/insertados.txt")) Then 
   set oFich = FSO.OpenTextFile(Server.MapPath("inc/insertados.txt"), 8)
   'Escribimos la linea nueva
   oFich.WriteLine ("" & now & " Se agregó " & categoria & " " & marca & " " & modelo & " " & descripcion & " " & precio & "")
   oFich.Close
else
   'Se crea el fichero
   set oFich = FSO.CreateTextFile ( Server.MapPath("inc/insertados.txt"), True )
   set oFich = FSO.OpenTextFile(Server.MapPath("inc/insertados.txt"), 8)
   'Escribimos la linea nueva
   oFich.WriteLine ("" & now & " Se agregó " & categoria & " " & marca & " " & modelo & " " & descripcion & " " & precio & "")
   oFich.Close
end if

Borrados

Código:

set FSO = Server.CreateObject("Scripting.FileSystemObject")

'Condición para saber si existe el fichero
If fso.FileExists (Server.MapPath("inc/borrados.txt")) Then 
   set oFich = FSO.OpenTextFile(Server.MapPath("inc/borrados.txt"), 8)
   'Escribimos la linea nueva
   oFich.WriteLine ("" & now & " Se borró " & rs("categoria") & " " & rs("marca") & " " & rs("modelo") & " " & rs("descripcion") & " " & rs("precio") & "")
   oFich.Close
else
   'Se crea el fichero
   set oFich = FSO.CreateTextFile ( Server.MapPath("inc/borrados.txt"), True )
   set oFich = FSO.OpenTextFile(Server.MapPath("inc/borrados.txt"), 8)
   'Escribimos la linea nueva
   oFich.WriteLine ("" & now & " Se borró " & rs("categoria") & " " & rs("marca") & " " & rs("modelo") & " " & rs("descripcion") & " " & rs("precio") & "")
   oFich.Close
end if

Espero que sea eso saludos y suerte

[wpp]

Mira sólo quiero añadir en el código que indiqué arriba, que en la línea OutStream.WriteLine escriba el usuario y demás datos que están en las cookies que envio.
Gracias.

[wpp]

Oye, esto siempre escribe una línea nueva en el txt, o borra la anterior.
Es que por más que pruebo siempre insreta una sola línea.
Gracias.

[wpp]

Vale, confirmado.
Siempre escribe el último acceso y borra el anterior.
Ruego alguien que me ayude a que vaya añandiéndolos al log.txt y no los sustituya.
Gracias.

[sjam7]

checa en http://www.sloppycode.net/Reference/FSO/

[allhen]

http://support.microsoft.com/kb/q216829/

[El_Metallick]

WPP lo que te di era para darte una idea de lo que andabas buscando las adaptaciones pertinentes las tienes que hacer tu... saludos