Display data From database into 2 Column (1)

%26lt;%
Conn_String = %26quot;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=%26quot; %26amp; Server.MapPath(%26quot;link.mdb%26quot;)
Set Conn=Server.CreateObject(%26quot;ADODB.Connection%26quot;)
Conn.Open Conn_String
sql = %26quot;select * from cat order by ID%26quot;
set rs = Conn.Execute (sql)
'Connect to database
%%26gt;



%26lt;table border=%26quot;0%26quot; width=%26quot;300%26quot;%26gt;

%26lt;%
Do while NOT rs.EOF
ColNum = 1
Do while ColNum %26lt; 3
%%26gt;

%26lt;!-- First column--%26gt;
%26lt;TD ALIGN=LEFT VALIGN=middle WIDTH=%26quot;150%26quot;%26gt;%26lt;a href=%26quot;showlink.asp?CatID=%26lt;%=rs(%26quot;id%26quot;)%%26gt;%26quot;%26gt;%26lt;%=rs(%26quot;cat%26quot;)%%26gt;
%26lt;/a%26gt;%26lt;/TD%26gt;

%26lt;%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%%26gt;

%26lt;!-- second column--%26gt;
%26lt;TD ALIGN=LEFT VALIGN=middle WIDTH=%26quot;150%26quot;%26gt;%26lt;a href=%26quot;showlink.asp?CatID=%26lt;%=rs(%26quot;id%26quot;)%%26gt;%26quot;%26gt;%26lt;%=rs(%26quot;cat%26quot;)%%26gt;%26lt;/a%26gt;%26lt;/TD%26gt;

%26lt;%
end if
ColNum = ColNum + 1
Loop
%%26gt;

%26lt;/TR%26gt;



%26lt;%
if NOT rs.EOF then
rs.MoveNext
end if
Loop
%%26gt;

%26lt;/TABLE%26gt;

%26lt;% rs.close
Conn.Close
set Conn = nothing
%%26gt;