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