Author |
Topic |
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 21 March 2005 : 07:37:42
|
Got a link to your forums; that image ain't loading?
|
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.” |
|
|
adonix
Starting Member
46 Posts |
Posted - 21 March 2005 : 19:55:31
|
I have the forum in a local intranet, so it is not accessible via outside. But just imaging where your names says:
Shaggy Senior Member
Ireland 1764 Posts
That this box has enlarged itself and the section where you have "got a link your forums....." has shrunk and the box is all the way to the right. You won't also see the numbers at the top of the post such as [1 2 3..21 >>] which are supposed to be links to the other pages for that topic. |
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 22 March 2005 : 06:21:18
|
Odness, indeed; have you made any other changes to topic.asp? Can you post a link to a *.txt copy of your topic.asp? A screenshot would also help a bit.
|
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.” |
|
|
adonix
Starting Member
46 Posts |
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 23 March 2005 : 05:36:25
|
Ah, I see what's happened - copy and pasted that from one of me own files and forgot to replace the table cell I'd removed. Sorry about that TRy this:sub DropDownPaging(fnum)
dim PagesToShow
PagesToShow=3
response.write "<td bgcolor="""&strHeadCellColor&""" nowrap><strong>Page:</strong>"
if mxpages>1 then
if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow
if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow
if MinPageToShow>1 then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=1"&SearchLink&""">#171;</a>"
for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>"
next
if MaxPageToShow<maxpages then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&maxpages&SearchLink&""">#187;</a>"
response.write " (of "&maxpages&")"
else
response.write " <strong>1</strong> (of 1)"
end if
response.write "</td>"
top="0"
end sub |
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.” |
|
|
adonix
Starting Member
46 Posts |
Posted - 23 March 2005 : 14:09:53
|
Well that fixed the funky look, but it is still not working.
Here's how it is looking as of now:
Btw, the topic is supposed to have two pages, so I click on next page link, takes me there. |
Edited by - adonix on 23 March 2005 14:11:39 |
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 24 March 2005 : 05:14:10
|
There's also an A missing I swear, sometimes I think this place eats my code! Either that or I just type things up too quickly without checking back over them properly! sub DropDownPaging(fnum)
dim PagesToShow
PagesToShow=3
response.write "<td bgcolor="""&strHeadCellColor&""" nowrap><strong>Page:</strong>"
if maxpages>1 then
if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow
if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow
if MinPageToShow>1 then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=1"&SearchLink&""">#171;</a>"
for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>"
next
if MaxPageToShow<maxpages then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&maxpages&SearchLink&""">#187;</a>"
response.write " (of "&maxpages&")"
else
response.write " <strong>1</strong> (of 1)"
end if
response.write "</td>"
top="0"
end sub |
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.” |
|
|
adonix
Starting Member
46 Posts |
Posted - 28 March 2005 : 13:54:34
|
It's still not working Shaggy. The ony thing that changed was on the upper right hand corner where it says "page: 1 (of 1)" to "page: 1False (of 2)" |
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 29 March 2005 : 07:34:43
|
Spotted another typo:sub DropDownPaging(fnum)
dim PagesToShow
PagesToShow=3
response.write "<td bgcolor="""&strHeadCellColor&""" nowrap><strong>Page:</strong>"
if maxpages>1 then
if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow
if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow
if MinPageToShow>1 then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=1"&SearchLink&""">#171;</a>"
for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>"
next
if MaxPageToShow<maxpages then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&maxpages&SearchLink&""">#187;</a>"
response.write " (of "&maxpages&")"
else
response.write " <strong>1</strong> (of 1)"
end if
response.write "</td>"
top="0"
end sub Feel free to kick me, if you wish!
|
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.” |
|
|
adonix
Starting Member
46 Posts |
Posted - 29 March 2005 : 17:23:35
|
Well, well, well Shaggy. I must say you have lived up to your reputation. Once again you have proven yourself. It works... I was thinking the Simple Page would show the numbers as shown here:
But that's alright...having number links is still good.
Thank you Shaggy for your help!!! I really appreaciated...I owe you. |
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 30 March 2005 : 05:57:41
|
Well, if I was deserving of my apparent reputation, I wouldn't have had to lead you ona merry chase with all those typos!
Anyway, you're welcome, glad to help
It's easy enough to modify the code I provided to look like you want, just a case of comparing topic.asp with forum.asp to see how it's done.
|
Search is your friend “I was having a mildly paranoid day, mostly due to the fact that the mad priest lady from over the river had taken to nailing weasels to my front door again.” |
|
|
UnderRated
Starting Member
Portugal
39 Posts |
Posted - 13 April 2005 : 19:11:49
|
Here's one
For the forum.asp replace with this
sub DropDownPaging(fnum) dim PagesToShow PagesToShow=3 Response.Write(" <form name=""PageNum" & fnum & """ action=""topic.asp"">" & vbNewLine) Response.Write(" <td class=header nowrap><font size=""" & strDefaultFontSize & """>" & vbNewLine) if maxpages>1 then response.write "Page " Response.Write(" <form name=""PageNum" & fnum & """ action=""topic.asp"">" & vbNewLine) Response.Write(" <td class=header nowrap><font size=""" & strDefaultFontSize & """>" & vbNewLine) if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow if MinPageToShow>1 then response.write " <a href=""forum.asp?"&ArchiveLink&"FORUM_ID="&Forum_ID&"&whichpage=1"&SearchLink&""">«</a>" for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then response.write " <a href=""forum.asp?"&ArchiveLink&"FORUM_ID="&Forum_ID&"&whichpage="&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>" Response.Write(" <form name=""PageNum" & fnum & """ action=""topic.asp"">" & vbNewLine) Response.Write(" <td class=header nowrap><font size=""" & strDefaultFontSize & """>" & vbNewLine) next
if MaxPageToShow<maxpages then response.write " <a href=""forum.asp?"&ArchiveLink&"FORUM_ID="&Forum_ID&"&whichpage="&maxpages&SearchLink&""">»</a>" response.write " (of "&maxpages&")" else response.write " <strong>1</strong> (of 1)" end if response.write "</td>" top="0" end sub
and for the topic.asp replace with this one
sub DropDownPaging(fnum) dim PagesToShow PagesToShow=3 Response.Write(" <form name=""PageNum" & fnum & """ action=""topic.asp"">" & vbNewLine) Response.Write(" <td class=header nowrap><font size=""" & strDefaultFontSize & """>" & vbNewLine) if maxpages>1 then response.write "Page " if mypage-PagesToShow<1 then MinPageToShow=1 else MinPageToShow=mypage-PagesToShow if mypage+PagesToShow>maxpages then MaxPageToShow=maxpages else MaxPageToShow=mypage+PagesToShow if MinPageToShow>1 then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage=1"&SearchLink&""">«</a>" for counter=MinPageToShow to MaxPageToShow if counter<>mypage then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&counter&SearchLink&""">"&counter&"</a>" else response.write " <strong>"&counter&"</strong>" next if MaxPageToShow<maxpages then response.write " <a href=""topic.asp?"&ArchiveLink&"TOPIC_ID="&Topic_ID&"&whichpage="&maxpages&SearchLink&""">»</a>" response.write " (of "&maxpages&")" else response.write " <strong>1</strong> (of 1)" end if response.write "</td>" top="0" end sub
and it should look like this
|
|
|
Topic |
|