Display data From database into 2 Column

1   
2Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb")   
3Set Conn=Server.CreateObject("ADODB.Connection")   
4Conn.Open Conn_String   
5sql = "select * from cat order by ID"   
6set rs = Conn.Execute (sql)   
7'Connect to database

1<table border="0" width="300">   
2

Do while NOT rs.EOF
ColNum = 1
Do while ColNum < 3

1  
2<!-- First column-->
3<td align="LEFT" valign="middle" width="150"><a ```"="" href="showlink.asp?CatID=```
4=rs(" id")="">```
5=rs("cat")

1   
2if NOT rs.EOF then   
3rs.MoveNext   
4end if   
5ColNum = ColNum + 1   
6if NOT rs.EOF then

``` =rs("cat") ```

1   
2end if   
3ColNum = ColNum + 1   
4Loop

1   
2if NOT rs.EOF then   
3rs.MoveNext   
4end if   
5Loop

``` ``` rs.close Conn.Close set Conn = nothing