GHEM.COM - Jus: Library

<% CRLF = Chr(13) & Chr(10) rem txtDate = Year(now) & "." & Month(now) & "." & Day(now) rem txtTime = Hour(now) & ":" & Minute(now) & ":" & Second(now) Dim HTTP_PARAM(10) HTTP_PARAM(0) = Date & " " & Time HTTP_PARAM(1) = Request.ServerVariables("REMOTE_ADDR") HTTP_PARAM(2) = Request.ServerVariables("REMOTE_HOST") HTTP_PARAM(3) = Request.ServerVariables("URL") txtLog = join(HTTP_PARAM, ";") If Session("LOG_HITS")="" Then Session("LOG_STRING") = txtLog Else Session("LOG_STRING") = Session("LOG_STRING") & CRLF & txtLog End If If Session("LOG_HITS") >= 10 Then Set FSO = CreateObject("Scripting.FileSystemObject") filename = Server.MapPath ("/admin") + "/visitor_log.txt" Set FILE = FSO.OpenTextFile( filename, 1) txtFileAll = FILE.ReadAll FILE.close Set FILE = FSO.CreateTextFile(filename, True) FILE.Write txtFileAll & Session("LOG_STRING") FILE.Write CRLF FILE.close Session("LOG_STRING") = "" Session("LOG_HITS") = 0 tempWrite = "YES" & Session("LOG_STRING") Else Session("LOG_HITS") = Session("LOG_HITS") + 1 tempWrite = "NO" & Session("LOG_STRING") End If %> GHEM.COM - Jus: Library