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