<table width="98%" border="0" align="center">

        <tr>

<%

 Set rs= Server.CreateObject("ADODB.Recordset")

 rs.open "s elect * from links where link_type=1 order by id asc",conn,1,1

 tempnum2=1

 do while not rs.eof

%>

<td height="20"><a href="<%=rs("link_url")%>" target=_blank><%=rs("link_name")%></a></td>

<%

 if (tempnum2 mod 5)=0 then response.write "</tr>" '五列显示mod 5

 tempnum2=tempnum2+1

 rs.movenext

 loop

%>

</tr>

<%

 rs.close

 set rs=nothing

%>

</table>