求解。高手出来吧！关于ASP循环问题！万分感谢

遇到一个比较麻烦的问题。


例如：

'=========================================读取用户资料
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from user where username='"&username&"'"
rs.Open sql,conn,1,3
tuijian=rs("tuijian")
'=========================================读取用户的推荐人资料
Set rs1=Server.CreateObject("ADODB.RecordSet")
sql="select * from user where tuijian='"&tuijian&"'"
rs1.Open sql,conn,1,3
tuijian1=rs1("tuijian")
'=========================================读取用户的推荐人的推荐人资料
Set rs2=Server.CreateObject("ADODB.RecordSet")
sql="select * from user where tuijian='"&tuijian1&"'"
rs2.Open sql,conn,1,3
tuijian2=rs2("tuijian")
'=========================================读取用户的推荐人的推荐人的推荐人资料
Set rs3=Server.CreateObject("ADODB.RecordSet")
sql="select * from user where tuijian='"&tuijian2&"'"
rs3.Open sql,conn,1,3
tuijian3=rs3("tuijian")
'=========================================读取用户的推荐人的推荐人的推荐人的推荐人资料
Set rs4=Server.CreateObject("ADODB.RecordSet")
sql="select * from user where tuijian='"&tuijian3&"'"
rs4.Open sql,conn,1,3


response.write(rs4("username"))

用ASP怎么才能计算以此类推下去。最高推荐人未知的情况，一直找到最高的那个推荐人的账号为止。高手请指导，给个思路。。万分感谢！