replace the code in inc_top that begins with ' SET WHEN TO TIMEOUT THE USER
to just before set rsWho = my_Conn.Execute (strSql)
with this
' SET WHEN TO TIMEOUT THE USER
' DO THIS IN SECONDS
strOnlineDate = DateToStr(Date)
strOnlineCheckInTime = DateToStr(strForumTimeAdjust)
OnlineResetTime = 1100 'number of minutes and seconds before reset (format: mmss)
if minute(now) < (OnlineResetTime/100) then OnlineResetTime=OnlineResetTime+(40*100) 'adjust time to be a real value, as opposed to a potentially invalid one
strOnlineTimedOut = strOnlineCheckInTime - OnlineResetTime 'time out the user after OnlineResetTime value above
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = strConnString
objConn.Open
'Check the IP if the user is NOT a Guest
if Left(strOnlineUser, 5) <> "Guest" then
strSql = "SELECT " & strTablePrefix & "ONLINE.UserID, " & strTablePrefix & "ONLINE.UserIP, " & strTablePrefix & "ONLINE.LastChecked"
strSql = strSql & " FROM " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE " & strTablePrefix & "ONLINE.UserID='" & strOnlineUser & "'"
else
strSql = "SELECT " & strTablePrefix & "ONLINE.UserID, " & strTablePrefix & "ONLINE.UserIP, " & strTablePrefix & "ONLINE.LastChecked"
strSql = strSql & " FROM " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE " & strTablePrefix & "ONLINE.UserIP='" & strOnlineUserIP & "'"
end if
You can always e-mail me your inc_top as well and I will fix it. big9erfan@ugfl.net
http://www.ugfl.net/forums
Edited by - big9erfan on 11 July 2001 17:29:40