'-------------------------------------------------------------------------------------------
' This function accepts a string arguement and writes it to the log file.
' The second argument (0=False, 1=True) tells whether or not to time stamp the entry.
' EXAMPLE: call writeToLogfile("Z:\logs\filename","DON'T DO IT!",6)
' 0 = only write what I say
' 1 = write the time and STRING
' 2 = write the time and REMOTE_ADDR and STRING
' 3 = write the time, REMOTE_ADDR, browser, browser version & OS platform and STRING
' 4 = write the STRING, time, REMOTE_ADDR, browser, browser version & OS platform
' 5 = write the time, REMOTE_ADDR, browser, browser version, OS platform, HTTP_REFERRER and STRING
' 6 = write the STRING, time, REMOTE_ADDR, browser, browser version, OS platform and HTTP_REFERRER
' 7 = write the STRING and time.
'---------------------------------------------------------------------------------------------
function writeToLogfile(strPathFile,strWrite,timeStamp)
dim oFile
dim oText
dim IPaddress

ON ERROR RESUME NEXT
set oFile = server.createObject("Scripting.FileSystemObject")
'formatDateTime(date(),vbLongDate)
if oFile.fileexists(strPathFile & "-" & daveDate(date()) & ".txt") then 'the log file exists
set oText=oFile.OpenTextFile(strPathFile & "-" & daveDate(date()) & ".txt",8)
' response.write("File existed.")
else
set oText=oFile.createTextFile(strPathFile & "-" & daveDate(date()) & ".txt")
' oText.writeLine("CREATED FILE." & chr(9) & date() & " at " & time())
' response.write("File created.")
end if

IPaddress = dAPI_IPrangeFinder(request.serverVariables("REMOTE_ADDR"))

dim browserdetect
Set browserdetect = Server.CreateObject("MSWC.BrowserType")
select case timeStamp
case 1
oText.writeLine(date() & chr(9) & time() & chr(9) & strWrite)
case 2
oText.writeLine(date() & chr(9) & time() & chr(9) & IPaddress & chr(9) & request.serverVariables("REMOTE_ADDR") & chr(9) & strWrite)
case 3
oText.writeLine(date() & chr(9) & time() & chr(9) & IPaddress & chr(9) & request.serverVariables("REMOTE_ADDR") & chr(9) & browserdetect.Browser & chr(9) & browserdetect.Version & chr(9) & browserdetect.Platform & chr(9) & strWrite)
case 4
oText.writeLine(strwrite & chr(9) & date() & chr(9) & time() & chr(9) & IPaddress & chr(9) & request.serverVariables("REMOTE_ADDR") & chr(9) & browserdetect.Browser & chr(9) & browserdetect.Version & chr(9) & browserdetect.Platform)
case 5
oText.writeLine(date() & chr(9) & time() & chr(9) & IPaddress & chr(9) & request.serverVariables("REMOTE_ADDR") & chr(9) & browserdetect.Browser & chr(9) & browserdetect.Version & chr(9) & browserdetect.Platform & chr(9) & "HTTP_REFERER:" & chr(9) & request.serverVariables("HTTP_REFERER") & chr(9) & strWrite)
case 6
oText.writeLine(strwrite & chr(9) & date() & chr(9) & time() & chr(9) & IPaddress & chr(9) & request.serverVariables("REMOTE_ADDR") & chr(9) & browserdetect.Browser & chr(9) & browserdetect.Version & chr(9) & browserdetect.Platform & chr(9) & "HTTP_REFERER:" & chr(9) & request.serverVariables("HTTP_REFERER"))
case 7
oText.writeLine(strWrite & chr(9) & "on " & date() & " at " & time())
case else
oText.writeLine(strWrite)
end select
set browserdetect = nothing

oText.close
' oFile.close
set oText = nothing
set oFile = nothing
ON ERROR GOTO 0
end function

'-------------------------------------------------------------------------------------------
' This function formats the date like this: YYYY-MM-DD or 2001-10-15
' EXAMPLE: daveDate(date())
'---------------------------------------------------------------------------------------------
function daveDate(dateIs)
dim newdate
dim dateNow
dim dateArray

' response.write(dateIs & "<p>")
dateNow = cstr(dateIs)
dateArray = split(dateIs,"/")

' response.write(right("00" & dateArray(1),2) & "<p>")

newdate = dateArray(2)
newdate = newdate & "-" & right("00" & dateArray(0),2)
' I have decided not to inlcude the DAY, just the YEAR and MONTH.
' newdate = newdate & "-" & right("00" & dateArray(1),2)

daveDate = newDate
end function

'-------------------------------------------------------------------------------------------
' This function returns whether the user has a given browser version or higher.
' Javascript is required.
' EXAMPLE: dAPI_BrowserSniffer(4,"IE") or (3,"NETSCAPE")
'---------------------------------------------------------------------------------------------
function dAPI_BrowserSniffer(compareVersion, compareBrowser)
dim browserdetect
dim browser, version, majorver, minorver, platform, frames, tables
dim cookies, javascript
dim passed

' session.timeout = 1

' create an instance of the Browser Capabilities component
Set browserdetect = Server.CreateObject("MSWC.BrowserType")

' find some properties of the browser being used to view this page
browser=browserdetect.Browser
' version=browserdetect.Version
majorver=browserdetect.Majorver
' minorver=browserdetect.Minorver
' platform=browserdetect.Platform
' frames=browserdetect.Frames
' tables=browserdetect.Tables
' cookies=browserdetect.Cookies
javascript=browserdetect.JavaScript

passed = FALSE
response.write(vblf & "<!--")
response.write(browser & "==" & compareBrowser)
if ucase(browser)=ucase(compareBrowser) then
response.write(" AND " & majorver & ">=" & compareVersion)
if cint(majorver) >= cint(compareVersion) then
response.write(" AND JavaScript:" & javascript)
if javascript="True" then
dAPI_BrowserSniffer = TRUE
passed = TRUE
end if
end if
end if
if passed <> TRUE then
response.write(" FAILED CHECK")
dAPI_BrowserSniffer = FALSE
end if
response.write("-->" & vblf)
set browserdetect = nothing

end function