关于注册推荐人的下滑问题，谁知道的帮帮忙，给点意见也行，非常感谢，只有91分全送上了！
A
/|\
B C D
关于注册的，现在BCD注册的时候写的推荐人都是A
在来个E注册，就是说有3个人的推荐人写了A
第4个人的推荐人再写A就不能注册了，现在要改成第4个人的推荐人也写A，那他的推荐人自动下滑到B，B下面如果已经有三个人了，那就下滑到C，以此类推，可以给我讲讲该怎么弄吗？
原先只写了一个限制3个人就不能注册的代码
代码如下：
' 限制推荐者
Sub GetTJ(txt)
Dim c
C = Conn.Execute( "Select Count(0) From [hy] where HyTjNumber= ' "&txt& " ' " )(0)
If C> =10 Then
Response.write( " <script > alert( '您的推荐者只能推荐十名会员，数量已满请选择另一个推荐者。 '); history.back(1); </script> ")
Response.End()
End If
大家参考下，帮忙改下，或给举个例子或给点参考意见构思的都行，非常感谢！
[解决办法]
ASP太久没写不会了，改了有点象Javascritp这样的语法，分就别给了，我要了没用
查下级(A){
查语句
if(A 没有三个下级){
OK，给他加上
}
else{
那就查他下级
循环列BCD{
查下级_下级(B||C||D)
}
if (查完了还没有OK) {
告诉他：“满人了，请自便吧！”;
}
}
}
//如果你想无限查下去，就可以不用这个
查下级_下级(B){
查语句
if(B 没有三个下级){
OK，给他加上;
}
else{
过，查CD;
}
}
查下级(A);
[解决办法]
这更简单啊，调用自己。
ASP太久没写不会了，改了有点象Javascritp这样的语法，分就别给了，我要了没用
查下级(A){
查语句
if(A 没有三个下级){
OK，给他加上
}
else{
那就查他下级
循环列BCD{
查下级(B||C||D)
}
//if (查完了还没有OK) {
//告诉他：“满人了，请自便吧！”;
//}
}
}
//如果你想无限查下去，就可以不用这个
//查下级_下级(B){
//查语句
//if(B 没有三个下级){
//OK，给他加上;
//}
//else{
//过，查CD;
//}
//}
查下级(A);
[解决办法]
搞定没？
