[求助]同时调用SQL两个数据表，显示在一个地方

<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pingfen where username='"& session("username")&"'",conn,1,3
on error resume next

%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="tab6" style="display: none">
<tr>
<td height="20" width="12%" align="center" bgcolor="eae7ea">打分员</td>
<td height="20" width="10%" align="center" bgcolor="eae7ea">源语言理解</td>
<td height="20" width="10%" align="center" bgcolor="eae7ea">语言组织</td>
<td height="20" width="10%" align="center" bgcolor="eae7ea">专业词汇</td>
<td height="20" width="10%" align="center" bgcolor="eae7ea">排版</td>
<td height="20" width="40%" align="center" bgcolor="eae7ea">简评</td>
<td height="20" width="8%" align="center" bgcolor="eae7ea">平均</td>
</tr>
<%
do while not rs.eof %>
<tr>
<td height="20" align="center">&nbsp;<%=rs("adminuser")%></td>
<td align="center">&nbsp;<%=rs("yuanyuyan")%></td>
<td align="center">&nbsp;<%=rs("yuyanzuzhi")%></td>
<td align="center">&nbsp;<%=rs("zhuanyecihui")%></td>
<td align="center">&nbsp;<%=rs("paiban")%></td>
<td align="center">&nbsp;<%=rs("jianping")%></td>
<td align="center" bgcolor="#CCCCCC">&nbsp;<%=rs("pingjun")%></td>
</tr>
<%
sum1=sum1+rs("yuanyuyan")
sum2=sum2+rs("yuyanzuzhi")
sum3=sum3+rs("zhuanyecihui")
sum4=sum4+rs("paiban")
sum5=sum5+rs("pingjun")
rs.movenext

loop
countpf=rs.recordcount
rs.close
set rs=nothing

%>
<tr>
<td height="20" align="center" bgcolor="#CCCCCC">&nbsp;平均</td>
<td align="center" bgcolor="#CCCCCC">&nbsp;<%=Cint(sum1/countpf)%></td>
<td align="center" bgcolor="#CCCCCC">&nbsp;<%=Cint(sum2/countpf)%></td>
<td align="center" bgcolor="#CCCCCC">&nbsp;<%=Cint(sum3/countpf)%></td>
<td align="center" bgcolor="#CCCCCC">&nbsp;<%=Cint(sum4/countpf)%></td>
<td align="center" bgcolor="#CCCCCC">&nbsp;</td>
<td align="center" bgcolor="#CCCCCC">&nbsp;<%=Cint(sum5/countpf)%></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!--积分-->
<!--end-->
<table width="100%" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF" bordercolorlight="#996699">
<tr onclick="s(tab5)">
<td width="97%" height="20" bgcolor="#FF0000"><span class="STYLE1"><a href="#" name="jifen"></a>■积分</span></td>
<td width="3%" bgcolor="#FF0000"><A href="#top">TOP</A></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF" bordercolorlight="#FF0000" id="tab5" style="display: none">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from jifen where username='"& session("username")&"'",conn,1,1
if rs.bof and rs.eof then
response.write "暂时没有"
end if



%>
<tr>
<td width="18%" align="center" bgcolor="#CCCCCC">时间</td>
<td width="15%" align="center" bgcolor="#CCCCCC">项目</td>
<td width="15%" align="center" bgcolor="#CCCCCC">客户</td>
<td width="12%" align="center" bgcolor="#CCCCCC">语言</td>
<td width="10%" align="center" bgcolor="#CCCCCC">类型</td>
<td width="10%" align="center" bgcolor="#CCCCCC">专业</td>
<td width="5%" align="center" bgcolor="#CCCCCC">数量</td>
<td width="5%" align="center" bgcolor="#CCCCCC">金额</td>
<td width="5%" align="center" bgcolor="#CCCCCC">评分</td>
<td width="5%" align="center" bgcolor="#CCCCCC">积分</td>
</tr>
<%
num=0
do while not rs.eof%>
<tr>
<td align="center"><%=rs("date1")%>→<%=rs("date2")%></td>
<td align="center"><%=rs("xiangmu")%></td>
<td align="center"><%=rs("kehu")%></td>
<td align="center"><%=rs("yuan")%>→<%=rs("mubiao")%></td>
<td align="center"><%=rs("leixing")%></td>
<td align="center"><%=rs("zhuanye")%></td>
<td align="center"><%=rs("shuliang")%></td>
<td align="center"><%=rs("money")%></td>
<td align="center"><%=rs("pingfen")%></td>
<td align="center"><%=rs("suohuojifen")%></td>
</tr>
<%

rs.movenext
loop

rs.close
set rs=nothing

%>
</table></td>
</tr>
</table>

</td>
</tr>
</table></td>
</tr>
</table>