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

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

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