This is a corrected DropDownPaging() for FORUM.ASP (topic.asp is very similar except you also have a hidden field in the function).
This is what it currently looks like:
This is what it looks like with the improved function:
Basically, it straightens the text.
In TOPIC.ASP replace Sub DropDownPaging() (starting around line 782) with:
sub DropDownPaging()
if maxpages > 1 then
if mypage = "" then
pge = 1
else
pge = mypage
end if
scriptname = request.servervariables("script_name")
Response.write "<form name=""PageNum"" action=""forum.asp"">"
Response.write "<input name=""FORUM_ID"" type=""hidden"" value=""" & Forum_ID & """>"
Response.write "<input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>"
Response.write "<input name=""method"" type=""hidden"" value=""" & sMethod & """>"
Response.Write("<select name=""whichpage"" size=""1"" onchange=""ChangePage()"">")
for counter = 1 to maxpages
if counter <> cint(pge) then
Response.Write "<OPTION VALUE=""" & counter & """>" & counter
else
Response.Write "<OPTION SELECTED VALUE=""" & counter & """>" & counter
end if
next
Response.Write "</select></font></td>" & vbnewline
Response.Write "</form>"& vbnewline
Response.Write "<td valign=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"& vbnewline
Response.Write "<b> of " & maxPages & "</b>"& vbnewline
end if
end sub
ALSO, look for the table where is calls DropDownPaging() (around line 309) and change valign="top" to valign="middle".
EDIT: Added a closing font tag in the above code. You should also change "Pages" to "Page" to mirror topic.asp (and to make it grammatically correct) in the same table that you changed the valign.
That's it... like I said TOPIC.ASP is very similar.
--Aaron
MySubs Email MOD
MOD to Smile Mgr
HotKeys MOD
Edited by - aaron s. on 23 April 2002 09:46:30