<!--#include file="public/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from dsl where id="&request("id")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<BR>没有这个人"
response.end
end if
d_name=rs("name")
d_id=rs("id")
%>

<%
set rsshang=server.createobject("adodb.recordset")
sql="selcet id,[name] from dsl where id="&rs("lishu")
rsshang.open sql,conn,1,1
if rsshang.eof or rsshang.bof then
%>
<td><FONT COLOR="#6600CC">这个人没有上级代理商,他是一级代理商</FONT></td>
<%else
do while not rsshang.eof
%>
<td>
<A HREF="dls_caozuo.asp?id=<%=rsshang("id")%>"><%=rsshang("name")%></A>
<%
rsshang.movenext
loop
end if
rsshang.close
set rsshang=nothing
%>
<%
rs.close
set rs=nothing
call closedb
%>

上级代理老是出不来,老显示"这个人没有上级代理商,他是一级代理商"