如何自动加个编号，请各位大虾帮忙
<%Set OBJConn = Server.CreateObject("ADODB.Connection")
OBJConn.Open "sa","sa","123456"
sersql="select * from jjy"
Set rs=OBJConn.Execute (sersql)
%>
<tr>
<td bgcolor="#FFFFFF" align="center" width="56"><b><font color="#FF0000">编号</font></b></td>
<td bgcolor="#FFFFFF" align="center" width="65"><b><font color="#FF0000">客户名</font></b></td>
<td bgcolor="#FFFFFF" align="center" width="68"><b><font color="#FF0000">购物金额</font></b></td>

[此贴子已经被作者于2007-8-21 8:59:10编辑过]

<%
dim i
Set OBJConn = Server.CreateObject("ADODB.Connection")
OBJConn.Open "sa","sa","123456"
sersql="select * from jjy"
Set rs=OBJConn.Execute (sersql)
if not (rs.bof and rs.eof) then
i=1
while not rs.eof
%>
<tr>
<td bgcolor="#FFFFFF" align="center" width="56"><b><font color="#FF0000">编号<%=i%></font></b></td>
<td bgcolor="#FFFFFF" align="center" width="65"><b><font color="#FF0000">客户名</font></b></td>
<td bgcolor="#FFFFFF" align="center" width="68"><b><font color="#FF0000">购物金额</font></b></td>
<%rs.movenetxt
i=i+1
wend
end if
rs.close:set rs=nothing
%>

问题解决了谢谢哥哥