Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Active users mod		  New Topic
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 3

golfmann
Junior Member

United States
450 Posts
Posted - 07 March 2014 :  15:35:33  Show Profile  Visit golfmann's Homepage
lol
Well, that IS a problem, no doubt.

Been fine here so far....
But I'll keep a closer eye, me thinks.
Go to Top of Page

spreadpoems
New Member

52 Posts
Posted - 31 March 2014 :  11:47:00  Show Profile
Carefree, if it's not too much trouble can you post your entire active_users.asp

I get an email notification whenever there is a 500 error on my forum and that page produces at least 10 unique errors a day.

I tried following your instructions but my page has been modified so much that I don't know where to start.

Thanks in advance.
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 31 March 2014 :  16:10:19  Show Profile
My copy is also heavily modified, but here's a clean one; up to date with all the user agents, with all the security and other fixes applied. I modified this to include Windows 10 and IE11 (user agent is different for IE11 in W10). Note: IE reports the Windows version as 6.4 but Firefox as 6.3, so I had to include both.


<%
'###############################################################################
'##
'##				 Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-14 Michael Anderson, Pierre Gorissen,
'##				 Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.	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 an 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:
'##
'##				 Free Software Foundation, Inc.
'##				 59 Temple Place, Suite 330
'##				 Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##				 http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##				 manderson@snitz.com
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<%
bolAUPage = chkAUPermissions(strAUAllow)
bolOverride = chkAUPermissions(strAUAnonOverride)
bolAUUA= chkAUPermissions(strAUUA)
bolAUIP= chkAUPermissions(strAUIP)
bolAULocal= chkAUPermissions(strAULocal)
bolFirstAlternating = False 'Change to 'true' to reverse row color alternation
intTotalActiveMembers = 0
intTotalActiveGuests = 0
intTotalActiveUsers = 0
If not CBool(bolAUPage) Then
	Response.Redirect "default.asp"
End if
deleteInactiveUsers()
strSql = "SELECT COUNT(AU_IP) AS CNT FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = -1"
Set rs = my_conn.Execute(strSql)
If not (rs.BOF or rs.EOF) Then
	intTotalActiveGuests = rs("CNT")
	rs.Close
End If
Set rs = Nothing
strSql = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID <> -1"
Set rs = my_conn.Execute(strSql)
If not (rs.BOF or rs.EOF) Then
	intTotalActiveMembers = rs("CNT")
	rs.Close
End If
Set rs = Nothing
intTotalActiveUsers = intTotalActiveMembers + intTotalActiveGuests
Response.Write "      <table width=""100%"" align=""center"" border=""0"">" & VBNewLine & _
	"        <tr>" & VBNewLine & _
	"          <td>" & VBNewLine & _
	"            <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">" & fLang(strLangMOD_Ls3kAU_01000) & "</a>" & VBNewLine & _
	"            <br>" & VBNewLine & _
	"            " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangMOD_Ls3kAU_01010) & " </font><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>(" & fLang(strLangMOD_Ls3kAU_01020) & " " & chkDate(DateToStr(strForumTimeAdjust)," ",true) & ")</font>" & VBNewLine & _
	"          </td>" & VBNewLine
If strAURefresh = "1" Then
	doAutoReload()
End if
Response.Write "        </tr>" & VBNewLine & _
	"      </table>" & VBNewLine & _
	"      <br>" & VBNewLine
