quote:

---

function chkAURecord(intTotalActiveUsers)
if cInt(intTotalActiveUsers) > cInt(intAURecord) then 'We have a new record!!! :)
'Check to see if it *Really* is a record, or if Application varaibles just got reset
strSql = "SELECT C_VALUE FROM " & strTablePrefix & "CONFIG_NEW WHERE C_VARIABLE = 'intAURecord'"
set rs = my_conn.execute (strSql)
intOldRecord = cint(rs("C_VALUE"))
rs.close
set rs = nothing
if cInt(intOldRecrod) > cInt(intTotalActiveUsers) then
'Oopsi, this was a false alarm
strSql = "SELECT C_VALUE FROM " & strTablePrefix & "CONFIG_NEW WHERE C_VARIABLE = 'strAURecordDate'"
set rs = my_conn.execute (strSql)
strOldDate = rs("C_VALUE")
rs.close
set rs = nothing
Application(strCookieURL & "INTAURECORD") = intOldRecord
Application(strCookieURL & "STRAURECORDDATE") = strOldDate
intAURecord = intOldRecord
strAURecordDate = strOldDate
else
my_conn.execute ("UPDATE " & strTablePrefix & "CONFIG_NEW SET C_VALUE = '" & cstr(intTotalActiveUsers) & "' WHERE C_VARIABLE = 'intAURecord'")
my_conn.execute ("UPDATE " & strTablePrefix & "CONFIG_NEW SET C_VALUE = '" &DateToStr(strForumTimeAdjust) & "' WHERE C_VARIABLE = 'strAURecordDate'")
intAURecord = intTotalActiveUsers
strAURecordDate = DateToStr(strForumTimeAdjust)
Application(strCookieURL & "INTAURECORD") = intTotalActiveUsers
Application(strCookieURL & "STRAURECORDDATE") = DateToStr(strForumTimeAdjust)
end if
end if
end function

sub deleteInactiveUsers()
strAUTimedOut = DateToStr(DateAdd("n",-strAUTimeout,strForumTimeAdjust))
strSql = "DELETE FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_LASTACTIVETIME < '" & strAUTimedOut & "'"
my_conn.execute (strSql)
end sub

---