Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 search page paging -> It works!		  New Topic  Reply to Topic
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

ernieek
Starting Member

21 Posts
Posted - 30 June 2008 :  16:59:03  Show Profile  Reply with Quote
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

<
Edited by - ernieek on 05 July 2008 08:12:39

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 30 June 2008 :  17:48:32  Show Profile  Reply with Quote
Searching works wonders.

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=67361&SearchTerms=simple,paging<
Go to Top of Page

ernieek
Starting Member

21 Posts
Posted - 30 June 2008 :  18:02:35  Show Profile  Reply with Quote
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<
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 30 June 2008 :  19:01:26  Show Profile  Reply with Quote
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.


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.<
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 30 June 2008 :  20:18:16  Show Profile  Visit leatherlips's Homepage  Reply with Quote
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?<
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 30 June 2008 :  20:26:06  Show Profile  Reply with Quote
In topic.asp, search for dropdownpaging

Replace the entire sub-routine with the following:

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.<
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 30 June 2008 :  21:01:54  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Thanks Carefree. I'll work on that to make it more like on my forum.asp page. This gives me a great start!<
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 30 June 2008 :  21:08:58  Show Profile  Reply with Quote
To get the single, small < and > (for use with next and previous), use & #139; and & #155;<
Go to Top of Page

Shaggy
Support Moderator

Ireland
6780 Posts
Posted - 01 July 2008 :  05:02:19  Show Profile  Reply with Quote
Or just &lt; and &gt;

<
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.”
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 01 July 2008 :  08:32:28  Show Profile  Reply with Quote
Actually & lt; and & gt; are the full-size symbols and will not match the 171 & 187 symbols.<
Edited by - Carefree on 01 July 2008 08:32:55
Go to Top of Page

ernieek
Starting Member

21 Posts
Posted - 01 July 2008 :  09:00:03  Show Profile  Reply with Quote
but how to implementate this to the search page.

when i do this, the searche wil wil now go back to the first search screen because there is no seach data anymore.

is there anyone that can help?<
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 01 July 2008 :  09:05:37  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Can you post the code you are trying to use for the search page?<
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 01 July 2008 :  11:39:18  Show Profile  Reply with Quote
quote:
Originally posted by ernieek

but how to implementate this to the search page.

when i do this, the searche wil wil now go back to the first search screen because there is no seach data anymore.

is there anyone that can help?


From my post:

quote:
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.
<
Go to Top of Page

ernieek
Starting Member

21 Posts
Posted - 01 July 2008 :  16:54:35  Show Profile  Reply with Quote
I will post my code next evening, i can't take the files on this moment.

i try it to copy the code soon as possible<
Go to Top of Page

ernieek
Starting Member

21 Posts
Posted - 04 July 2008 :  17:22:44  Show Profile  Reply with Quote
this is the code

I have only changed the function DropDownPaging. the function DropDownPagingOld is the original function of the search page.

================================================================

sub DropDownPaging(fnum)
dim PagesToShow
PagesToShow=3
response.write "<td bgcolor="""&strHeadCellColor&""" nowrap>"
response.write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"&fLang("L_Search054")

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&"""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>#171;</font></a>"
for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then response.write " <a href=""search.asp?whichpage="&counter&SearchLink&"""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"&counter&"</font></a>" else response.write " <strong>"&counter&"</strong>"
next
if MaxPageToShow<maxpages then response.write " <a href=""search.asp?whichpage="&maxpages&SearchLink&"""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>#187;</font></a>"
response.write " (of "&maxpages&")"
else
response.write " <strong>1</strong> (of 1)"
end if
response.write "</font></td>"
top="0"
end sub

================================================================