If strAUAdminColor <> "" or strAUModColor <> "" Then
	Response.Write "            <table border=""0"" cellspacing=""0"" cellpadding=""2"" align=""center"" width=""95%""><tr><td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>[ <b><font color=""" & strAUAdminColor & """>" & fLang(strLangMOD_Ls3kAU_00050) & "</font></b> | <b><font color=""" & strAUModColor & """>" & fLang(strLangMOD_Ls3kAU_00060) & "</font></b> ]</font></td></tr></table>" & VBNewLine
End if
colspan=4
Response.Write "      <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" width=""95%"">" & VBNewLine & _
	"        <tr>" & VBNewLine & _
	"          <td bgcolor=""" & strTableBorderColor & """>" & VBNewLine & _
	"            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""3"">" & VBNewLine & _
	"              <tr>" & VBNewLine & _
	"                <td bgcolor=""" & strHeadCellColor & """ valign=""middle"" width=""5%"" nowrap> </td>" & VBNewLine & _
	"                <td bgcolor=""" & strHeadCellColor & """ valign=""middle"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & fLang(strLangMOD_Ls3kAU_01030) & "</b></font></td>" & VBNewLine
If bolAUUA Then
	colspan=colspan+1
	Response.Write "                <td bgcolor=""" & strHeadCellColor & """ align=center valign=""middle"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & fLang(strLangMOD_Ls3kAU_01040) & "</b></font></td>" & VBNewLine
End if
If bolAUIP Then
	colspan=colspan+1
	Response.Write "                 <td bgcolor=""" & strHeadCellColor & """ align=center valign=""middle"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & fLang(strLangMOD_Ls3kAU_01050) & "</b></font></td>" & VBNewLine
End if
If bolAULocal Then
	colspan=colspan+1
	Response.Write "                <td bgcolor=""" & strHeadCellColor & """ align=center valign=""middle"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & fLang(strLangMOD_Ls3kAU_01060) & "</b></font></td>" & VBNewLine
End if
Response.Write "                <td bgcolor=""" & strHeadCellColor & """ align=center valign=""middle"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & fLang(strLangMOD_Ls3kAU_01070) & "</b></font></td>" & VBNewLine & _
	"                <td bgcolor=""" & strHeadCellColor & """ align=center valign=""middle"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & fLang(strLangMOD_Ls3kAU_01080) & "</b></font></td>" & VBNewLine & _
	"              </tr>" & VBNewLine
strSql = "SELECT ME.MEMBER_ID, ME.M_NAME, ME.M_AUHIDE, AU.AU_IP, AU.AU_LOGINTIME, AU.AU_LASTACTIVETIME, AU.AU_LASTPAGE, ME.M_ICQ, ME.M_YAHOO, ME.M_AIM, ME.M_MSN, ME.M_LEVEL, AU.AU_QUERYSTRING, AU.AU_USER_AGENT " & _
				"FROM " & strTablePrefix & "ACTIVE_USERS AU, " & strMemberTablePrefix & "MEMBERS ME WHERE AU.MEMBER_ID = ME.MEMBER_ID"
Set rsAM = my_conn.Execute(strSql)
If not (rsAM.EOF or rsAM.BOF) Then
	Response.Write "              <tr>" & VBNewLine & _
		"                <td colspan=""" & colspan & """ bgcolor=""" & strCategoryCellColor & """>" & VBNewLine & _
		"                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & fLang(strLangMOD_Ls3kAU_01090) & " : " & intTotalActiveMembers & "</b></font>" & VBNewLine & _
		"                </td>" & VBNewLine & _
		"              </tr>" & VBNewLine
	bolAlternating = bolFirstAlternating
	rsAM.MoveFirst
	Do until rsAM.EOF
		strLastPage = rsAM("AU_LASTPAGE")
		strQS = rsAM("AU_QUERYSTRING")
		If bolAlternating Then
			CColor = strAltForumCellColor
		Else
			CColor = strForumCellColor
		End if
		bolAlternating = not(bolAlternating)
		Response.Write "              <tr>" & VBNewLine & _
			"                <td bgcolor=""" & CColor & """ valign=""middle"" width=""5%"" nowrap>"
		If (rsAM("M_AUHIDE")="1" or isNull(rsAM("M_AUHIDE"))) or strAUAnon = 0 or bolOverride Then
			profileOptions()
		Else
			Response.Write " "
		End if
		Response.Write "                </td>" & VBNewLine & _
			"                <td bgcolor=""" & CColor & """ valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & VBNewLine
		If (rsAM("M_AUHIDE")="1" or isNull(rsAM("M_AUHIDE"))) or strAUAnon = 0 or bolOverride Then 'If not anonymous, Then lets show em.
			If strUseExtendedProfile Then
				Response.Write "                  <a href=""pop_profile.asp?mode=display&id="& rsAM("MEMBER_ID") & """>"
			Else
				Response.Write "                  <a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rsAM("MEMBER_ID") & "')"">"
			End if
			If rsAM("M_LEVEL") = 2 Then
				Response.Write "<b><font color=""" & strAUModColor & """>"
			ElseIf rsAM("M_LEVEL") > 2 Then
				Response.Write "<b><font color=""" & strAUAdminColor & """>"
			End if
			Response.Write rsAM("M_NAME")
			If rsAM("M_LEVEL") = 2 or rsAM("M_LEVEL") = 3 Then
				Response.Write "</font><b>"
			End if
			Response.Write "</a>"
		Else
			Response.Write "[" & fLang(strLangMOD_Ls3kAU_01100) & "]"
		End if
		Response.Write "                </font></td>" & VBNewLine
		If bolAUUA Then
			Response.Write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """>" & fUserAgent(rsAM("AU_USER_AGENT")) & "</font></td>" & VBNewLine
		End if
		If bolAUIP Then
			Response.Write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & rsAM("AU_IP") & "</font></td>" & VBNewLine
		End if
		If bolAULocal Then
			Response.Write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & WhatPage(strLastPage,strQS) & "</font></td>" & VBNewLine
		End if
		Response.Write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """><b>" & chkDate(rsAM("AU_LOGINTIME"),"</b><br>",true) & "</font></td>" & VBNewLine & _
			"                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & abs(DateDiff("n",StrToDate(rsAM("AU_LOGINTIME")),strForumTimeAdjust)) & " " & fLang(strLangMOD_Ls3kAU_01110) & "</font></td>" & VBNewLine & _
			"              </tr>" & VBNewLine
		rsAM.MoveNext
	Loop
	rsAM.Close
End if
Set rsAM = Nothing
strSql = "SELECT AU_IP, AU_LOGINTIME, AU_LASTACTIVETIME, AU_LASTPAGE, AU_QUERYSTRING, AU_USER_AGENT FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = -1"
Set rsAG = my_conn.Execute(strSql)
If not (rsAG.EOF or rsAG.BOF) Then
	Response.Write "              <tr>" & VBNewLine & _
		"                <td colspan=""" & colspan & """ bgcolor=""" & strCategoryCellColor & """>" & VBNewLine & _
		"                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & fLang(strLangMOD_Ls3kAU_01120) & " : " & intTotalActiveGuests & "</b></font>" & VBNewLine & _
		"                </td>" & VBNewLine & _
		"              </tr>" & VBNewLine
	bolAlternating = bolFirstAlternating
	rsAG.MoveFirst
	Do until rsAG.EOF
		strLastPage = rsAG("AU_LASTPAGE")
		strQS = rsAG("AU_QUERYSTRING")
		c=c+1
		If bolAlternating Then
			CColor = strAltForumCellColor
		Else
			CColor = strForumCellColor
		End if
		bolAlternating = not(bolAlternating)
		Response.Write "              <tr>" & VBNewLine & _
			"                <td bgcolor=""" & CColor & """ valign=""middle"" width=""5%"" nowrap> </td>" & VBNewLine & _
			"                <td bgcolor=""" & CColor & """ valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & fLang(strLangMOD_Ls3kAU_01130) & c & "</font></td>" & VBNewLine
		If bolAUUA Then
			Response.Write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """>" & fUserAgent(rsAG("AU_USER_AGENT")) & "</font></td>" & VBNewLine
		End if
		If bolAUIP Then
			Response.Write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & rsAG("AU_IP") & "</font></td>" & VBNewLine
		End if
		If bolAULocal Then
			Response.Write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & WhatPage(strLastPage,strQS) & "</font></td>" & VBNewLine
		End if
		Response.Write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """><b>" & chkDate(rsAG("AU_LOGINTIME"),"</b><br>",true) & "</font></td>" & VBNewLine & _
			"                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & abs(DateDiff("n",StrToDate(rsAG("AU_LOGINTIME")),strForumTimeAdjust)) & " " & fLang(strLangMOD_Ls3kAU_01140) & "</font></td>" & VBNewLine & _
			"              </tr>" & VBNewLine
		rsAG.MoveNext
	Loop
	rsAG.Close
End if
Set rsAG = Nothing
Response.Write "            </table>" & VBNewLine & _
	"          </td>" & VBNewLine & _
	"        </tr>" & VBNewLine & _
	"      </table>" & VBNewLine & _
	"      <br>" & VBNewLine
WriteFooter

Function fUserAgent(ua)
	If inStr(ua, "aardvark") Then
		strBrowser = "Aardvark Bot"
	ElseIf inStr(ua, "Abacho") Then
		strBrowser = "Abacho Bot"
	ElseIf inStr(ua, "About") Then
		strBrowser = "About Bot"
	ElseIf inStr(ua, "Accelatech") Then
		strBrowser = "Accelatech Bot"
	ElseIf inStr(ua, "accoon") or inStr(ua, "Accoon") Then
		strBrowser = "Accona Bot"
	ElseIf inStr(ua, "AESOP") Then
		strBrowser = "Aesop Bot"
	ElseIf inStr(ua, "agbot") Then
		strBrowser = "AgHaven Bot"
	ElseIf inStr(ua, "aipbot") Then
		strBrowser = "AIP Bot"
	ElseIf inStr(ua, "Aladin") Then
		strBrowser = "Aladin"
	ElseIf inStr(ua, "Aleksika") Then
		strBrowser = "Aleksika Spider"
	ElseIf inStr(ua, "ia_archiver") Then
		strBrowser = "Alexa"
	ElseIf inStr(ua, "Alkaline") Then
		strBrowser = "Alkaline Bot"
	ElseIf inStr(ua, "crawler@fast") or inStr(ua, "FAST-WebCrawler") Then
		strBrowser = "AllTheWeb"
	ElseIf inStr(ua, "Mercator") or inStr(ua, "Scooter") Then
		strBrowser = "Altavista"
	ElseIf inStr(ua, "Amaya") or inStr(ua, "amaya") Then
		strBrowser = "Amaya Bot"
	ElseIf inStr(ua, "Amfibi") or inStr(ua, "amibot") Then
		strBrowser = "AmFib Bot"
	ElseIf inStr(ua, "Amniga") Then
		strBrowser = "Amiga"
	ElseIf inStr(ua, "amzn") Then
		strBrowser = "Amazon Bot"
	ElseIf inStr(ua, "Anemone") Then
		strBrowser = "Anemone Bot"
	ElseIf inStr(ua, "AnnoMille") Then
		strBrowser = "Anno Mille Bot"
	ElseIf inStr(ua, "Chase") Then
		strBrowser = "Answer Chase"
	ElseIf inStr(ua, "Anzwers") Then
		strBrowser = "Anzwers Bot"
	ElseIf inStr(ua, "AOL 3") Then
		strBrowser = "AOL 3"
	ElseIf inStr(ua, "AOL 4") Then
		strBrowser = "AOL 4"
	ElseIf inStr(ua, "AOL 5") Then
		strBrowser = "AOL 5"
	ElseIf inStr(ua, "AOL 6") Then
		strBrowser = "AOL 6"
	ElseIf inStr(ua, "AOL 7") Then
		strBrowser = "AOL 7"
	ElseIf inStr(ua, "AOL 8") Then
		strBrowser = "AOL 8"
	ElseIf inStr(ua, "AOL 9")  Then
		strBrowser = "AOL 9"
	ElseIf inStr(ua, "AOL") Then
		strBrowser = "AOL"
	ElseIf inStr(ua, "Apexoo") Then
		strBrowser = "Apexoo Bot"
	ElseIf inStr(ua, "Aport") Then
		strBrowser = "Aport Bot"
	ElseIf inStr(ua, "appie") Then
		strBrowser = "Appie Bot"
	ElseIf inStr(ua, "Araby") Then
		strBrowser = "Araby Bot"
	ElseIf inStr(ua, "Arach") Then
		strBrowser = "Arach No Idea"
	ElseIf inStr(ua, "aranhabot") Then
		strBrowser = "Aranha Bot"
	ElseIf inStr(ua, "archive") Then
		strBrowser = "Archive Org"
	ElseIf inStr(ua, "Argus") Then
		strBrowser = "Argus"
	ElseIf inStr(ua, "arianna.libero.it") Then
		strBrowser = "Arianna/Libero"
	ElseIf inStr(ua, "Arikus") Then
		strBrowser = "Arikus Bot"
	ElseIf inStr(ua, "Arquivo") Then
		strBrowser = "Arquivo Crawler"
	ElseIf inStr(ua, "ASAHA") Then
		strBrowser = "Asaha TU"
	ElseIf inStr(ua, "Ask.24") or inStr(ua, "AskAbout") Then
		strBrowser = "Ask About"
	ElseIf inStr(ua, "asked/Nutch") Then
		strBrowser = "Asked Bot"
	ElseIf inStr(ua, "Jeeves") Then
		strBrowser = "Ask Jeeves"
	ElseIf inStr(ua, "ASPSeek") Then
		strBrowser = "ASP Seek"
	ElseIf inStr(ua, "Baidu") Then
		strBrowser = "Baidu Spider"
	ElseIf inStr(ua, "Bookdog") or inStr(ua, "BookMacster") Then
		strBrowser = "Bookdog Bot"
	ElseIf inStr(ua, "BotTracer") Then
		strBrowser = "Bot Tracer"
	ElseIf inStr(ua, "Cabot") Then
		strBrowser = "Cabot"
	ElseIf inStr(ua, "Camino") or inStr(ua, "Chimera") Then
		strBrowser = "Camino"
	ElseIf inStr(ua, "CatchBot") Then
		strBrowser = "Catch Bot"
	ElseIf inStr(ua, "Chrome") Then
		If inStr(ua,"RockMelt") Then
			strBrowser = "RockMelt"
			strVersion=""
			For i = 1 to len(ua)
				If mid(ua,i,9)="RockMelt/" Then
					j=i+9
					Do while not mid(ua,j,1)=" "
						strVersion=strVersion&mid(ua,j,1)
						j=j+1
					Loop
				End If
			Next
			strBrowser=strBrowser&" "&strVersion
		Else
			strBrowser = "Chrome"
		End If
	ElseIf inStr(ua, "Clushbot") Then
		strBrowser = "Clush Bot"
	ElseIf inStr(ua, "Convera") Then
		strBrowser = "Convera Crawler"
	ElseIf inStr(ua, "CorenSearch") Then
		strBrowser = "Coren Bot"
	ElseIf inStr(ua, "Crawler") Then
		strBrowser = "Crawler DE"
	ElseIf inStr(ua, "Dillo") Then
		strBrowser = "Dillo"
	ElseIf inStr(ua, "Robozilla") Then
		strBrowser = "DMOZ"
	ElseIf inStr(ua, "DocZilla") Then
		strBrowser = "DocZilla"
	ElseIf inStr(ua, "NPBot") Then
		strBrowser = "Domain Researcher Bot"
	ElseIf inStr(ua, "Dreamcast") Then
		strBrowser = "Dreamcast"
	ElseIf inStr(ua, "Speedy+Spider") Then
		strBrowser = "EntireWeb"
	ElseIf inStr(ua, "Epiphany") Then
		strBrowser = "Epiphany"
	ElseIf inStr(ua, "EudoraWeb") Then
		strBrowser = "Eudora Web"
	ElseIf inStr(ua, "MuscatFerret") Then
		strBrowser = "EuroFerret"
	ElseIf inStr(ua, "exactseek") Then
		strBrowser = "ExactSeek"
	ElseIf inStr(ua, "Architext") Then
		strBrowser = "Excite"
	ElseIf inStr(ua, "Fireball") Then
		strBrowser = "Fireball DE"
	ElseIf inStr(ua, "Flock") Then
		strBrowser = "Flock"
	ElseIf inStr(ua, "Galeon") Then
		strBrowser = "Galeon"
	ElseIf inStr(ua, "Gigabot") Then
		strBrowser = "Gigabot"
	ElseIf inStr(ua, "Moget") Then
		strBrowser = "Goo JP"
	ElseIf inStr(ua, "Googlebot") or inStr(ua, "googlebot") or inStr(ua, "AppEngine-Google") or (inStr(ua, "google") and inStr(ua, "bot")) Then
		strBrowser = "Google Bot"
	ElseIf inStr(ua, "Mediapartners") Then
		strBrowser = "Google Adsense"
	ElseIf inStr(ua, "Google CHTML") Then
		strBrowser = "Google Proxy Server"
	ElseIf inStr(ua, "Sun")  AND inStr(ua, "Mozilla/3") Then
		strBrowser = "HotJava"
	ElseIf inStr(ua, "iCab") Then
		strBrowser = "iCab"
	ElseIf inStr(ua, "ICE") Then
		strBrowser = "ICE"
	ElseIf inStr(ua, "Infoseek") or inStr(ua, "Ultraseek") Then
		strBrowser = "Infoseek"
	ElseIf inStr(ua, "slurp") or inStr(ua, "Slurp") Then
		strBrowser = "Inktomi"
	ElseIf inStr(ua, "internetseer") or inStr(ua, "Internetseer") Then
		strBrowser = "InternetSeer"
	ElseIf inStr(ua, "Jetbot") Then
		strBrowser = "Jetbot"
	ElseIf inStr(ua, "Akregator") Then
		strBrowser = "KDE RSS Reader"
	ElseIf inStr(ua, "Konqueror") Then
		strBrowser = "Konqueror"
	ElseIf inStr(ua, "Mantra") or inStr(ua, "ZyBorg") Then
		strBrowser = "Look Smart"
	ElseIf inStr(ua, "Lycos") Then
		strBrowser = "Lycos"
	ElseIf inStr(ua, "Lynx") Then
		strBrowser = "Lynx"
	ElseIf inStr(ua, "MSIE 11") or inStr(ua, "NT 6.4; WOW64; Trident/7.0; rv:11.0") Then
		strBrowser = "Microsoft IE 11"
	ElseIf inStr(ua, "MSIE 10") Then
		strBrowser = "Microsoft IE 10"
	ElseIf inStr(ua, "MSIE 9") Then
		strBrowser = "Microsoft IE 9"
	ElseIf inStr(ua, "MSIE 8") Then
		strBrowser = "Microsoft IE 8"
	ElseIf (inStr(ua, "MSIE 7") or mid(ua,26,6)="MSIE 7") Then
		strBrowser = "Microsoft IE 7"
		If right(ua, 12) = "MS-RTC LM 8)" Then
			strBrowser = "Microsoft IE 8"
		End if
	ElseIf inStr(ua, "MSIE 6") Then
		strBrowser = "Microsoft IE 6"
	ElseIf inStr(ua, "MSIE 5") Then
		strBrowser = "Microsoft IE 5"
	ElseIf inStr(ua, "MSIE 4") Then
		strBrowser = "Microsoft IE 4"
	ElseIf inStr(ua, "MSIE 3") Then
		strBrowser = "Microsoft IE 3"
	ElseIf inStr(ua, "MSIE 2") Then
		strBrowser = "Microsoft IE 2"
	ElseIf inStr(ua, "MSIE 1")	Then
		strBrowser = "Microsoft IE 1"
	ElseIf inStr(ua, "Gecko")  AND inStr(ua, "Netscape")  AND inStr(ua, "rv:0") Then
		strBrowser = "Mozilla"
	ElseIf inStr(ua, "Gecko")  AND inStr(ua, "Netscape")  AND inStr(ua, "rv:1") Then
		strBrowser = "Mozilla 1"
	ElseIf inStr(ua, "Gecko")  AND inStr(ua, "Netscape")  AND inStr(ua, "rv:2") Then
		strBrowser = "Mozilla 2"
	ElseIf inStr(ua, "Firebird") AND inStr(ua, "Gecko") Then
		strBrowser = "Mozilla Firebird"
	ElseIf (inStr(ua, "Firefox") AND inStr(ua, "Gecko")) or (mid(ua,len(ua)-13,7)="FireFox") Then
		strBrowser = "Mozilla Firefox "
		For x = 1 to len(ua)-8
			If mid(ua,x,8)="Firefox/" Then
				strBrowser = "Firefox " & mid(ua,x+8)
			End if
		Next
	ElseIf inStr(ua, "msnbot") Then
		strBrowser = "MSN"
	ElseIf inStr(ua, "My agent") Then
		strBrowser = "My Agent"
	ElseIf inStr(ua, "NameProtect") Then
		strBrowser = "NameProtect"
	ElseIf inStr(ua, "NetCaptor") Then
		strBrowser = "Net Captor"
	ElseIf inStr(ua, "Mozilla/1") Then
		strBrowser = "Netscape 1"
	ElseIf inStr(ua, "Mozilla/2") Then
		strBrowser = "Netscape 2"
	ElseIf inStr(ua, "Mozilla/3") Then
		strBrowser = "Netscape 3"
	ElseIf inStr(ua, "Mozilla/4") Then
		strBrowser = "Netscape 4"
	ElseIf inStr(ua, "Mozilla/5") Then
		strBrowser = "Netscape 5"
	ElseIf inStr(ua, "Netscape/6") Then
		strBrowser = "Netscape 6"
	ElseIf inStr(ua, "Netscape/7") Then
		strBrowser = "Netscape 7"
	ElseIf inStr(ua, "Netscape/8") Then
		strBrowser = "Netscape 8"
	ElseIf inStr(ua, "Gulliver") Then
		strBrowser = "Northernlight"
	ElseIf inStr(ua, "Opera") Then
		strBrowser = "Opera"
	ElseIf inStr(ua, "Opera 1")	Then
		strBrowser = "Opera 1"
	ElseIf inStr(ua, "Opera 2") Then
		strBrowser = "Opera 2"
	ElseIf inStr(ua, "Opera 3") Then
		strBrowser = "Opera 3"
	ElseIf inStr(ua, "Opera 4") Then
		strBrowser = "Opera 4"
	ElseIf inStr(ua, "Opera 5")	Then
		strBrowser = "Opera 5"
	ElseIf inStr(ua, "Opera 6") Then
		strBrowser = "Opera 6"
	ElseIf inStr(ua, "Opera 7") Then
		strBrowser = "Opera 7"
	ElseIf inStr(ua, "Opera 8") Then
		strBrowser = "Opera 8"
	ElseIf inStr(ua, "PhpDig") Then
		strBrowser = "PhpDig"
	ElseIf inStr(ua, "MSPIE 1") Then
		strBrowser = "Pocket IE 1"
	ElseIf inStr(ua, "MSPIE 2") Then
		strBrowser = "Pocket IE 2"
	ElseIf inStr(ua, "Microsoft URL Control") Then
		strBrowser = "Possible EMail Collector"
	ElseIf inStr(ua, "StackRambler") Then
		strBrowser = "Rambler"
	ElseIf inStr(ua, "Robozilla") Then
		strBrowser = "Robozilla"
	ElseIf inStr(ua, "Safari") Then
		strBrowser = "Safari"
	ElseIf inStr(ua, "SeaMonkey") Then
		strBrowser = "Sea Monkey"
	ElseIf inStr(ua, "Fluffy") Then
		strBrowser = "Search Hippo"
	ElseIf inStr(ua, "Teoma") Then
		strBrowser = "Teoma"
	ElseIf inStr(ua, "T-H-U-N-D-E3-R-S-T-O-N-E") Then
		strBrowser = "Thunderstone"
	ElseIf inStr(ua, "TurnitinBot") Then
		strBrowser = "Turnitin"
	ElseIf inStr(ua, "UbiCrawler") Then
		strBrowser = "UbiCrawler"
	ElseIf inStr(ua, "Voilabot") Then
		strBrowser = "Voila FR"
	ElseIf inStr(ua, "W3C_Validator") Then
		strBrowser = "W3C Validator"
	ElseIf inStr(ua, "WebCrawler") Then
		strBrowser = "WebCrawler"
	ElseIf inStr(ua, "wombat") Then
		strBrowser = "Web Wombat"
	ElseIf inStr(ua, "Zyborg") Then
		strBrowser = "Wisenut"
	ElseIf inStr(ua, "Yahoo") Then
		strBrowser = "Yahoo"
	Else
		strBrowser = "Unknown"
	End If
	GetBrowser = strBrowser
	If inStr(ua, "Amiga") Then
		strSystem = "Amiga"
	ElseIf inStr(ua, "AOLTV") or inStr(ua, "AOL_TV")  Then
		strSystem = "AOL TV"
	ElseIf inStr(ua, "BSD")  or inStr(ua, "FreeBSD") Then
		strSystem = "Free BSD"
	ElseIf inStr(ua, "Linux") Then
		strSystem = "Linux"
	ElseIf inStr(ua, "68000") or inStr(ua, "68k") AND inStr(ua, "Mac") Then
		strSystem = "Mac 68k"
	ElseIf inStr(ua, "Mac OS X") Then
		strSystem = "Mac OS X"
	ElseIf inStr(ua, "Mac_PowerPC") or inStr(ua, "PPC") Then
		strSystem = "Mac PowerPC"
	ElseIf inStr(ua, "Mac")  or (inStr(ua, "Apple") and not inStr(ua, "AppleWebKit")) Then
		strSystem = "MacLngosh"
	ElseIf inStr(ua, "Nokia") Then
		strSystem = "Nokia"
	ElseIf inStr(ua, "OS/2")  Then
		strSystem = "OS/2"
	ElseIf inStr(ua, "PalmOS") Then
		strSystem = "Palm OS"
	ElseIf inStr(ua, "Elaine") Then
		strSystem = "PalmPilot"
	ElseIf inStr(ua, "Solaris") Then
		strSystem = "Solaris"
	ElseIf inStr(ua, "SunOS") Then
		strSystem = "Sun OS"
	ElseIf inStr(ua, "Unix") or inStr(ua, "X11") Then
		strSystem = "Unix"
	ElseIf inStr(ua, "WebTV") Then
		strSystem = "Web TV"
	ElseIf inStr(ua, "NT 6.3") or inStr(ua, "NT 6.4") Then
		strSystem = "Windows 10"
	ElseIf inStr(ua, "NT 6.2") or inStr(ua, "Windows 8") Then
		strSystem = "Windows 8 or Server 2012"
	ElseIf inStr(ua, "NT 6.1") or inStr(ua, "Windows 7") Then
		strSystem = "Windows 7"
	ElseIf inStr(ua, "NT 6.0") or inStr(ua, "Windows Vista") Then
		strSystem = "Windows Vista"
	ElseIf inStr(ua, "NT 5.2") or inStr(ua, "Windows 2003") Then
		strSystem = "Windows 2003"
	ElseIf inStr(ua, "NT 5.1") or inStr(ua, "Windows XP") Then
		strSystem = "Windows XP"
	ElseIf inStr(ua, "NT 5.0") or inStr(ua, "Windows 2000") Then
		strSystem = "Windows 2000"
	ElseIf inStr(ua, "NT 4.0") or inStr(ua, "Windows NT") or inStr(ua, "WinNT") Then
		strSystem = "Windows  NT 4"
	ElseIf inStr(ua, "Windows 3.1") or inStr(ua, "Win16") Then
		strSystem = "Windows 3.x"
	ElseIf inStr(ua, "Windows 95") or inStr(ua, "Win95") Then
		strSystem = "Windows 95"
	ElseIf inStr(ua, "Windows 98") or inStr(ua, "Win98") Then
		strSystem = "Windows 98"
	ElseIf inStr(ua, "Windows CE") Then
		strSystem = "Windows CE"
	ElseIf inStr(ua, "Windows ME") or inStr(ua, "Win 9x 4.90") Then
		strSystem = "Windows ME"
	Else
		strSystem = "Unknown"
	End If
	GetOS = strSystem
	fUserAgent = GetOS & "<br/>" & GetBrowser
End Function

Function WhatPage(fScript, fQ)
	fQuery = fQ
	strPage = "<a href=""" & fScript
	If Trim(fQuery) <> "" Then
		strPage = strPage & "?" & fQuery
	End if
	strPage = strPage & """>"
	Select Case lCase(Trim(fScript))
		Case "active.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01160)
		Case "members.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01170)
		Case "search.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01180)
		Case "faq.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01190)
		Case "policy.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01200)
		Case "register.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01210)
		Case "active_users.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01220)
		Case "default.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01230)
		Case "members.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01240)
		Case "post_info.asp"
			strPage = strPage & fLang(strLangMOD_Ls3kAU_01241)
		Case "pop_profile.asp"
			If inStr(lCase(fQuery), "display") Then
				strPage = strPage & fLang(strLangMOD_Ls3kAU_01250)
			Else
				strPage = fLang(strLangMOD_Ls3kAU_01260)
			End if
		Case "forum.asp"
			strQuery = fQuery
			fForum_ID = analyzeQuery(strQuery, "FORUM_ID")
			If fForum_ID = "" Then
				strPage = fLang(strLangMOD_Ls3kAU_01270)
			Else
				strSql = "SELECT F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & fForum_ID
				Set rst = my_conn.Execute(strSql)
				If rst.EOF or rst.BOF Then
					strPage = fLang(strLangMOD_Ls3kAU_01270)
				Else
					fSubject = rst("F_SUBJECT")
					rst.Close
					If chkForumAccess(fForum_ID, MemberID, False) Then
						strQuery = fQuery
						If lCase(analyzeQuery(strQuery, "ARCHIVE")) = "true" Then
							strPage = fLang(strLangMOD_Ls3kAU_01280) & "<br><a href=""forum.asp?" & fQuery & """>"
						Else
							strPage = fLang(strLangMOD_Ls3kAU_01290) & "<br><a href=""forum.asp?" & fQuery & """>"
						End if
						strPage = strPage & fSubject
					Else
						strPage = fLang(strLangMOD_Ls3kAU_01300)
					End if
				End if
				Set rst = Nothing
			End if
		case "topic.asp"
			strQuery = fQuery
			fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID")
			if fTopic_ID = "" then
				strPage = fLang(strLangMOD_Ls3kAU_01270)
			else
				strQuery = fQuery
				if lcase(analyzeQuery(strQuery, "ARCHIVE")) = "true" then
					strSql = "SELECT FORUM_ID, TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & "A_TOPICS WHERE TOPIC_ID=" & fTopic_ID
				else
					strSql = "SELECT FORUM_ID, TOPIC_ID, T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID
				end if
				Set rst = my_conn.Execute(strSql)
				If rst.EOF or rst.BOF Then
					strPage = fLang(strLangMOD_Ls3kAU_01270)
				Else
					fSubject = rst("T_SUBJECT")
					fForum_ID = rst("FORUM_ID")
					rst.Close
					If chkForumAccess(fForum_ID, MemberID, False) Then
						strQuery = fQuery
						If lCase(analyzeQuery(strQuery, "ARCHIVE")) = "true" Then
							strPage = fLang(strLangMOD_Ls3kAU_01310) & "<br><a href=""topic.asp?" & fQuery & """>"
						Else
							strPage = fLang(strLangMOD_Ls3kAU_01320) & "<br><a href=""topic.asp?" & fQuery & """>"
						End if
						strPage = strPage & fSubject
					Else
						strOnlineLocation = fLang(strLangMOD_Ls3kAU_01330)
					End if
					Set rst = Nothing
				End if
			End if
		Case "post.asp"
			strQuery = fQuery
			fMethod = analyzeQuery(strQuery, "method")
			If lCase(fMethod) = "topicquote" OR lCase(fMethod) = "replyquote" Then
				fMethod = "reply"
			End if
			Select Case lCase(fMethod)
				Case "reply"
					strQuery = fQuery
					fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID")
					strQuery = fQuery
					fForum_ID = analyzeQuery(strQuery, "FORUM_ID")
					If fTopic_ID = "" or fForum_ID = "" Then
						strPage = fLang(strLangMOD_Ls3kAU_01270)
					Else
						strSql = "SELECT T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID
						Set rst = my_conn.Execute(strSql)
						If rst.EOF or rst.BOF Then
							strPage = fLang(strLangMOD_Ls3kAU_01270)
						Else
							fSubject = rst("T_SUBJECT")
							rst.Close
							If chkForumAccess(fForum_ID, MemberID, False) Then
								strPage = fLang(strLangMOD_Ls3kAU_01340) & "<br><a href=""link.asp?TOPIC_ID=" & fTopic_ID & """>"
								strPage = strPage & fSubject
							Else
								strOnlineLocation = fLang(strLangMOD_Ls3kAU_01350)
							End if
						End if
						Set rst = Nothing
					End if
				Case "edit"
					strQuery = fQuery
					fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID")
					strQuery = fQuery
					fForum_ID = analyzeQuery(strQuery, "FORUM_ID")
					If fTopic_ID = "" or fForum_ID = "" Then
						strPage = fLang(strLangMOD_Ls3kAU_01270)
					Else
						strSql = "SELECT T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID
						Set rst = my_conn.Execute(strSql)
						If rst.EOF or rst.BOF Then
							strPage = fLang(strLangMOD_Ls3kAU_01270)
						Else
							fSubject = rst("T_SUBJECT")
							rst.Close
							If chkForumAccess(fForum_ID, MemberID, False) Then
								strPage = fLang(strLangMOD_Ls3kAU_01351) & "<br><a href=""link.asp?TOPIC_ID=" & fTopic_ID & """>"
								strPage = strPage & fSubject
							Else
								strOnlineLocation = fLang(strLangMOD_Ls3kAU_01352)
							End if
						End if
						Set rst = Nothing
					End if
				Case "topic"
					strQuery = fQuery
					fForum_ID = analyzeQuery(strQuery, "FORUM_ID")
					If fForum_ID = "" Then
						strPage = fLang(strLangMOD_Ls3kAU_01270)
					Else
						strSql = "SELECT F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & fForum_ID
						Set rst = my_conn.Execute(strSql)
						If rst.EOF or rst.BOF Then
							strPage = fLang(strLangMOD_Ls3kAU_01270)
						Else
							fSubject = rst("F_SUBJECT")
							rst.Close
							If chkForumAccess(fForum_ID, MemberID, False) Then
								strPage = fLang(strLangMOD_Ls3kAU_01360) & "<br><a href=""link.asp?FORUM_ID=" & fForum_ID & """>"
								strPage = strPage & fSubject
							Else
								strOnlineLocation = fLang(strLangMOD_Ls3kAU_01370)
							End if
						End if
						Set rst = Nothing
					End if
				Case "edittopic"
					strQuery = fQuery
					fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID")
					strQuery = fQuery
					fForum_ID = analyzeQuery(strQuery, "FORUM_ID")
					If fTopic_ID = "" or fForum_ID = "" Then
						strPage = fLang(strLangMOD_Ls3kAU_01270)
					Else
						strSql = "SELECT T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID
						Set rst = my_conn.Execute(strSql)
						If rst.EOF or rst.BOF Then
							strPage = fLang(strLangMOD_Ls3kAU_01270)
						Else
							fSubject = rst("T_SUBJECT")
							rst.Close
							If chkForumAccess(fForum_ID, MemberID, False) Then
								strPage = fLang(strLangMOD_Ls3kAU_01371) & "<br><a href=""link.asp?TOPIC_ID=" & fTopic_ID & """>"
								strPage = strPage & fSubject
							Else
								strOnlineLocation = fLang(strLangMOD_Ls3kAU_01372)
							End if
						End if
						Set rst = Nothing
					End if
				Case Else
					strPage = strPage & fLang(strLangMOD_Ls3kAU_01380)
			End Select
		Case Else
			strPage = strPage & Mid(fScript, 1, inStr(fScript, ".")-1)
	End Select
	strPage = strPage & "</a>"
	If lCase(inStr(fscript, "admin_")) > 0 Then
		strPage = fLang(strLangMOD_Ls3kAU_01380)
	End if
	WhatPage = strPage
End Function

Sub doAutoReload()
	nRefreshTime = Request.Cookies(strTempCookieType & "Reload")
	If Request.Form("cookie") = "1" Then
		If strSetCookieToForum = 1 Then
			Response.Cookies(strTempCookieType & "Reload").Path = strTempCookieType
		End if
		Response.Cookies(strTempCookieType & "Reload") = Request.Form("RefreshTime")
		Response.Cookies(strTempCookieType & "Reload").expires = strForumTimeAdjust + 365
		nRefreshTime = Request.Form("RefreshTime")
	End if
	If nRefreshTime = "" Then
		nRefreshTime = 0
	End if
	ActiveSince = Request.Cookies(strTempCookieType & "ActiveSince")
	If Request.Form("cookie") = "2" Then
		ActiveSince = Request.Form("ShowSinceDateTime")
		If strSetCookieToForum = 1 Then
			Response.Cookies(strTempCookieType & "ActiveSince").Path = strTempCookieType
		End if
		Response.Cookies(strTempCookieType & "ActiveSince") = ActiveSince
	End if
	Response.Write	"					<script language=""JavaScript"">"& vbNewLine & _
		"						<!--"& vbNewLine & _
		"						function autoReload()"& vbNewLine & _
		"						{"& vbNewLine & _
		"							document.ReloadFrm.Submit()"& vbNewLine & _
		"						}"& vbNewLine & _
		"						//-->"& vbNewLine & _
		"					</script>"& vbNewLine & _
		"					<script language=""JavaScript"">"& vbNewLine & _
		"						<!--"& vbNewLine & _
		"						function SetLastDate()"& vbNewLine & _
		"						{"& vbNewLine & _
		"							document.LastDateFrm.submit()"& vbNewLine & _
		"						}"& vbNewLine & _
		"						//-->"& vbNewLine & _
		"					</script>"& vbNewLine & _
		"					<script language=""JavaScript"">"& vbNewLine & _
		"						<!--"& vbNewLine & _
		"						function jumpTo(s) {if (s.selectedIndex != 0) top.location.href = s.options[s.selectedIndex].value;return 1;}"& vbNewLine & _
		"						// -->"& vbNewLine & _
		"						</script>"& vbNewLine & _
		"          <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"& VBNewLine & _
		"            <form name=""ReloadFrm"" action=""active_users.asp"
	If request.QueryString("whichpage") <> "" Then
		Response.Write "?whichpage=" & request.QueryString("whichpage")
	End if
	Response.Write """ method=""post""><br>"& VBNewLine & _
		"              <Select name=""RefreshTime"" size=""1"" onchange=""autoReload();"">"& VBNewLine & _
		"                <option value=""0"""
	If nRefreshTime = "0" Then
		Response.Write " selected"
	End if
	Response.Write ">" & fLang(strLangMOD_Ls3kAU_01390) & "</option>"& VBNewLine & _
		"                <option value=""1"""
	If nRefreshTime = "1" Then
		Response.Write " selected"
	End if
	Response.Write ">" & fLang(strLangMOD_Ls3kAU_01400) & "</option>"& VBNewLine & _
		"                <option value=""5"""
	If nRefreshTime = "5" Then
		Response.Write " selected"
	End if
	Response.Write ">" & fLang(strLangMOD_Ls3kAU_01410) & "</option>"& VBNewLine & _
		"                <option value=""10"""
	If nRefreshTime = "10" Then
		Response.Write " selected"
	End if
	Response.Write ">" & fLang(strLangMOD_Ls3kAU_01420) & "</option>"& VBNewLine & _
		"                <option value=""15"""
	If nRefreshTime = "15" Then
		Response.Write " selected"
	End if
	Response.Write ">" & fLang(strLangMOD_Ls3kAU_01430) & "</option>"& VBNewLine & _
		"                <option value=""30"""
	If nRefreshTime = "30" Then
		Response.Write " selected"
	End if
	Response.Write ">" & fLang(strLangMOD_Ls3kAU_01440) & "</option>"& VBNewLine & _
		"              </select>"& VBNewLine & _
		"              <input type=""hidden"" name=""Cookie"" value=""1"">"& VBNewLine & _
		"            </form>"& VBNewLine & _
		"						<script>"& vbNewLine & _
		"						<!--"& vbNewLine & _
		"						if (document.ReloadFrm.RefreshTime.options[document.ReloadFrm.RefreshTime.selectedIndex].value > 0) {" & vbNewLine & _
		"							reloadTime = 60000 * document.ReloadFrm.RefreshTime.options[document.ReloadFrm.RefreshTime.selectedIndex].value" & vbNewLine & _
		"							self.setInterval('autoReload()', 60000 * document.ReloadFrm.RefreshTime.options[document.ReloadFrm.RefreshTime.selectedIndex].value)" & vbNewLine & _
		"						}"& vbNewLine & _
		"						//-->"& vbNewLine & _
		"						</script>"& vbNewLine & _
		"          </td>"& VBNewLine
