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.
Hello,
does anyone know how i can implementate the
"Simple paging mod"
http://www.snitzbitz.com/mods/details.asp?Version=All&mid=173 on the searche page. (search.asp)
now there is an combox in an form. I have tryit to replace with text but it goes wrong.
anyone an idea? or example?
thanks
<
does anyone know how i can implementate the
"Simple paging mod"
http://www.snitzbitz.com/mods/details.asp?Version=All&mid=173 on the searche page. (search.asp)
now there is an combox in an form. I have tryit to replace with text but it goes wrong.
anyone an idea? or example?
thanks
<
Postet den
Searching works wonders.
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=67361&SearchTerms=simple,paging<
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=67361&SearchTerms=simple,paging<
Postet den
Hello Carefree
I have worked this on the topic.asp an forum.asp page.
but i want this now on the result page if your seach(search.asp) on the forum.
thanks erwin<
I have worked this on the topic.asp an forum.asp page.
but i want this now on the result page if your seach(search.asp) on the forum.
thanks erwin<
Postet den
Don't think anyone wrote this for search.asp (even though someone else requested it).
The code will be something like this, but the links aren't correct yet.
Instead of taking you to the pages, it's going back to search.asp with no data. If someone will point out the error, this is done.<
The code will be something like this, but the links aren't correct yet.
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=""search.asp?&whichpage=1"&SearchLink&""">#171;</a>"
for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then response.write " <a href=""search.asp?whichpage="&counter&""&SearchLink&""">"& Counter &"</a>" else response.write " <strong>"&counter&"</strong>"
next
if MaxPageToShow<maxpages then response.write " <a href=""search.asp?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
Instead of taking you to the pages, it's going back to search.asp with no data. If someone will point out the error, this is done.<
Postet den
I'd like to know how to add this to my topic.asp and search.asp as well. Can you post how you did it for topic.asp?<
Postet den
In topic.asp, search for dropdownpaging
Replace the entire sub-routine with the following:
Where the code is in red, remove the spaces between the symbols. Spaces were left in so the code wouldn't parse.<
Replace the entire sub-routine with the following:
Code:
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&""">& #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
Where the code is in red, remove the spaces between the symbols. Spaces were left in so the code wouldn't parse.<
