sub DropDownPaging(fnum)
	if maxpages > 1 then
		if mypage = "" then
			pge = 1
		else
			pge = mypage
		end if
		Response.Write	"                <td """ & vbNewline
		If fnum = 1 Then Response.Write	"width=""20%""" Else Response.Write	"width=""15%"""
		Response.Write	" bgColor=""" & strHeadCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
		if fnum = 1 then
			Response.Write("                <b>Page:</b> [")
		else
			Response.Write("                <b>Total Pages (" & maxpages &"):</b>[")
		end if
		PagesToShow = 10
		If cLng(pge) > 1 then
			MinPageToShow = cLng(pge) - 1
		Else
			MinPageToShow = 1
		End If
		If cLng(pge) + PagesToShow > maxpages then
			MaxPageToShow = maxpages
		Else
			MaxPageToShow = cLng(pge) + PagesToShow
		End If
		If MaxPageToShow < maxpages then
			ShowMaxPage = True
		Else
			ShowMaxPage = False
		End If
		If MinPageToShow > 1 then
			ShowMinPage = True
		Else
			ShowMinPage = False
		End If
		If ShowMinPage then
			Response.Write "<a href=""topic.asp?whichpage=1&topic_ID=" & topic_ID &"&sortfield=" & strtopicsortfld & "&sortorder=" & strtopicsortord
			Response.Write """> <<First</a>"
		End If
		for counter = MinPageToShow to MaxPageToShow
			if counter <> cLng(pge) then   
				Response.Write " <a href=""topic.asp?whichpage=" & counter & "&topic_ID=" & topic_ID &"&sortfield=" & strtopicsortfld & "&sortorder=" & strtopicsortord
				If ArchiveView = "true" then
					Response.Write "&ARCHIVE=" & ArchiveView
				End If	
				Response.Write """>" & counter & "</a>"
			else
				Response.Write " <b>" & counter & "</b>"
			end if
		next
		If ShowMaxPage then
			Response.Write " <a href=""topic.asp?whichpage=" & maxpages & "&topic_ID=" & topic_ID &"&sortfield=" & strtopicsortfld & "&sortorder=" & strtopicsortord
			Response.Write """> >> Last </a>"
		End If
		Response.Write " ]"
		Response.Write("</font></td>" & vbNewLine)
	end if
end sub