<%
perpage=20
ThePage=0
page=0
rcount=0
thepage=0
'''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''
qstr=qstr&"perpage:"&perpage&Vend
qstr=qstr&"ordernum:"&ordernum&Vend
set mydll=server.CreateObject("proshw.pro_othaff")
recs=mydll.othaff("artlst",siteuser,sitepass,qstr,b,c,d,rs)
set mydll=nothing
'''''''''''''''''''''''''''''''''''''''''
if recs<>"10000" then
call errorpage(-2,recs)
end if
if rs.RecordCount<=0 then
else
rcount=rs.recordcount
rs.pagesize=perpage
ThePage=rs.pagecount
if Chk_Int(SafeRequest("page"))=false then
page=1
else
page=cint(SafeRequest("page"))
if page<=0 then
page=1
elseif page>ThePage then
page=ThePage
end if
end if
rs.absolutepage=page
end if
%>