End Sub

Function analyzeQuery(strQuery, varName)
	strQuery = Mid(strQuery, inStr(1,strQuery, varName,1)+1+Len(varName))
	If inStr(strQuery, "&") Then
		strQuery = Mid(strQuery, 1, inStr(strQuery, "&"))
		strQuery = Mid(strQuery, 1, Len(strQuery)-1)
	End if
	analyzeQuery = strQuery
End Function

Sub ProfileOptions()
	If strUseExtendedProfile Then
		Response.Write "                  <a href=""pop_profile.asp?mode=display&id=" & rsAM("MEMBER_ID") & """>"
	Else
		Response.Write "                  <a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & rsAM("MEMBER_ID") & "')"">"
	End if
	Response.Write getCurrentIcon(strIconProfile,fLang(strLangMOD_Ls3kAU_01460) & " " & rsAM("M_NAME") & fLang(strLangMOD_Ls3kAU_01470),"hspace=""0""") & "</a>" & VBNewLine
	If strICQ = "1" and Trim(rsAM("M_ICQ")) <> "" Then
		Response.Write	"                      <a href=""JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ID=" & rsAM("MEMBER_ID") & "')"">" & getCurrentIcon(strIconICQ,fLang(strLangMOD_Ls3kAU_01450) & " " & ChkString(rsAM("M_NAME"),"display") & " " & fLang(strLangMOD_Ls3kAU_01480),"align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
	End if
	If strYAHOO = "1" and Trim(rsAM("M_YAHOO")) <> "" Then
		Response.Write "                  <a href=""JavaScript:openWindow('http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(rsAM("M_YAHOO"), "urlpath") & "&.src=pg')"">" & getCurrentIcon(strIconYahoo,fLang(strLangMOD_Ls3kAU_01450) & " " & ChkString(rsAM("M_NAME"),"display") & " " & fLang(strLangMOD_Ls3kAU_01490),"align=""absmiddle"" hspace=""0""") & "</a>" & VBNewLine
	End if
	If strAIM = "1" and Trim(rsAM("M_AIM")) <> "" Then
		Response.Write "                  <a href=""JavaScript:openWindow('pop_messengers.asp?mode=AIM&ID=" & rsAM("MEMBER_ID") & "')"">" & getCurrentIcon(strIconAIM,fLang(strLangMOD_Ls3kAU_01450) & " " & ChkString(rsAM("M_NAME"),"display") & " " & fLang(strLangMOD_Ls3kAU_01500),"align=""absmiddle"" hspace=""0""") & "</a>" & VBNewLine
	End if
	If strMSN = "1" and Trim(rsAM("M_MSN")) <> "" Then
		Response.Write "                  <a href=""JavaScript:openWindow('pop_messengers.asp?mode=MSN&ID=" & rsAM("MEMBER_ID") & "')""" & dWStatus("Click to see " & ChkString(rsAM("M_NAME"),"display") & "'s MSN Messenger address") & ">" & getCurrentIcon(strIconMSNM,fLang(strLangMOD_Ls3kAU_01510) & " " & ChkString(rsAM("M_NAME"),"display") & fLang(strLangMOD_Ls3kAU_01520),"align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
	End if
End Sub
%>
Edited by - Carefree on 09 October 2014 09:01:52
Go to Top of Page

spreadpoems
New Member

52 Posts
Posted - 01 April 2014 :  00:13:23  Show Profile
Thanks so much. This will be a huge help if it works.
Go to Top of Page

pierretopping
Junior Member

United Kingdom
224 Posts
Posted - 01 April 2014 :  05:08:15  Show Profile  Visit pierretopping's Homepage
Hi Carefree,

I tried the above, but it just returns back to the main forum?
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 01 April 2014 :  16:22:52  Show Profile
Check your active users' permissions at "admin_config_activeusers.asp".
Go to Top of Page

pierretopping
Junior Member

United Kingdom
224 Posts
Posted - 02 April 2014 :  04:57:44  Show Profile  Visit pierretopping's Homepage
Hi Carefree,

Checked that and made s few little amendments (ie, time out) and saved, but still the same, just returns to the mane forum page.
Spreadpoems, how is it your end :o)

Pierre
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 02 April 2014 :  05:08:25  Show Profile
The only reason it would return to "default.asp" is if your permissions don't allow the account to view the page. Notice the bits in red below. The first line checks the permissions set from the third panel of "admin_config_activeusers.asp", titled: Allow Active Users Page. The second batch of red code conditionally redirects to "default.asp" if the permissions aren't high enough. If you have properly included it in "config.asp", this variable should indicate something other than "Feature off" when you open the admin configuration page.


bolAUPage = chkAUPermissions(strAUAllow)
bolOverride = chkAUPermissions(strAUAnonOverride)
bolAUUA= chkAUPermissions(strAUUA)
bolAUIP= chkAUPermissions(strAUIP)
bolAULocal= chkAUPermissions(strAULocal)
bolFirstAlternating = False 'Change to 'true' to reverse row color alternation
intTotalActiveMembers = 0
intTotalActiveGuests = 0
intTotalActiveUsers = 0
If not bolAUPage Then
	Response.Redirect "default.asp"
End if
Go to Top of Page

pierretopping
Junior Member

United Kingdom
224 Posts
Posted - 02 April 2014 :  10:04:19  Show Profile  Visit pierretopping's Homepage
this is a strange one indeed. My old one works (link), but the new one does not (link).

All very strange.
Go to Top of Page

spreadpoems
New Member

52 Posts
Posted - 02 April 2014 :  12:07:10  Show Profile
quote:
I tried the above, but it just returns back to the main forum?

I encountered the same error, fixed it by reverting to the original, not sure why it's better
change from this near the top of the page:

If not bolAUPage Then
	Response.Redirect "default.asp"
End if


back to this:

if bolAUPage then
  'do nothing
else
  response.redirect "default.asp"
end if
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts
Posted - 02 April 2014 :  12:21:32  Show Profile  Visit HuwR's Homepage
most likely bolAUPage is not being processed as a Boolean, so 'not bolAUPage' does not equate to being true.

You could try

If not CBool(bolAUPage) then ...
MVC .net dev/test site | MVC .net running on Raspberry Pi
Go to Top of Page

spreadpoems
New Member

52 Posts
Posted - 02 April 2014 :  12:23:20  Show Profile
Carefree,
A few problems:

All the OS / Browser are listed as:
Windows NT 4
Chrome

Current Page
Most lines are blank. Perhaps there is an error in topic.asp and forum.asp ?
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 02 April 2014 :  13:52:10  Show Profile
I modified the code on the first page to run the boolean test. It should solve the redirect issue. I also found an error in the topic.asp routine and fixed it. Please try the new version, sorry about that.
Go to Top of Page

spreadpoems
New Member

52 Posts
Posted - 02 April 2014 :  14:26:19  Show Profile
Thanks that fixes the topic.asp.

what about All the OS / Browser are listed as:
Windows NT 4 Chrome
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 02 April 2014 :  19:16:12  Show Profile
That isn't happening here. Send me a link to check, please.
Go to Top of Page
Page: of 3 Previous Topic Topic Next Topic  
Previous Page | Next Page
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.28 seconds. Powered By: Snitz Forums 2000 Version 3.4.07