MS ASP Code for User Log Status
in place July 24, 2000, last modified July 24. 2000

---

<%

' preface current time and its format
Response.write(formatdatetime(now,0)+"|")
Response.write(formatdatetime(now,4)+"|")

' preface server variables
Response.write Request.ServerVariables("REMOTE_ADDR")
Response.Write("|")
Response.write Request.ServerVariables("REMOTE_HOST")
Response.Write("|")


' prepare access log file
DIM strLogFileName
strLogFileName = "d:\user\dnc\vpmweblog\vpmwebaccess.log"

DIM objLogFileFSO
Set objLogFileFSO = createobject("Scripting.FileSystemObject")

DIM objfile
if objLogFileFSO.FileExists(strLogFileName) then
set objfile = objLogFileFSO.OpenTextFile(strLogFileName,8)
else
set objfile = objLogFileFSO.CreateTextFile(strLogFileName)
end if

dim strLogEntry

' write the log info to the log file
strLogEntry = formatdatetime(now,2)+"|"+formatdatetime(now,4)+"|"
strLogEntry = strLogEntry + Request.ServerVariables("REMOTE_ADDR")+"|"
strLogEntry = strLogEntry + Request.ServerVariables("REMOTE_HOST")+"|"
Response.Write("<BR>**** "+strLogEntry+"<BR>")

objfile.WriteLine strLogEntry

objfile.close

%>

---

Knowledge & Engineering Databases (c) copyright Namchul Do, 2000