<%
if request("page")=empty then
page=1
else page=request("page")
end if
if request("tp")=empty then
tp="SUPPLY"
else tp=request("tp")
end if
MDBFILE="/DATABASE/XIXI.MDB"
SQL="select * from buy where del=0 and tp='"&tp&"'"
SET RS=GetMdbStaticRecordset(MDBFILE,SQL)
k=0
while not rs.eof
rs.movenext
k=k+1
wend
rs.movefirst
%>
