Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 search page paging -> It works!

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
ernieek Posted - 30 June 2008 : 16:59:03
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

<
15   L A T E S T    R E P L I E S    (Newest First)
ernieek Posted - 05 July 2008 : 15:12:07
@ Carefree

i missed more then 1 end if states.

this code must be okay
===============================================================

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

Response.Write " <input name=""whichpage"" type=""hidden"" value="""">" & 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
end if

Response.Write "<td nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine

if fnum = 1 then
Response.Write(" <b>"& fLang("L_Search054") &"</b> [")
else
Response.Write(" <b>"& fLangN("L_Search055",maxPages) &"</b>[")
end if

if maxpages>1 then
if mypage-PagesToShow<1 then
MinPageToShow=1
else
MinPageToShow=mypage-PagesToShow
end if
if mypage+PagesToShow>maxpages then
MaxPageToShow=maxpages
else
MaxPageToShow=mypage+PagesToShow
end if


if MinPageToShow>1 then
response.write " <a href=""#"" onClick=""changeValue("&fnum &",1)""><<</a>"
end if

for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then
response.write " <a href=""#"" onClick=""changeValue("&fnum &","&counter&")"">"&counter&"</a> "
else
response.write " <strong>"&counter&"</strong> "
end if
next
if MaxPageToShow<maxpages then
response.write " <a href=""#"" onClick=""changeValue("&fnum &","&maxpages&")"">>></a> ]"
else
response.write " ]"
end if

top="0"
response.write "</font></td>"
Response.Write(" </form>" & vbNewLine)
end if
end sub<
ernieek Posted - 05 July 2008 : 14:31:46
but then we get the error:

Microsoft VBScript compilation error '800a03f8'

Expected 'Sub'

/search.asp, line 794

end if
----^
<
Carefree Posted - 05 July 2008 : 12:24:03
You're missing an "end if" before the "end sub". It should look like this:


sub DropDownPaging(fnum)
	dim PagesToShow
	PagesToShow=3
	Response.Write " <form name=""PageNum" & fnum & """ action=""search.asp?" & chkString(Request.QueryString,"SQLString") & """ method=""post"">" & vbNewLine & _
		" <input name=""Search"" type=""hidden"" value=""" & trim(chkString(Request.Form("Search"),"search")) & """>" & vbNewLine & _
		" <input name=""andor"" type=""hidden"" value=""" & cLng(Request.Form("andor")) & """>" & vbNewLine & _
		" <input name=""Forum"" type=""hidden"" value=""" & cLng(Request.Form("Forum")) & """>" & vbNewLine & _
		" <input name=""SearchMessage"" type=""hidden"" value=""" & cLng(Request.Form("SearchMessage")) & """>" & vbNewLine & _
		" <input name=""whichpage"" type=""hidden"" value="""">" & vbNewLine
	if strArchiveState = "1" and ArchiveView = "true" then Response.Write(" <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine) & _
		" <input name=""SearchDate"" type=""hidden"" value=""" & cLng(Request.Form("SearchDate")) & """>" & vbNewLine
		if strUseMemberDropDownBox = 0 then
			" <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 nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
		if fnum = 1 then
			Response.Write(" <b>"&fLang("L_Search054")&"</b> [")
		else
			Response.Write(" <b>"& fLangN("L_Search055",maxPages) &"</b>[")
		end if
		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=""changeValue("&fnum &",1)""><<</a>"
			for counter=MinPageToShow to MaxPageToShow
				if counter<>mypage then response.write " <a href=""#"" onClick=""changeValue("&fnum &","&counter&")"">"&counter&"</a> " else response.write " <strong>"&counter&"</strong> "
			next
				if MaxPageToShow<maxpages then response.write " <a href=""#"" onClick=""changeValue("&fnum &","&maxpages&")"">>></a> "
					response.write " ]"
			else
					response.write " <strong>1</strong> (of 1)"
			end if
				response.write "</font></td>"
				Response.Write(" </form>" & vbNewLine)
			top="0"
		end if
end sub
<
ernieek Posted - 05 July 2008 : 08:12:18
it's works!

i changed the following:

===============================================================
Add this function script under
function ChangePage(fnum)
===============================================================
Response.Write " <script language=""javascript"" type=""text/javascript"">" & vbNewLine & _
" <!--" & vbNewLine & _
" function changeValue(PagN,to) {" & vbNewLine & _
" theForm = document.forms['PageNum'+PagN];" & vbNewLine & _
" theForm.elements['whichpage'].value = to;" & vbNewLine & _
" theForm.submit();" & vbNewLine & _
" }" & vbNewLine & _
" //-->" & vbNewLine & _
" </script>" & vbNewLine
==============================================================


the new DropDownpaging Function:
===============================================================

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

Response.Write " <input name=""whichpage"" type=""hidden"" value="""">" & 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 nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine

if fnum = 1 then
Response.Write(" <b>"&fLang("L_Search054")&"</b> [")
else
Response.Write(" <b>"& fLangN("L_Search055",maxPages) &"</b>[")
end if

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=""changeValue("&fnum &",1)""><<</a>"
for counter=MinPageToShow to MaxPageToShow
if counter<>mypage then response.write " <a href=""#"" onClick=""changeValue("&fnum &","&counter&")"">"&counter&"</a> " else response.write " <strong>"&counter&"</strong> "

next
if MaxPageToShow<maxpages then response.write " <a href=""#"" onClick=""changeValue("&fnum &","&maxpages&")"">>></a> "
response.write " ]"
else
response.write " <strong>1</strong> (of 1)"
end if
response.write "</font></td>"

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

top="0"
end sub
===============================================================<
ernieek Posted - 05 July 2008 : 07:11:09
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


<
ernieek Posted - 04 July 2008 : 17:22:44
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

================================================================
<
ernieek Posted - 01 July 2008 : 16:54:35
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<
Carefree Posted - 01 July 2008 : 11:39:18
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.
<
leatherlips Posted - 01 July 2008 : 09:05:37
Can you post the code you are trying to use for the search page?<
ernieek Posted - 01 July 2008 : 09:00:03
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?<
Carefree Posted - 01 July 2008 : 08:32:28
Actually & lt; and & gt; are the full-size symbols and will not match the 171 & 187 symbols.<
Shaggy Posted - 01 July 2008 : 05:02:19
Or just &lt; and &gt;

<
Carefree Posted - 30 June 2008 : 21:08:58
To get the single, small < and > (for use with next and previous), use & #139; and & #155;<
leatherlips Posted - 30 June 2008 : 21:01:54
Thanks Carefree. I'll work on that to make it more like on my forum.asp page. This gives me a great start!<
Carefree Posted - 30 June 2008 : 20:26:06
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.<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.3 seconds. Powered By: Snitz Forums 2000 Version 3.4.07