<%
set rs=server.createobject("adodb.recordset")
sql="select * from bigclass where bigclass<>'' order by id asc"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write"
<%
dim bigclass
bigclass=fstr(request("bigclass"))
if bigclass="" then
sql="Select * from [info] where vip2=1 Order by vip desc,id asc"
else
sql="Select * from [info] where bigclass='"&bigclass&"' and vip2=1 Order by vip desc,id asc"
end if
%>
<%if not (rs.bof or rs.eof) then
i=1
do until rs.eof or i>uspage
%>
<%end if%>