| Author |
 Topic  |
|
Steve-OS
Starting Member
15 Posts |
 Posted - 14 April 2002 : 19:21:43
|
First off thanks to Nathan for all the hard work on the New version.
I have upgraded from 3.4? then used AU 3.5 and implemented 4.0
I though I dud everything by the book but I seem to have
If you could take a look at the forum I would appreciate it.
http://www.operationsports.com/forum/
The Active Users show up at the top and at the bottom.
It works fine at the top (other than the %> that shows up?)
And at the bottom (where I prefer it to go) it is doubling all usernames.
Thanks for helping this novice in advance.
Edited by - Steve-OS on 14 April 2002 19:25:15 |
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 14 April 2002 : 19:26:28
|
This is not the default behavior of the Mod. What tweaks did you do the code? Those should be responsible for that doubling os user names...
Also, I apologize for saying so, but why did you add the user list at the top of the page?! It looks completely weird...
-------------------------------------------------
Installation Guide | Do's and Dont's | MODs |
 |
|
|
Steve-OS
Starting Member
15 Posts |
Posted - 14 April 2002 : 19:29:16
|
Not smart enough to make any tweaks to the code 
I have no idea what happened and/or why it is showing up at the top?
|
|
|
|
crash
Advanced Member
Netherlands
2064 Posts |
Posted - 14 April 2002 : 19:36:13
|
simple: you haven't followed the readme... if you paste all the codes on their meant palces, this mod works like a charm! my compliments to that Nathan! 
Crash's Site | Crash is from 
|
|
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 14 April 2002 : 19:36:55
|
Surely because you added something to inc_top.asp that you shouldn't have.
Make sure you didn't add something like this to inc_top:
<!--#include file="inc_activeusers.asp"-->
-------------------------------------------------
Installation Guide | Do's and Dont's | MODs |
|
|
|
Steve-OS
Starting Member
15 Posts |
Posted - 14 April 2002 : 19:43:39
|
<!--#INCLUDE FILE="inc_activeusers.asp" --> was there froma previous install and by removing it fixed the problem.... Thanks for the tip.
Apparently I skipped the importaint tip highlighted in RED...
Anyone have an idea why the %> is still at the top?
|
|
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 14 April 2002 : 19:48:39
|
Surely you forgot if from some previous tweak. Look for two consecutive '%>%>' just near (before) the place where you removed the
<!--#include file="inc_activeusers.asp"-->
-------------------------------------------------
Installation Guide | Do's and Dont's | MODs |
|
|
|
Steve-OS
Starting Member
15 Posts |
Posted - 14 April 2002 : 20:12:07
|
'### start of timer code
Dim StopWatch(19)
sub StartTimer(x)
StopWatch(x) = timer
end sub
function StopTimer(x)
EndTime = Timer
'Watch for the midnight wraparound...
if EndTime < StopWatch(x) then
EndTime = EndTime + (86400)
end if
StopTimer = EndTime - StopWatch(x)
end function
' StartTimer 1
'### end of timer code
dim mLev, strLoginStatus, MemberID
dim strArchiveTablePrefix
strArchiveTablePrefix = strTablePrefix & "A_"
if Application("down") then
if not Instr(request.servervariables("script_name"),"admin_") > 0 then
Response.redirect("down.asp")
end if
end if
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
if (strAuthType = "nt") then
call NTauthenticate()
if (ChkAccountReg() = "1") then
call NTUser()
end if
end if
strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
strDBNTFUserName = Request.Form("Name")
if strAuthType = "nt" then
strDBNTUserName = Session(strCookieURL & "userID")
strDBNTFUserName = Session(strCookieURL & "userID")
end if
select case Request.Form("Method_Type")
case "login"
select case chkUser(strDBNTFUserName, Request.Form("Password"))
case 1, 2, 3, 4
Call DoCookies(Request.Form("SavePassword"))
strLoginStatus = 1
case else
strLoginStatus = 0
end select
case "logout"
Call ClearCookies()
end select
mLev = cint(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword")))
' DEM --> Added code for moderation and subscription
if strDBNTUserName <> "" then
MemberID = getMemberNumber(strDBNTUserName)
else
MemberID=0
end if
Call ActiveUserTracker()
Response.Write "<html>" & vbNewline & vbNewline & _
"<head>" & vbNewline & _
"<title>" & strForumTitle & "</title>" & vbNewline
'## START - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE Snitz FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This code is Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen"">" & vbNewline
'## END - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE Snitz FORUMS 2000 LICENSE AGREEMENT
%>
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function openWindow(url) {
popupWin = window.open(url,'new_page','width=400,height=400')
}
function openWindow2(url) {
popupWin = window.open(url,'new_page','width=400,height=450')
}
function openWindow3(url) {
popupWin = window.open(url,'new_page','width=400,height=450,scrollbars=yes')
}
function openWindow4(url) {
popupWin = window.open(url,'new_page','width=400,height=525')
}
function openWindow5(url) {
popupWin = window.open(url,'new_page','width=450,height=525,scrollbars=yes,toolbars=yes,menubar=yes,resizable=yes')
}
// done hiding -->
</script>
<style type=text/css>
<!--
a:link {color:<% =strLinkColor %>;text-decoration:<% =strLinkTextDecoration %>}
a:visited {color:<% =strVisitedLinkColor %>;text-decoration:<% =strVisitedTextDecoration %>}
a:hover {color:<% =strHoverFontColor %>;text-decoration:<% =strHoverTextDecoration %>}
input.radio {background: <% = strPopUpTableColor %>; color:#000000}
-->
</style>
</head>
<body bgColor="<% =strPageBGColor %>" text="<% =strDefaultFontColor %>" link="<% =strLinkColor %>" aLink="<% =strActiveLinkColor %>" vLink="<% =strActiveLinkColor %>">
<a name="top"></a><font face="<% =strDefaultFontFace %>">
---------
I removed the <!--#include file="inc_activeusers.asp"--> right after </head> can not find an extra %>?
|
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
|
|
Steve-OS
Starting Member
15 Posts |
Posted - 14 April 2002 : 20:28:46
|
<%
'#################################################################################
'## 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
'#################################################################################
'### start of timer code
Dim StopWatch(19)
sub StartTimer(x)
StopWatch(x) = timer
end sub
function StopTimer(x)
EndTime = Timer
'Watch for the midnight wraparound...
if EndTime < StopWatch(x) then
EndTime = EndTime + (86400)
end if
StopTimer = EndTime - StopWatch(x)
end function
' StartTimer 1
'### end of timer code
dim mLev, strLoginStatus, MemberID
dim strArchiveTablePrefix
strArchiveTablePrefix = strTablePrefix & "A_"
if Application("down") then
if not Instr(request.servervariables("script_name"),"admin_") > 0 then
Response.redirect("down.asp")
end if
end if
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
if (strAuthType = "nt") then
call NTauthenticate()
if (ChkAccountReg() = "1") then
call NTUser()
end if
end if
strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
strDBNTFUserName = Request.Form("Name")
if strAuthType = "nt" then
strDBNTUserName = Session(strCookieURL & "userID")
strDBNTFUserName = Session(strCookieURL & "userID")
end if
select case Request.Form("Method_Type")
case "login"
select case chkUser(strDBNTFUserName, Request.Form("Password"))
case 1, 2, 3, 4
Call DoCookies(Request.Form("SavePassword"))
strLoginStatus = 1
case else
strLoginStatus = 0
end select
case "logout"
Call ClearCookies()
end select
mLev = cint(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword")))
' DEM --> Added code for moderation and subscription
if strDBNTUserName <> "" then
MemberID = getMemberNumber(strDBNTUserName)
else
MemberID=0
end if
Call ActiveUserTracker()
Response.Write "<html>" & vbNewline & vbNewline & _
"<head>" & vbNewline & _
"<title>" & strForumTitle & "</title>" & vbNewline
'## START - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE Snitz FORUMS 2000 LICENSE AGREEMENT
Response.Write "<meta name=""copyright"" content=""This code is Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen"">" & vbNewline
'## END - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE Snitz FORUMS 2000 LICENSE AGREEMENT
%>
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function openWindow(url) {
popupWin = window.open(url,'new_page','width=400,height=400')
}
function openWindow2(url) {
popupWin = window.open(url,'new_page','width=400,height=450')
}
function openWindow3(url) {
popupWin = window.open(url,'new_page','width=400,height=450,scrollbars=yes')
}
function openWindow4(url) {
popupWin = window.open(url,'new_page','width=400,height=525')
}
function openWindow5(url) {
popupWin = window.open(url,'new_page','width=450,height=525,scrollbars=yes,toolbars=yes,menubar=yes,resizable=yes')
}
// done hiding -->
</script>
<style type=text/css>
<!--
a:link {color:<% =strLinkColor %>;text-decoration:<% =strLinkTextDecoration %>}
a:visited {color:<% =strVisitedLinkColor %>;text-decoration:<% =strVisitedTextDecoration %>}
a:hover {color:<% =strHoverFontColor %>;text-decoration:<% =strHoverTextDecoration %>}
input.radio {background: <% = strPopUpTableColor %>; color:#000000}
-->
</style>
</head>
<body bgColor="<% =strPageBGColor %>" text="<% =strDefaultFontColor %>" link="<% =strLinkColor %>" aLink="<% =strActiveLinkColor %>" vLink="<% =strActiveLinkColor %>">
<a name="top"></a><font face="<% =strDefaultFontFace %>">
<table align="center" border="0" cellPadding="0" cellSpacing="0" width="100%">
<tr>
<td valign="top" align="center" width="50%"><a href="http://www.operationsports.com"><img src="../images/mw_oslogo_markanim.gif" width="58" height="58" alt="Operation Sports" border="0"><img src="/images/spacer.gif" width="3" height="1" border="0"><img src="../images/mw_oslogo_text2.gif" width="198" height="61" alt="Operation Sports" border="0"><br>
<img src="../images/mw_oslogo_tagline2.gif" width="261" height="15" alt="Operation Sports" border="0" vspace="1"></a></td>
<td align="center" valign="top" width="50%">
<table border="0" cellPadding="2" cellSpacing="0">
<tr>
<td align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><% =strForumTitle %></b></font></td>
</tr>
<tr>
<td align="center"><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<% call sForumNavigation() %>
</font></td>
</tr>
<%
select case Request.Form("Method_Type")
case "login"
%>
</table>
</td>
</tr>
</table>
<% if strLoginStatus = 0 then %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Your username and/or password were incorrect.</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Please either try again or register for an account.</font></p>
<% else %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">You logged on successfully!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Thank you for your participation.</font></p>
<% end if %>
<meta http-equiv="Refresh" content="2; URL=<% =Request.ServerVariables("HTTP_REFERER") %>">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.ServerVariables("HTTP_REFERER") %>">Back To Forum</font></a></p>
<% AUHandleLoging()
WriteFooter
Response.End
case "logout"
%>
</table>
</td>
</tr>
</table>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">You logged out successfully!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Thank you for your participation.</font></p>
<meta http-equiv="Refresh" content="2; URL=<% =Request.ServerVariables("HTTP_REFERER") %>">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =Request.ServerVariables("HTTP_REFERER") %>">Back To Forum</font></a></p>
<% AUHandleLoging() 'Ls3k - AU4
WriteFooter
Response.End
end select
if (chkUser((strDBNTUserName), (Request.Cookies(strUniqueID & "User")("Pword"))) = 0) then
%>
<form action="<% =Request.ServerVariables("URL") %>" method="post" id=form1 name=form1>
<INPUT type="hidden" name="Method_Type" value="login">
<tr>
<td align="center">
<table>
<tr>
<% if (strAuthType = "db") then %>
<td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><b>Username:</b></font><br>
<INPUT type="text" name="Name" size="10" value=""></td>
<td><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><b>Password:</b></font><br>
<INPUT type="password" name="Password" size="10" value=""></td>
<td valign="bottom">
<% if strGfxButtons <> "0" then %>
<INPUT src=button_login.gif type="image" value="Login" id=submit1 name=submit1 border=0 hspace=4>
<%
else
if strGfxButtons = "0" then
%>
<INPUT type="submit" value="Login" id=submit1 name=submit1>
<%
end if
end if
%>
</td>
</tr>
<tr>
<td colspan="3" align="left"><font face="<% =strDefaultFontFace %>" size="<%=strFooterFontSize %>">
<INPUT type="checkbox" name="SavePassWord" value="true" CHECKED><b> Save Password</b></font>
</td>
<%
else
if (strAuthType = "nt") then
%>
<td><font face="<% =strDefaultFontFace %>" size="1" color="red">Please <a href="policy.asp">register</a> to post in these Forums</font></td>
<%
end if
end if
%>
</tr>
<% if (lcase(strEmail) = "1") then %>
<tr>
<td colspan="3" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="JavaScript:openWindow('pop_pword.asp')">Forgot your <% if strAuthType = "nt" then %>admin <% end if %>Password?</a>
<% if (lcase(strNoCookies) = "1") then %>
|
<a href="admin_home.asp">Admin Options</a>
<% end if %>
</font></td>
</tr>
<% end if %>
</table>
</td>
</tr>
</form>
<% else %>
<form action="<% =Request.ServerVariables("URL") %>" method="post" id=form2 name=form2>
<INPUT type="hidden" name="Method_Type" value="logout">
<tr>
<td align="center">
<table>
<tr>
<td align="center">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
You are logged on as<br>
<% if strAuthType="nt" then %>
<b><% =Session(strCookieURL & "username")%> (<% =Session(strCookieURL & "userid") %>)</b>
</font>
</td>
<td>
<%
else
if strAuthType = "db" then
%>
<b><% = ChkString(strDBNTUserName, "display") %></b>
</font>
</td>
<td>
<% if strGfxButtons <> "0" then %>
<INPUT src=button_logout.gif type="image" value="Logout" id=submit1 name=submit1 border=0 hspace=4>
<%
else
if strGfxButtons = "0" then
%>
<INPUT type="submit" value="Logout" id=submit1 name=submit1>
<%
end if
end if
end if
end if
%>
</td>
</tr>
</table>
</td>
</tr>
<% if (mlev = 4) or (lcase(strNoCookies) = "1") then %>
<tr>
<td align="center">
<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<a href="admin_home.asp">Admin Options</a>
</font>
</td>
</tr>
<% end if %>
</form>
<% end if %>
</table>
</td>
</tr>
</table>
<table align="center" border="0" cellPadding="0" cellSpacing="0" width="95%">
<tr>
<td>
<%
sub sForumNavigation()
' DEM --> Added code to show the subscription line
if mlev > 0 then
strSql = "SELECT COUNT(*) AS SubCount FROM " & strTablePrefix & "SUBSCRIPTIONS"
if mlev <> 4 then
strSql = strSql & " WHERE MEMBER_ID = " & MemberID
end if
set rsCount = my_Conn.Execute (strSql)
if rsCount.BOF or rsCount.EOF then
' No Subscriptions found, do nothing
else
SubCount = rsCount("SubCount")
rsCount.Close
set rsCount = nothing
end if
else
SubCount = 0
end if
Response.Write " <a href=""" & strHomeURL & """><acronym title=""Homepage"">Home</acronym></a>" & vbNewline & _
" |" & vbNewline
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=Edit""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
else
Response.Write " <a href=""javascript:openWindow3('pop_profile.asp?mode=Edit')""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
end if
if strAutoLogon <> 1 then
Response.Write " |" & vbNewline & _
" <a href=""policy.asp""><acronym title=""Register to post to our forum..."">Register</acronym></a>" & vbNewline
end if
Response.Write " |" & vbNewline & _
" <a href=""active.asp""><acronym title=""See what topics have been active since your last visit..."">Active Topics</acronym></a>" & vbNewline
' ############# Poll Mod ##############
Response.Write " |" & vbNewline & _
" <a href=""active_polls.asp""><acronym title=""Active Polls..."">Active Polls</acronym></a>" & vbNewline
' #####################################
' DEM --> Start of code added to show subscriptions if they exist
if SubCount > 0 then
if mlev = 4 then
Response.Write " |" & vbNewline & _
" <a href=""subscription_list.asp?MODE=all""><acronym title=""See all current subscriptions"">All Subscriptions</acronym></a>" & vbNewline
end if
Response.Write " |" & vbNewline & _
" <a href=""subscription_list.asp""><acronym title=""See all of my subscriptions"">My Subscriptions</acronym></a>" & vbNewline
end if
' DEM --> End of Code added to show subscriptions if they exist
Response.Write " |" & vbNewline & _
" <a href=""members.asp""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""search.asp""><acronym title=""Perform a search by keyword, date, and/or name..."">Search</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""faq.asp""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline
end sub
%>
-------------
complete inc_top.asp
|
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
|
|
Steve-OS
Starting Member
15 Posts |
Posted - 14 April 2002 : 20:40:33
|
Thank you very much
It was an extra %> at the bottom of the config.asp file.
|
|
|
|
Steve-OS
Starting Member
15 Posts |
Posted - 14 April 2002 : 20:47:46
|
end if
'#################################################################################
'######################## ADDED FOR INTERNATIONAL MODS! #########################
strLangLCID = "1033"
function fLang(s)
' fLang=eval(s) ' commented out for IIS 4 compatibility, all related function calls changed
fLang=s
end function
%>
<!--#include file="langMODS_Ls3kAU4.asp"-->
%>
Well I thought I fixed it? When I removed the %> in red it took away the %> at the top. But then it removed the wording
Active Members: 7 | Guests: 7 || Total: 14 [ Administrators | Moderators ]
Active Users Record: 31 | Record Set On: 04/14/2002 at 6:55:49 PM
and only left the #'s
|
|
|
|
Steve-OS
Starting Member
15 Posts |
Posted - 14 April 2002 : 20:58:19
|
Okay I removed the bottom %> and it fixed the problem. Just trial and error for me since I know nothing about this.
Is there any problem with it ending
end if
'#################################################################################
'######################## ADDED FOR INTERNATIONAL MODS! #########################
strLangLCID = "1033"
function fLang(s)
' fLang=eval(s) ' commented out for IIS 4 compatibility, all related function calls changed
fLang=s
end function
%>
<!--#include file="langMODS_Ls3kAU4.asp"-->
I thought it had to end with a %> at the bottom but I guess not..
|
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
Posted - 14 April 2002 : 21:08:19
|
The end of the file should look like this.
end if
'#################################################################################
'######################## ADDED FOR INTERNATIONAL MODS! #########################
strLangLCID = "1033"
function fLang(s)
' fLang=eval(s) ' commented out for IIS 4 compatibility, all related function calls changed
fLang=s
end function
%>
<!--#include file="langMODS_Ls3kAU4.asp"-->
 Nathan Bales
Snitz Exchange | Do's and Dont's |
|
|
|
Steve-OS
Starting Member
15 Posts |
Posted - 14 April 2002 : 21:15:23
|
Yep thats what I have now in the config.asp and fixed everything
Thanks again for the MOD and the assistance...
|
|
|
|
Topic |
|
Topic Locked
