怎么把网页中显示的东西导出到EXCEL中?


这是网页中显示的图片,其中有两个表ＫＨ＜客户表＞和ＫＨｒｅ＜客户跟进表＞,ASP的网页,做了一个按时间查询的网页,可以查询某一天的客户联系记录,现在想把查询到的联系记录给导出到表格当中,因为这个涉及到两个表,不会弄,望大神赐教.
附上从一个KH表中导出记录的代码:
<%  
 tj = session("tj") 
xz = session("xz")
dim s,sql,filename,fs,myfile,x  
 
Set fs = server.CreateObject("scripting.filesystemobject")  
'--假设你想让生成的EXCEL文件做如下的存放 
filemember="../xls/"&session("member")&"_客户.xls"filename = Server.MapPath(filemember)  
'--如果原来的EXCEL文件存在的话删除它  
if fs.FileExists(filename) then  
   fs.DeleteFile(filename)  
end  if  
'--创建EXCEL文件  
set myfile = fs.CreateTextFile(filename,true)  
 
Set rs = Server.CreateObject("ADODB.Recordset")  
'--从数据库中把你想放到EXCEL中的数据查出来  
strSql = "select Company as 银行名称,sheng as 省份,Cadd as 所属区域,Ctel as 前台,Cname as 联系人,CWWW as 银行网址,CAli as 个金部,Cemail as 邮箱,Cmob as 手机,Uptime as 最后一次跟进时间 from KH where MemberID="&session("MemberID")&" and "&xz&" like '%"&tj&"%'order by selectTT desc"
Set rstData =conn.execute(strSql)
if rstData.EOF and rstData.BOF then  
response.Write "<script language='JavaScript'>alert('没有客户资料!');" & "history.back()" & "</script>"
else 
    dim  trLine,responsestr  
    strLine=""  
   For each x in rstData.fields  
       strLine = strLine & x.name & chr(9) 
   Next  
        strLine=strLine & "是否合作" & chr(9)
 '--将表的列名先写入EXCEL  
   myfile.writeline strLine 
'用同样的方法将每条记录的所有值存入变量，再写入文件中：    Do while Not rstData.EOF  
        strLine=""  
 
        for each x in rstData.Fields  
            strLine = strLine & x.value & chr(9)
        next
        myfile.writeline strLine  
 
        rstData.MoveNext  
    loop
  '写入备注信息
   strLine="注意事项：客户资料录入时请尽量完整填写每一项并且避免使用空格以免数据导出时出现混乱,本次导出操作时间"&now()&"---LXiang & XieFuYong"
   myfile.writeline strLine
end if  
Response.Write  "已成功为您导出客户资料，点击下载 <a href="""&filemember&""" target=""_blank"">"&session("member")&"_客户.xls</a>"
rstData.Close  
set rstData = nothing
Conn.Close
Set Conn = nothing
%> 

现在的问题就是,上面的只是从KH这一个表中按需要导出几个字段,现在还要在加上一个KHre表中的Re字段,
其中ASP中的部分代码是:
<%
set rs=server.createobject("adodb.recordset")
sql="select * from KHre where del=0 and ReMemberID="&ID&" and Retime between #"&Startdate&"# and #"&Enddate&"# order by ReID desc"
%>
  <%
set rs1=server.createobject("adodb.recordset")
sql="select * from KHre where MemberID="&session("MemberID")&" and del=0 and ReID="&rs("ID")&""
rs1.open sql,conn,1,1
%>