Changes in active_users_inc.asp
'******************************************
'*** Get users array position ***
'******************************************
'Iterate through the array to see if the user is already in the array
For intArrayPass = 1 To UBound(saryActiveUsers, 2)
'Check the IP address
'***remove Henk Boons 18 mrt 2005 same IPadres if forum behing proxy
'If saryActiveUsers(0, intArrayPass) = strIPAddress Then
' intActiveUserArrayPos = intArrayPass
' blnIPFound = True
'Else check a logged in member is not a double entry
'ElseIf
‘check if user already in ActiveUsers array
If saryActiveUsers(1, intArrayPass) = lngLoggedInUserID then
&nbs p; intActiveUserArrayPos = intArrayPass
&nbs p; blnIPFound = True
end if
'if saryActiveUsers(1, intArrayPass) <> 2 Then
' intActiveUsersDblArrayPos = intArrayPass
'End If
Next
Changes in log_off_user.asp
'Clear the forum cookie on the users system so the user is no longer logged in
Response.Cookies(strCookieName) = ""
Response.Cookies(strCookieName)("UID") = strLoggedInUsername & "LOGGED-OFF"
Response.Cookies("TS") = ""
Response.Cookies("LPM") = ""
Session("ViRead") = ""
saryActiveUsers = Application("saryAppActiveUsers")
saryActiveUsers(4, intActiveUserArrayPos) = CDbl(Now()- 7.000000167871E-03) ‘tag date so user expires
'Update the application level variable holding the active