<%
dim rs2,rs1_aa
'大类查讯
set rs=server.CreateObject("adodb.recordset")
rs.open "select anclass,anclassid from shop_anclass order by anclassidorder",conn,1,1
do while not rs.eof
response.write ""&trim(rs("anclass"))&" | "
rs.movenext
loop
rs.close
set rs=nothing
response.write " "
%>