| Author |
 Topic  |
|
|
dunzone
Starting Member
6 Posts |
 Posted - 14 May 2002 : 20:49:02
|
How do I add links to this?:
Forums 2002
Home | Profile | Register | Active Topics | Members | Search | FAQ
|
|
|
Gremlin
General Help Moderator
New Zealand
7528 Posts |
Posted - 14 May 2002 : 21:09:33
|
those links can be found in the file inc_top.asp. You can simply edit in any additional links you required.
www.daoc-halo.com |
 |
|
|
dunzone
Starting Member
6 Posts |
Posted - 15 May 2002 : 18:34:41
|
quote:
How do I add links to this?:
Forums 2002
Home | Profile | Register | Active Topics | Members | Search | FAQ
But how?? Example please.
|
|
|
|
Deleted
deleted
4116 Posts |
Posted - 15 May 2002 : 18:45:02
|
Find this code near the end of the inc_top.asp, and add the red ones... Replace the bold ones with whatever you want... repeat this addition until you are done.
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 & _
" |" & vbNewline & _
" <a href=""../htm/myfile.htm""><acronym title=""My Lovely Page..."">Myfile</acronym></a>" & vbNewline
Think Pink
==> Start Internationalization Here
Edited by - bozden on 15 May 2002 18:46:05 |
|
|
|
dunzone
Starting Member
6 Posts |
Posted - 15 May 2002 : 21:28:49
|
quote:
Find this code near the end of the inc_top.asp, and add the red ones... Replace the bold ones with whatever you want... repeat this addition until you are done.
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 & _
" |" & vbNewline & _
" <a href=""../htm/myfile.htm""><acronym title=""My Lovely Page..."">Myfile</acronym></a>" & vbNewline
Think Pink
==> Start Internationalization Here
Edited by - bozden on 15 May 2002 18:46:05
Been there, done that, don't work! I have tried this already. Every time I edit this file it messes up my forum. The error is as follows:
The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.
--------------------------------------------------------------------------------
Please try the following:
Open the user.domaindlx.com home page, and then look for links to the information you want.
Click the Refresh button, or try again later.
Click Search to look for information on the Internet.
You can also see a list of related sites.
HTTP 500 - Internal server error
Internet Explorer
Here's what my working inc_top.asp file looks like:
<%
'#################################################################################
'## 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
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" width="50%"><a href="default.asp"><img alt="<% =strForumTitle %>" border="0" src="<%=strTitleImage%>"></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>
<% 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>
<% 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
' 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
%>
If there is an error please tell me where it is. This is the working inc_top.asp I added what you said, and it created that 500 error.
|
|
|
|
Nathan
Help Moderator
USA
7664 Posts |
Posted - 15 May 2002 : 21:33:17
|
Its much easier for us if you just save the file with a .txt extension and post a link 
 Nathan Bales
Snitz Exchange | Do's and Dont's |
|
|
| |
Topic |
|
|
|
Topic Locked
