<%@language="vbscript"%> <% dim getClient getClient = Request.QueryString("id") image = "http://www.houseviewonline.com/webimages/hvlogosmall.gif" Dim Counterfile, fs, a, CurrentCount, b, strurl strurl = "Remote_track_Group_" & getClient CounterFile = Server.MapPath ("/ctrfiles/ads/clicks/") & "\" & strurl & ".txt" Set fs = CreateObject("Scripting.FileSystemObject") CurrentCount = Date() & "|" & Time() & "|" & lcase(Request.ServerVariables("HTTP_REFERER")) If fs.FileExists(Server.MapPath ("/ctrfiles/ads/clicks/") & "\" & strurl & ".txt") then Set a = fs.OpenTextFile(CounterFile, 8, 0, 0) a.writeLine CurrentCount a.Close else set b = fs.CreateTextFile (CounterFile, 1, 0) b.WriteLine CurrentCount b.Close end if Set fs = Nothing Response.Redirect(image) %>