<TABLE border=0 cellPadding=0 cellSpacing=0
                              width="100%">
                                <TBODY>
  <%
    dim links,j
        j=0
    sql="select webaddr,webname from link"
    set rs=conn.execute(sql)
    links=rs.getrows
    for i=0 to ubound(links,2)
    if j=2 then
  response.write"<tr>"
     j=1
    else
     j=j+1
end if
 %>
<TD height=20><A  href="<%=links(0,i)%>" target=_blank><%=links(1,i)%></A> </TD>
 <% next %>
</TABLE>