COLUMNAS en ASP

[ElAprendiz]

Código:

SQL2="SELECT * FROM barcozona WHERE zona='"&rs("idzona")&"'"
Set Rs2= oConn.Execute(SQL2)

i=1
response.write "<table><tr>"
Do While Not Rs2.EOF 
    %>
    <td><a href="barcos.asp?referencia=<%=Rs2("barco")%>"><%= Rs2("barco")%></a></td><%
    if i=4 then
        i=1
        response.write "</tr><tr>"
    else
        i=i+1
    end if
    
    Rs2.MoveNext
Loop
response.write "</tr></table>" 
%>

pruebalo asi