Snitz Forums 2000 - setup a new link?

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: General / Current Version (Old)

setup a new link?

New Topic

Topic Locked

Printer Friendly

Author

Topic

eforum
Starting Member

Belgium
40 Posts

Posted - 11 December 2001 : 11:49:07

On the top of every page you'll see links...Home |Profile|Register|....

Can you put a extra link on it?

it needs to open in a new window 300x480 and link to mod_tetris.asp

Thanks

http://www25.brinkster.come-Forum

Roland
Advanced Member

Netherlands
9335 Posts

Posted - 11 December 2001 : 12:03:01

Open inc_top.asp and go all the way down. There you'll find a sub called sub sForumNavigation(). You can add you own link by adding this:


	if mlev > 0 then
		Response.Write	"		 <a href=""#"" onClick=""yourjavascriptopener""><acronym title=""Play tetris!!"">Tetris</acronym></a>" & vbNewline & _
					"        |" & vbNewline
	end if

Add this below the following code:


	Response.Write	"        <a href=""" & strHomeURL & """><acronym title=""Homepage"">Home</acronym></a>" & vbNewline & _
					"        |" & vbNewline

Don't forget to include the correct JavaScript onClick function to open the window, and perhaps you want to change the alt text for the link too.

Hope this helps.

Roland

eforum
Starting Member

Belgium
40 Posts

Posted - 11 December 2001 : 13:11:10

Ok ok,

I'll do step by step...

This is the sub sForumNavigation()[ code:

----------

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

%>

----------

now i need to put it over here?

----

Response.Write " <a href=""" & strHomeURL & """><acronym title=""Homepage"">Home</acronym></a>" & vbNewline & _
" |" & vbNewline
if mlev > 0 then Response.Write " <a href=""#"" onClick=""yourjavascriptopener""><acronym title=""Play tetris!!"">Tetris</acronym></a>" & vbNewline & _ " |" & vbNewline end if

-----

and about the javascript?
What shoud i do there?

i'm really sorry if this sound stuppid.

http://www25.brinkster.come-Forum

Edited by - eforum on 11 December 2001 13:11:36

Roland
Advanced Member

Netherlands
9335 Posts

Posted - 11 December 2001 : 13:49:00

quote:

now i need to put it over here?

----

Response.Write " <a href=""" & strHomeURL & """><acronym title=""Homepage"">Home</acronym></a>" & vbNewline & _
" |" & vbNewline
if mlev > 0 then
Response.Write " <a href=""#"" onClick=""yourjavascriptopener""><acronym title=""Play tetris!!"">Tetris</acronym></a>" & vbNewline & _
" |" & vbNewline
end if

Yes, but you didn't break the lines. This would result in a (or multiple) errors. Place the code as I have changed it above (or exactly copy it from my first reply).

quote:

and about the javascript?
What shoud i do there?

The easiest sollution would be to add a new window opener to inc_top.asp. Look at lines 120 to 138. Add the code in red:


}
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')
}
function openWindow6(url) {
  popupWin = window.open (url,'new_page','width=300,height=480')
}
// done hiding -->
</script>

Then add this in the new link (the one to open the tetris page) instead of onClick=""yourjavascriptopener"":


onClick=""openWindow6(tetris.asp)""

quote:

i'm really sorry if this sound stuppid.

The only stupid questions are the ones that aren't asked

Hope this helps.

Roland

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.29 seconds.