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 |
|