| Author |
 Topic  |
|
btekcan
Junior Member
Turkey
112 Posts |
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
|
|
HuwR
Forum Admin
United Kingdom
20600 Posts |
 Posted - 07 January 2004 : 14:47:58
|
it is not related to topic.asp
check to see if you are loading a file called inc_active_users.asp, it will be in inc_header, if you are the problem is in that file, on about line 64 there is a do statement, just change the or to an and, that should fix it |
 |
|
|
btekcan
Junior Member
Turkey
112 Posts |
Posted - 07 January 2004 : 14:54:01
|
| Problem in inc_active_users.asp or inc_header ? |
|
|
|
btekcan
Junior Member
Turkey
112 Posts |
Posted - 07 January 2004 : 15:19:13
|
| In inc_header I cannot find inc_active_users.asp |
|
|
|
HuwR
Forum Admin
United Kingdom
20600 Posts |
Posted - 07 January 2004 : 16:15:48
|
| do you have an inc_active_user.asp file in your forum directory ? The old active user mod is the only thing I know that causes this |
|
|
|
btekcan
Junior Member
Turkey
112 Posts |
Posted - 07 January 2004 : 16:52:48
|
| Yes there,I'm using crash code 3.4.03.But crash still not back in forum :( I'm not sure this file used or not ? |
Edited by - btekcan on 07 January 2004 17:14:31 |
|
|
|
HuwR
Forum Admin
United Kingdom
20600 Posts |
Posted - 07 January 2004 : 17:11:27
|
just make the change I suggested and then get someone to look at the archives, or log out yourself and check. I think it may be included in topic.asp rather than in inc_header.
Crashes code was based on mine. |
|
|
|
btekcan
Junior Member
Turkey
112 Posts |
Posted - 07 January 2004 : 17:18:40
|
| Now I'm talking 10 users in msn same time,also check these users and me.Still have a problem.And inc_active_user.asp I cannot find it in topic.asp and inc_header.asp.I have only inc_activeusers.asp file but this is in default.asp |
Edited by - btekcan on 07 January 2004 17:23:43 |
|
|
|
HuwR
Forum Admin
United Kingdom
20600 Posts |
Posted - 07 January 2004 : 17:29:23
|
| what files are included in inc_header, it may have a different name, but it must be there or your active users code won't work |
|
|
|
HuwR
Forum Admin
United Kingdom
20600 Posts |
Posted - 07 January 2004 : 17:32:21
|
| I gave you the wrong position in inc_active_users, I know this is the problem because I fixed it for someone yesterday, will just log on to their ftp and check what I did. |
|
|
|
btekcan
Junior Member
Turkey
112 Posts |
Posted - 07 January 2004 : 17:32:24
|
Edited Topic Reason :
Also Image post a solution his 1st message below...
Thanks for tips  |
Edited by - btekcan on 12 January 2004 06:28:36 |
|
|
|
cladon
Junior Member
Belgium
110 Posts |
Posted - 07 January 2004 : 17:33:52
|
This is the code from inc_activeuser.asp (the tag seems not to work)
'#################################################################################
'## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
bolOverride = chkAUPermissions(strAUAnonOverride)
bolPanel = chkAUPermissions(strAUPAllow)
bolAUPage = chkAUPermissions(strAUAllow)
'## Ls3k - Before we can do anything we need to get rid of those slackers who have left ;)
deleteInactiveUsers()
'## Ls3k - Lest first deal with members logged in - for them we need to join with the members table.
intTotalActiveUsers = 0
intActiveMembers = 0
intActiveAnonMembers = 0
intActiveGuests = 0
strSql = "SELECT ME.MEMBER_ID, ME.M_NAME, ME.M_AUHIDE, ME.M_LEVEL " & _
"FROM " & strTablePrefix & "ACTIVE_USERS AU, " & strMemberTablePrefix & "MEMBERS ME " & _
"WHERE AU.MEMBER_ID = ME.MEMBER_ID"
set rsAM = my_conn.execute (strSql)
if rsAM.EOF or rsAM.BOF then
rsAM.close
set rsAM = nothing
else
do until rsAM.EOF
intTotalActiveUsers = intTotalActiveUsers + 1
if (rsAM("M_AUHIDE")="1" or isNull(rsAM("M_AUHIDE"))) or strAUAnon = 0 or bolOverride then
intActiveMembers = intActiveMembers + 1
if strActiveMemberList <> "" then
strActiveMemberList = strActiveMemberList & " | " & VBNewLine
end if
if strUseExtendedProfile then
strActiveMemberList = strActiveMemberList & "<a href=""pop_profile.asp?mode=display&id="& rsAM("MEMBER_ID") & """>"
else
strActiveMemberList = strActiveMemberList & "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rsAM("MEMBER_ID") & "')"">"
end if
strActiveMemberList = strActiveMemberList & "<font color=""" & strDefaultFontColor & """>"
if rsAM("M_LEVEL") = 2 then
strActiveMemberList = strActiveMemberList & "<font color=""" & strAUModColor & """>"
elseif rsAM("M_LEVEL") = 3 then
strActiveMemberList = strActiveMemberList & "<font color=""" & strAUAdminColor & """>"
end if
strActiveMemberList = strActiveMemberList & rsAM("M_NAME")
if rsAM("M_LEVEL") = 2 or rsAM("M_LEVEL") = 3 then
strActiveMemberList = strActiveMemberList & "</font>"
end if
strActiveMemberList = strActiveMemberList & "</font>"
strActiveMemberList = strActiveMemberList & "</a>"
else
intActiveAnonMembers = intActiveAnonMembers + 1
end if
rsAM.movenext
loop
rsAM.close
set rsAM = nothing
end if
'## Ls3k - Now lets count those peskey guests.
strSql = "SELECT COUNT(AU_IP) AS CNT FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = -1"
set rs = my_conn.execute (strSql)
intActiveGuests = rs("CNT")
rs.close
set rs = nothing
intTotalActiveUsers = intTotalActiveUsers + intActiveGuests
'## Ls3k - Ok, now it is time to check the record, cause it would be cool if we broke it!
chkAURecord(intTotalActiveUsers)
if strAUPCollapse then
if request("HideActiveUsers") = "Y" then
response.cookies(strUniqueID & "HideActiveUsers") = "Y"
response.cookies(strUniqueID & "HideActiveUsers").expires = dateAdd("d", 30, strForumTimeAdjust)
else
if request("HideActiveUsers") = "N" then
response.cookies(strUniqueID & "HideActiveUsers") = "N"
response.cookies(strUniqueID & "HideActiveUsers").expires = dateAdd("d", 30, strForumTimeAdjust)
end if
end if
end if
if strAUPIsland = "1" then
response.write " </table>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine & _
" <tr>" & VBNewLine & _
" <td>" & VBNewLine & _
" <br />" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine & _
" <tr>" & VBNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
" <table border=0 width=""100%"" cellspacing=1 cellpadding=4>" & VBNewLine & _
" <tr>" & VBNewLine & _
" <td bgcolor=""" & strHeadCellColor & """ colspan=""" & sGetColspan(7,6) & """ align=""center"">" & VBNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & fLang(strLangMOD_Ls3kAU_00001) & "</b></font>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
end if
if bolPanel then
response.write " <tr>" & VBNewLine & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) & """>" & VBNewLine
if strAUPCollapse then
if Request.Cookies(strUniqueID & "HideActiveUsers") = "Y" then
Response.Write"<a href=""" & ScriptName & "?HideActiveUsers=N"">" & getCurrentIcon(strIconPlus,fLang(strLangMOD_Ls3kAU_00002),"") & "</a>"
else
Response.Write"<a href=""" & ScriptName & "?HideActiveUsers=Y"">" & getCurrentIcon(strIconMinus,fLang(strLangMOD_Ls3kAU_00003),"") & "</a>"
end if
end if
if bolAUPage then
response.write " <a href=""active_users.asp"">" & VBNewLine
end if
response.write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & VBNewLine & _
" " & fLang(strLangMOD_Ls3kAU_00000) & VBNewLine & _
" </b></font>" & VBNewLine
if bolAUPage then
response.write " </a>" & VBNewLine
end if
response.write " </td>" & VBNewLine & _
" </tr>" & VBNewLine
if strAUPCollapse="0" or request.cookies(strUniqueID & "HideActiveUsers") = "N" or request.cookies(strUniqueID & "HideActiveUsers") = "" then
response.write " <tr>" & VBNewLine & _
" <td bgcolor=""" & strForumCellColor & """ align=""center"" rowspan=""2"">" & VBNewLine & _
" " & getCurrentIcon(strIconGroup,"","") & VBNewLine & _
" </td>" & VBNewLine & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) & """>" & VBNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & VBNewLine & _
" " & fLang(strLangMOD_Ls3kAU_00010) & ": " & intActiveMembers & " | " & VBNewLine
if strAUAnon and not(bolOverride) then
response.write " " & fLang(strLangMOD_Ls3kAU_00020) & ": " & intActiveAnonMembers & " | " & VBNewLine
end if
response.write " " & fLang(strLangMOD_Ls3kAU_00030) & ": " & intActiveGuests & " || " & VBNewLine & _
" " & fLang(strLangMOD_Ls3kAU_00040) & ": " & intTotalActiveUsers & VBNewLine
if (strAUAdminColor <> "" or strAUModColor <> "") AND intActiveMembers > 0 then
response.write " [ <font color=""" & strAUAdminColor & """>" & fLang(strLangMOD_Ls3kAU_00050) & "</font> | <font color=""" & strAUModColor & """>" & fLang(strLangMOD_Ls3kAU_00060) & "</font> ]" & VBNewLine
end if
response.write " <br>" & VBNewLine & _
" " & fLang(strLangMOD_Ls3kAU_00070) & ": " & intAURecord & " | " & fLang(strLangMOD_Ls3kAU_00080) & ": " & ChkDate(strAURecordDate," " & fLang(strLangMOD_Ls3kAU_00090) & " ",true) & VBNewLine & _
" </font>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine & _
" <tr>" & VBNewLine & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) & """>" & VBNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & VBNewLine & _
" " & fLang(strLangMOD_Ls3kAU_00100) & ": "
if intActiveMembers > 0 then
response.write strActiveMemberList & VBNewLine
else
response.write fLang(strLangMod_Ls3kAU_00110) & VBNewLine
end if
response.write " </font>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>"
end if
end if
|
Edited by - cladon on 07 January 2004 17:36:42 |
|
|
|
HuwR
Forum Admin
United Kingdom
20600 Posts |
Posted - 07 January 2004 : 17:36:20
|
In inc_active_users.asp look for this code
' LETS GET WHAT PAGE THEY ARE ON
strOnlinePathInfo = Request.ServerVariables("Path_Info")
strOnlineQueryString = Request.QueryString
if iOnlineTopicID <> "" Then
set rst = my_conn.execute("SELECT FORUM_ID,TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID = " & iOnlineTopicID)
if not rst.eof then
iOnlineForumID = rst("FORUM_ID")
Topic_Subject = rst("T_SUBJECT")
end if
rst.close
set rst = nothing
end if
This is what causes it to go back to default.asp because it is looking for the archived topic_id in the normal topic table, you need to change the code to
' LETS GET WHAT PAGE THEY ARE ON
strOnlinePathInfo = Request.ServerVariables("Path_Info")
strOnlineQueryString = Request.QueryString
strActiveTablePrefix = strTablePrefix
if ArchiveView = "true" then
strActiveTablePrefix = strTablePrefix & "A_"
end if
if iOnlineTopicID <> "" Then
set rst = my_conn.execute("SELECT FORUM_ID,TOPIC_ID, T_SUBJECT FROM " & strActiveTablePrefix & "TOPICS WHERE TOPIC_ID = " & iOnlineTopicID)
if not rst.eof then
iOnlineForumID = rst("FORUM_ID")
Topic_Subject = rst("T_SUBJECT")
end if
rst.close
set rst = nothing
end if
|
|
|
|
HuwR
Forum Admin
United Kingdom
20600 Posts |
Posted - 07 January 2004 : 17:40:57
|
| I would imagine you need to find the file which contains the ActiveUserTracker() function |
|
|
|
btekcan
Junior Member
Turkey
112 Posts |
Posted - 07 January 2004 : 17:49:28
|
it is in inc_header.asp (I put 2 message up)
if strUseActiveUsers = "1" then
select case Request.Form("Method_Type")
case "login"
if strLoginStatus = 1 then
AUHandleLoging()
end if
case "logout"
AUHandleLoging()
end select
ActiveUserTracker()
end if
|
|
|
|
Topic |
|
Topic Locked
