<%
sub format_pagecute()
  if rssum mod nummer > 0 then
    thepages=rssum\nummer+1
  else
    thepages=rssum\nummer
  end if
  page=trim(request("page"))'page=trim(request.querystring("page"))
  if not(isnumeric(page)) then page=1
  if int(page)>int(thepages) or int(page)<1 then
    viewpage=1
  else
    viewpage=int(page)
  end if
end sub
%>