Listar el mismo campo en dos columnas sin repeticiones

[Myakire]

<table>
<%
cnt=1
While Not rs.EOF
%><tr><%
if cnt MOD 2 = 0 Then
%><td>rs(Campo)<%
if Not rs.EOF Then rs.MoveNext
Else Break
End If
End If
%><td>rs(Campo)<%
Cnt = Cnt + 1
if Not rs.EOF Then rs.MoveNext End If
Wend
%>
<Table>