Permalinks in Topic.asp part 2 (beta!)

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Permalinks in Topic.asp part 2 (beta!) - Posted 24 Jun 2008 10:18 (4055 Views)

MarcelG

Retired Support Moderator

Posts: 2625

2625

This is a new version of this mod. Warning! : this mod is written in half an hour, and has NOT been tested!
Permalink.asp is made from scratch by heart, and not executed at all...(I don't have FTP access to my site to test it). So, it may work right away if I paid attention, but it may just as well fail....

What this mod will do is this:

it will add a small box with a number in it to the header of each reply. This number is the position of this reply in that topic.
it will add a small box with a link showing a permalink (¤) to the header of each post (topic and replies). The permalink will take you to the topic, or to the reply regardless of the pagenumber it's on (for replies) and regardless if it's archived or not (for topics and replies). For people who've implemented the split topic mod, moved replies will also be found using the permalink (except for the startpost, which is in fact a deleted reply that's inserted as a topic)

How to implement it ?
When coming from the previous version of this mod:

Code:

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

with this:

Code:

' DEM --> End of Code added for moderation.	
Response.Write	"<span style=""border:1px solid "& strTableBorderColor & ";background-color:white;height=auto;margin:1px;""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> <a href=""#" & Reply_ReplyID & """ title=""jump to this post"">#" & (((mypage-1) * strPageSize) + iForum + 1)& "</a> </font></span>"
Response.Write	"<span style=""border:1px solid "& strTableBorderColor & ";background-color:white;height=auto;margin:1px;""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> <a href=""permalink.asp?r" & Reply_ReplyID & """ title=""permalink to this post"">¤</a> </font></span><link rel=""permalink"" href=""permalink.asp?r" & Reply_ReplyID & """ />"

Then, replace this:

Code:

	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

by this:

Code:

response.write"<span style=""border:1px solid "& strTableBorderColor & ";background-color:white;height=auto;margin:1px;""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """> <a href=""permalink/asp?t" & Topic_ID & """ title=""permalink to this topic"">¤</a> </span><link rel=""permalink"" href=""permalink.asp?t" & Topic_ID & """ /></font></span>"
Response.Write	"                       " & profileLink(getCurrentIcon(strIconProfile,"Show Profile","align=""absmiddle"" hspace=""6"""),TMember_ID) & vbNewLine

Then, finally, download this file, and save it as permalink.asp (remove the .txt extension):

Text File: read permalink.asp.txt 7638 bytes
Again a warning: it has NEVER been tested! At oxle I use a custom 404 to handle the permalinks, so I migrated the code I used there to this code, without the ability to test it.
[edit:first theoretical bugfix ] [edit 28-7-2008 :bugfix in startpost permalink (permalink/asp?t replaced by permalink.asp?t) ]<

portfolio - linkshrinker - oxle - twitter

Last edited by MarcelG on 28 July 2008, 03:59

Posted 09 Jul 2008 18:49

leatherlips

Senior Member

Posts: 1838

1838

I've tried this and there are a few issues.

In Firefox if you click the last couple of permalinks they go back up near the top.
The ¤ does not show. Instead it is a thick vertical line.
The address bar does not show the permalink. The URL shows the original topic thread.

Here is my test forum:

http://www.mangionemagic.com/forumbeta/topic.asp?TOPIC_ID=914

I would like to be able to instead of the number appear for the permalink to instead use an image instead. Also, instead of clicking the link to go to that post, I would like it to bring up a box with the link in it so users could easily copy and paste it. I saw that in this forum:

http://maynardfergusonboard.yuku.com/topic/1785

Just click on the permalinks and you'll see what I mean.
Would these be possible with your permalink?<

Last edited by leatherlips on 09 July 2008, 19:26

Posted 25 Jul 2008 20:20

leatherlips

Senior Member

Posts: 1838

1838

When I click on the reply permalink link I get this error:

Microsoft VBScript compilation error '800a03f9'

Code:

Expected 'Then'

/forumbeta/permalink.asp, line 40

if left(posttofind),1) = "r" then

It's pointing to after the red comma.
Also, when I click on the topic permalink it takes me to my 404 error page saying the link doesn't exist.<

Last edited by leatherlips on 25 July 2008, 20:25

Posted 25 Jul 2008 21:31

phy1729

Average Member

Posts: 589

589

remove the extra parens
if left(posttofind,1) = "r" then<

Posted 25 Jul 2008 21:59

leatherlips

Senior Member

Posts: 1838

1838

Originally posted by phy1729
remove the extra parens
if left(posttofind,1) = "r" then

I did that, but now am getting this error:

Code:

Microsoft VBScript compilation  error '800a0411'

Name redefined

/forumbeta/permalink.asp, line 66

dim topicnumber = linkRec("TOPIC_ID")

Posted 25 Jul 2008 22:14

MaD2ko0l

Senior Member

Posts: 1053

1053

that means that there is 2 instances of dim topicnumber = linkRec("TOPIC_ID") you need to find them both and determine which 1 to get rid of and where they are used on the site.<