<%@ LANGUAGE="VBScript" %> <% RESPONSE.BUFFER = True%> <% ' ******************************************************** ' Permission granted to use and/or redistribute this ' script, so long as this copyright remains intact. ' Copyright 1999-2000 TheWebHut [http://www.TheWebHut.com] ' WebPage-Tools.com [http://www.WebPage-Tools.com] ' ******************************************************** nexAction = Request("go") 'logTo = Request("id") logTo = "372677052204" strT = Time() strT = replace(strT,",","") strD = Date() strD = replace(strD,",","") strRA = Request.ServerVariables("REMOTE_ADDR") strRA = replace(strRA,",","") strUA = Request.ServerVariables("HTTP_USER_AGENT") strUA = replace(strUA,",","") fname = server.mappath(logTo + ".txt") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objText = objFSO.OpenTextFile(fname, 8, true) objText.Write(strT + "," + strD + "," + strRA + "," + strUA) & VBcrlf objText.Close Set objFSO = Nothing Response.Redirect (nexAction) %>