我做了个ASP中分页显示的代码，但发觉运行后有个问题，请各位帮忙指教下

代码如下：
<%
    '显示页码
     Response.Write("<form method=""POST"" action=""GoodsList.asp"" name=""myform"">  输入页码： <select name=""page"">")
  '将页数添加到下拉框中
  for i=1 to rs.PageCount   
    Response.Write "<option" 
    If iPage = i Then
      Response.Write " selected "
    End If
    Response.Write ">" & i & "</option>"   
  next   
  Response.Write("</select> <input type=""submit"" name=""Submit"" value=""打开""></form>")
   '显示第一页，如果当前页就是第一页，则不生成链接
  if iPage>1 then
    Response.Write "<a href='GoodList.asp?firsttypeid=" & Trim(firsttypeid) & "&page=" & 1 & "'>第一页</A>"
  else
    Response.Write "第一页"
  end if  
   '显示上一页，如果不存在上一页，则不生成链接
  if iPage>1 then
    Response.Write "<a href='GoodsList.asp?firsttypeid=" & Trim(firsttypeid) & "&page=" & (iPage-1) & "'>上一页</A>"
  else
    Response.Write "上一页"
  end if
   '显示下一页，如果不存在下一页，则不生成链接
  if iPage<>rs.PageCount Then
    Response.Write "<a href='GoodsList.asp?firsttypeid=" & Trim(firsttypeid) & "&page=" & (iPage+1) & "'>下一页</A>"
  else
    Response.Write "下一页"
  end if
   '显示最后一页，如果当前页就是最后一页，则不生成链接
  if iPage <> rs.PageCount then
    Response.Write "<a href='GoodsList.asp?firsttypeid=" & Trim(firsttypeid) & "&page=" & rs.PageCount & "'>最后一页</A>"
  else
    Response.Write "最后一页"
  end if

  End If
%>

运行后的BUG为，当再列表中选取页数时可以转页到选定页，如果按过下一页或者最后一页，再从列表中选取页数就不会跳转过去了，请大家帮忙指教下