100块钱求实现注册的一个功能，谁要做的请进！
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> =3   Then
Response.write( " <script   >   alert( '您的推荐者只能推荐十名会员，数量已满请选择另一个推荐者。 ');   history.back(1); </script> ")
Response.End()
End   If
谁帮我实现这功能，因为考虑到整个网站接过来钱本就不多，所以只能给100块钱，只要功能实现一定给钱。
谁要做的加我qq：58228213详谈


------解决方案--------------------
呵呵

------解决方案--------------------
写了个简单的，要求各级别名称是有序的

<%
connstr= "Provider=SQLOLEDB.1;server=(local);UID=sa;PWD=;DATABASE=test;connect timeout=120 "
set conn=server.createobject( "adodb.connection ")
conn.open connstr
function GetParent(default)

set rs = server.createobject( "adodb.recordset ")
rs.open "Select * From [hy] where HyTjNumber= ' "&default& " ' ",conn,1,1
if rs.recordCount> =3 then
default1 = GetParent(rs( "HyName "))
rs.movenext
default2 = GetParent(rs( "HyName "))
rs.movenext
default3 = GetParent(rs( "HyName "))
rs.close
GetParent=min(default1,default2,default3)
else
GetParent = default
end if

end function

function min(s1,s2,s3)
if s1 <s2 and s1 <s3 then min = s1
if s2 <s1 and s2 <s3 then min = s2
if s3 <s2 and s3 <s1 then min = s3
end function

response.write GetParent( "a ")

conn.close
%>