<% dim i i = 1 Set RS = Server.CreateObject("ADODB.Recordset") SQL = "Select * from DownClass" RS.Open SQL, cn, 1,1,1 Do while not RS.EOF if i mod 2 <> 0 then %> <% i = i + 1 else %> <% i = i + 1 end if RS.movenext Loop set RS = nothing if i mod 2 = 0 then %> <% end if %>

◈ "><%=RS("classname")%>