Snitz Forums 2000 - Permalinks in topic.asp

Yesterday evening I've added a simple feature to the forumtopics on oxle.com ; 'permalinks'.
Just click on the # shown in the reply-header, and your browser address bar will show the link.
example:

It'll make the page hop to that post (html bookmark) and in the address bar you'll see the address that links directly to that post.
You can use this to refer to a specific post in a topic. For consistency the link is also shown for the startingpost of a topic, but besides the # nothing is added to the address.

I am going to try and improve it a bit, to arrange that it actually is a real permalink (a link that never changes, even when the topic is split and the pagenumber the reply is on changes), but that'll take some time. I vaguely remember that someone else here has tried to make a function for that, but I cannot remember who that was.

For those who want to build this small feature into their own Snitz forum, here's the how to.
Topic.asp (version 3.4.06).
Find this code: (in a standard topic.asp you'll find it on line 585)

	' DEM --> End of Code added for moderation.
	Response.Write	"                       " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""6"""),Reply_MemberID) & vbNewLine

Insert the following line of code right inbetween those two lines:

	Response.Write	"<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>nbsp;<b><a href=""#" & Reply_ReplyID & """ title=""permalink to this post"">#</a></b> </font>"

The end result is this:

	' DEM --> End of Code added for moderation.
	Response.Write	"<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> <b><a href=""#" & Reply_ReplyID & """ title=""permalink to this post"">#</a></b> </font>"
	Response.Write	"                       " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""6"""),Reply_MemberID) & vbNewLine

Then, find this line: (around 790 in a standard topic.asp).

	Response.Write	"                       " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""6"""),TMember_ID) & vbNewLine

Directly above it, add this:

	Response.Write	"<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> <b><a href=""#"" title=""permalink to this post"">#</a></b> </font>"

The endresult will look like this:

	Response.Write	"<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> <b><a href=""#"" title=""permalink to this post"">#</a></b> </font>"
	Response.Write	"                       " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""6"""),TMember_ID) & vbNewLine