怎么由另一表导出数据

[mensle]

.....
<%on error resume next%>
<%
id=request("id")
pname=request("pname")
sql="update person set hits=hits+1 where id="&id
conn.execute sql
sql="select * from person where id="&id
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
sql3="select rcid,lxr,tel,dz,bz from rcorder where rcid='pname' order by id desc "
conn.execute sql3
Set rs3=Server.CreateObject("ADODB.RecordSet")
rs3.open sql3,conn,1,1
if rs.eof and rs.bof then
response.write"<SCRIPT language=JavaScript>alert('您查询的信息不存在！');"
response.write"javascript:window.close();</SCRIPT>"
response.end
else
pname=rs("pname"
......

person表的pname与rcorder的rcid取值范围相同，我想由person表的pname导出与rcorder表rcid同值时所有rcid,lxr,tel,dz,bz ，幷显示出来。两表的关键字ID不同

[让你望见影子的墙]

select rcid,lxr,tel,dz,bz 
from person join rcorder on person.pname=rcorder.rcid

[-狙击手-]

select rcid,lxr,tel,dz,bz
from rcorder a
where exists(select 1 from person where pname = a.rcid and id <> a.id)