<%
If ClassID > 0 then
Sql = "Select ClassID,ClassName From Class Where ClassID="& ClassID &" And Layout='News' Order By RootID"'
else
Sql = "Select ClassID,ClassName From Class Where Layout='News' Order By RootID"'
end if
Rs.Open Sql,Conn,1,1
Do While Not Rs.Eof
%>