<table>
<%
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("kuku/public.asp")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DBPath
sql="select * from custom "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
dim RowCount
RowCount=4
if not rs.eof then
num=rs.recordcount mod RowCount
if num<>0 then
num=rs.recordcount/RowCount+1
else
num=rs.recordcount/RowCount
end if
for j=1 to num %>
<tr>
<%for i=1 to RowCount%>
<td width="12%" align="center" class="yzp">
<font color="#0080FF" face="Webdings">2</font>
<a href="send.asp?to=<%=rs("name")%>">
<font color="#0080FF"><%=rs("name")%>
</font></a>
</td>
<%
m=m+1
'response.write m
if m=rs.recordcount then
exit for
end if
rs.movenext
next
%>
</tr>
<%
next
end if
%>
</table>
