<%@ 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
%>
