'<% ' ' Gather Information about devices hitting website ' 'UserID = Trim(Request.ServerVariables("LOGON_USER")) 'If UserID = "" then ' UserID = "Unknown" 'End If 'ComputerName= Request.ServerVariables("REMOTE_HOST") 'Set filesys = CreateObject("Scripting.FileSystemObject") 'Set LoginDatFile = filesys.OpenTextFile("c:\temp\theletartes.dat", 8, true) 'LoginInfo = chr(34) & UserID & chr(34) & "," & chr(34) & ComputerName & chr(34) & "," & chr(34) & Now() & chr(34) 'LoginDatFile.WriteLine LoginInfo 'LoginDatFile.WriteLine LoginInfo 'LoginDatFile.WriteLine LoginInfo 'LoginDatFile.Close 'Response.Redirect("veronica.htm") '%>