<%@ Language=VBScript %> <% option explicit %> ManuSoft UK <% ' Save some info about the visitor and set up session variables to track where they go on site Const ForAppending = 8 Dim fs, logfile Set fs = CreateObject("Scripting.FileSystemObject") If not fs.FileExists(server.MapPath("referrer_log.txt")) then fs.CopyFile server.MapPath("blank.txt"), server.MapPath("referrer_log.txt") End If Set logfile = fs.OpenTextFile(server.MapPath("referrer_log.txt"), ForAppending) logfile.WriteLine Now & "," & Request.ServerVariables("HTTP_REFERER") & "," & Request.ServerVariables("HTTP_USER_AGENT") logfile.close set fs = Nothing %>

[click here to bypass the flash intro]

 

Manufacturing Profit Improvement

Click to enter site