In Inc_header.asp:
<%
strDateTime = DateToStr(strForumTimeAdjust)
strOnlineUserIP = Request.ServerVariables("REMOTE_ADDR")
strScriptName = Request.servervariables("script_name")
if strDBNTUserName = "" then
strOnlineUser = "Guest"
else
strOnlineUser = strDBNTUserName
end if
dim iplg, logFile8
set iplg=server.createObject("scripting.FileSystemObject")
set logFile8=iplg.openTextFile(server.MapPath("../forumlog.txt"),8)
logFile8.write Mid(strDateTime, 5,2) & "/" & Mid(strDateTime, 7,2) & "/" & Mid(strDateTime, 1,4) & " " & Mid(strDateTime, 9,2) & ":" & Mid(strDateTime, 11,2) & ":" & Mid(strDateTime, 13,2) & Chr(9) & strOnlineUserIP & CHR(9) & strScriptName & CHR(9) & strOnlineUser & vbCrLf
logFile8.close
set logFile8=nothing
set iplg=nothing%>
Example:
My forums in Folder "Forum"
Forumlog.txt in up
Forumlog.txt
_____Forum folder
I must to walk folder backward ( Back )
Now error:
Path not found
Topic Locked
Posted - 07 January 2003 : 22:05:03
