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