Display data from database into 2 Column

<%
conn_string = "Driver={microsoft Access DRIVER (*.mdb)};D bq=" & Server.MapPath ("Link.mdb")
Set conn=server.createobject ("ADODB. Connection ")
Conn.Open conn_string
sql = "SELECT * from Cat ' ORDER by ID"
Set rs = conn.execute (SQL)
' Connect to database '
%>



<table border= "0" width= ">"

<%
Do but not Rs. Eof
Colnum = 1
Do While Colnum < 3
%>

<!--column-->
&LT;TD align=left valign=middle width= "><a href=" showlink.asp? CATID=&LT;%=RS ("id")%> "><%=rs (" Cat ")%>
</a></TD>

<%
If not Rs. EOF Then
Rs. MoveNext
End If
Colnum = colnum + 1
If not Rs. EOF Then
%>

<!--second column-->
&LT;TD align=left valign=middle width= "><a href=" showlink.asp? CATID=&LT;%=RS ("id")%> "><%=rs (" Cat ")%></a></td>

<%
End If
Colnum = colnum + 1
Loop
%>

</TR>



<%
If not Rs. EOF Then
Rs. MoveNext
End If
Loop
%>

</TABLE>

<% Rs.close
Conn.close
Set Conn = Nothing
%>