sub DropDownPagingold(fnum)
if maxpages > 1 then
if mypage = "" then
pge = 1
else
pge = mypage
end if
scriptname = request.servervariables("script_name")
Response.Write " <form name=""PageNum" & fnum & """ action=""search.asp?" & chkString(Request.QueryString,"SQLString") & """ method=""post"">" & vbNewLine
Response.Write " <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
Response.Write " <input name=""Search"" type=""hidden"" value=""" & trim(chkString(Request.Form("Search"),"search")) & """>" & vbNewLine
Response.Write " <input name=""andor"" type=""hidden"" value=""" & cLng(Request.Form("andor")) & """>" & vbNewLine
Response.Write " <input name=""Forum"" type=""hidden"" value=""" & cLng(Request.Form("Forum")) & """>" & vbNewLine
Response.Write " <input name=""SearchMessage"" type=""hidden"" value=""" & cLng(Request.Form("SearchMessage")) & """>" & vbNewLine
if strArchiveState = "1" and ArchiveView = "true" then Response.Write(" <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine)
Response.Write " <input name=""SearchDate"" type=""hidden"" value=""" & cLng(Request.Form("SearchDate")) & """>" & vbNewLine
if strUseMemberDropDownBox = 0 then
Response.Write " <input name=""SearchMember"" type=""hidden"" value=""" & chkString(Request.Form("SearchMember"),"display") & """>" & vbNewLine
else
Response.Write " <input name=""SearchMember"" type=""hidden"" value=""" & cLng(Request.Form("SearchMember")) & """>" & vbNewLine
end if
if fnum = 1 then
Response.Write(" <b>" & fLang("L_Search054") & " </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
else
Response.Write(" <b>" & fLangN("L_Search055",maxpages) & " </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
end if
for counter = 1 to maxpages
if counter <> cLng(pge) then
Response.Write " <option value=""" & counter & """>" & counter & "</option>" & vbNewLine
else
Response.Write " <option selected value=""" & counter & """>" & counter & "</option>" & vbNewLine
end if
next
if fnum = 1 then
Response.Write(" </select><b> " & fLangN("L_Search056",maxPages) & "</b>" & vbNewLine)
else
Response.Write(" </select>" & vbNewLine)
end if
Response.Write(" </font></td>" & vbNewLine)
Response.Write(" </form>" & vbNewLine)
end if
end sub

================================================================
<
Go to Top of Page

ernieek
Starting Member

21 Posts
Posted - 05 July 2008 :  07:11:09  Show Profile  Reply with Quote
Hello,

I have changed the code to this:
The only thing that not work is the wichpage.

=============================================
sub DropDownPaging(fnum)
dim PagesToShow
PagesToShow=3

Response.Write " <form name=""PageNum" & fnum & """ action=""search.asp?" & chkString(Request.QueryString,"SQLString") & """ method=""post"">" & vbNewLine
Response.Write " <input name=""Search"" type=""hidden"" value=""" & trim(chkString(Request.Form("Search"),"search")) & """>" & vbNewLine
Response.Write " <input name=""andor"" type=""hidden"" value=""" & cLng(Request.Form("andor")) & """>" & vbNewLine
Response.Write " <input name=""Forum"" type=""hidden"" value=""" & cLng(Request.Form("Forum")) & """>" & vbNewLine
Response.Write " <input name=""SearchMessage"" type=""hidden"" value=""" & cLng(Request.Form("SearchMessage")) & """>" & vbNewLine
if strArchiveState = "1" and ArchiveView = "true" then Response.Write(" <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine)
Response.Write " <input name=""SearchDate"" type=""hidden"" value=""" & cLng(Request.Form("SearchDate")) & """>" & vbNewLine
if strUseMemberDropDownBox = 0 then
Response.Write " <input name=""SearchMember"" type=""hidden"" value=""" & chkString(Request.Form("SearchMember"),"display") & """>" & vbNewLine
else
Response.Write " <input name=""SearchMember"" type=""hidden"" value=""" & cLng(Request.Form("SearchMember")) & """>" & vbNewLine
end if


response.write "<td bgcolor="""&strHeadCellColor&""" nowrap>"
response.write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"&fLang("L_Search054")

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=""#"" onClick=""ChangePage("& fnum &");""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>#171;</font></a>"
for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then response.write " <a href=""#"" onClick=""ChangePage(" & fnum & ");""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"&counter&"</font></a>" else response.write " <strong>"&counter&"</strong>"
next
if MaxPageToShow<maxpages then response.write " <a href=""#"" onClick=""ChangePage(" & fnum & ");""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>#187;</font></a>"
response.write " (of "&maxpages&")"
else
response.write " <strong>1</strong> (of 1)"
end if
response.write "</font></td>"

Response.Write(" </form>" & vbNewLine)

top="0"
end sub


<
Edited by - ernieek on 05 July 2008 07:13:00
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next Page
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.44 seconds. Powered By: Snitz Forums 2000 Version 3.4.07