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.
Has anyone used this mod on topic.asp and search.asp?
The original mod only cover forum.asp...
<
/Tribaliztic
- www.gotlandrace.se -
- www.gotlandrace.se -
Posted
If I'm not mistaking I've got it running on topic.asp.<
portfolio - linkshrinker - oxle - twitter
Posted
Correction ; I was mistaking. I have NOT got it running on topic.asp.
<
portfolio - linkshrinker - oxle - twitter
Posted
Okay, then you know what to do today..;)
Don't forget search.asp when you're at it hehe.. <
Don't forget search.asp when you're at it hehe.. <
/Tribaliztic
- www.gotlandrace.se -
- www.gotlandrace.se -
Posted
Ah, I found an archived topic where Shaggy fixed the topic.asp:
http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=57444&SearchTerms=simple+paging+mod
Although, I get an error on this code:
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
The #187 is showing like this:
Page: 1 2 3 4 #187; (of 7)
What's that? I see there's a #171 in the code also but didn't see that on my page. <
http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=57444&SearchTerms=simple+paging+mod
Although, I get an error on this code:
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
The #187 is showing like this:
Page: 1 2 3 4 #187; (of 7)
What's that? I see there's a #171 in the code also but didn't see that on my page. <
/Tribaliztic
- www.gotlandrace.se -
- www.gotlandrace.se -
Posted
Thanks, I knew I could count on you Shaggy ;)
<
<
/Tribaliztic
- www.gotlandrace.se -
- www.gotlandrace.se -
Email Member
Message Member
Post Moderation
FileUpload
If you're having problems uploading, try choosing a smaller image.
Preview post
Send Topic
Loading...
