<%
i=0
MaxList=150
set rs=server.createobject("adodb.recordset")
sql="SELECT SpecialID,Pic,Name,Nclass,Nclassid,Gongsi,times FROM Special where sclassid=4 or sclassid=5 or sclassid=6 order by Specialid desc"
rs.Open sql,conn,1,1
do while not rs.eof
i=i+1
if i mod 1 =0 then
else
end if
%>
<%
if i>=MaxList then exit do
rs.movenext
loop
rs.close
%>
