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 -
نوشته شده در
If I'm not mistaking I've got it running on topic.asp.<
portfolio - linkshrinker - oxle - twitter
نوشته شده در
Correction ; I was mistaking. I have NOT got it running on topic.asp.
<
portfolio - linkshrinker - oxle - twitter
نوشته شده در
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 -
نوشته شده در
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 -
نوشته شده در
نوشته شده در
Thanks, I knew I could count on you Shaggy ;)
<
<
/Tribaliztic
- www.gotlandrace.se -
- www.gotlandrace.se -
Email Member
Message Member
Post Moderation
بارگزاری فایل
If you're having problems uploading, try choosing a smaller image.
پیشنمایش مطلب
Send Topic
Loading...
