HTML表格输出到WIN XP中为何不能正常显示。。。急！急！急 在线急等

[syzeeeeee]

我在ASP中查询生成一个报表，用以下语句输出到WORD中，在WIN98和WIN2000中都能正常显示，但在WIN XP操作系统中却是空文档，哪位大哥能帮帮我！！！！

------print_dw.asp----------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%response.buffer=true
Response.ContentType = "application/msword"
response.AddHeader "content-disposition", "inline; filename=report.doc"
%>
<!--#include file="../conn.asp"--> '定义连接对象及记录集对象
<!--#include file="../quanxian/user.asp"--> '检查用户权限
<%
set rs1=server.createobject("ADODB.RECORDSET")
set rs2=server.createobject("ADODB.RECORDSET")
%>

<%
'以下程序可以生成查询结果
bh=request.querystring("id")
nian=request.querystring("nian")
if rs.state=1 then rs.close
rs.open "select * from bmbh where 部门编号='"&bh&"'",conn,1,3
bmname=rs("部门名称")
cxstr="select * from xiangmunr where right(left(rtrim(项目号),6),2)='"&bh&"' and left(rtrim(项目号),4)='"&nian&"'ORDER BY 项目号"
if rs.state=1 then rs.close
rs.open cxstr,conn,1,3
xmnum=rs.recordcount
response.write("<center><font color=blue size=5>科研成果统计</font></center>")
response.write(bmname&"<font color=red > "&xmnum&" 项</font>")
response.write("<table border=1 align=center width=100% cellspacing=0 class='pt12'>")
response.write("<tr bgcolor='#cccccc' align=center><td>编号</td><td>项目名称</td><td>姓名</td><td>职称</td><td>项目形式</td><td>项目角色</td><td>千字数</td><td>发表时间</td><td>发表地点</td><td>备注</td></tr>")
do while not rs.eof '选择本单位的不同项目内容
bh=right(trim(rs("项目号")),4)
xmmc=trim(rs("项目名称"))
xmxs=trim(rs("项目形式"))
fbsj=trim(rs("发表时间"))
fbdd=trim(rs("发表地点"))
if rs1.state=1 then rs1.close
strsql="select * from canxiangry where 项目号='"&rs("项目号")&"'"
rs1.open strsql,conn,1,3
cxrs=rs1.recordcount
flag=1
do while not rs1.eof '选择本项目的不同参项人员
if rs2.state=1 then rs2.close
rs2.open "select 职称 from usertable where 教工编号='"&rs1("教工编号")&"'",conn,1,3
zc=rs2("职称")
rs2.close
if flag=1 then
response.write("<tr>")
response.write("<td>"&bh&"</td>")
response.write("<td>"&xmmc&"</td>")
response.write("<td>"&rs1("姓名")&"</td>")
if zc<>"" then
response.write("<td>"&zc&"</td>")
else
response.write("<td> </td>")
end if
response.write("<td>"&xmxs&"</td>")
response.write("<td>"&rs1("项目角色")&"</td>")
if trim(rs1("本人字数"))<>"" then
response.write("<td>"&rs1("本人字数")&"</td>")
else
response.write("<td> </td>")
end if
if fbsj<>"" then
response.write("<td>"&fbsj&"</td>")
else
response.write("<td> </td>")
end if
if fbdd<>"" then
response.write("<td>"&fbdd&"</td>")
else
response.write("<td> </td>")
end if
if rs1("备注")<>"" then
response.write("<td>"&rs1("备注")&"</td>")
else
response.write("<td> </td>")
end if
response.write("</tr>")
flag=0
else
response.write("<tr>")
response.write("<td> </td>")
response.write("<td> </td>")
response.write("<td>"&rs1("姓名")&"</td>")
if zc<>"" then
response.write("<td>"&zc&"</td>")
else
response.write("<td> </td>")
end if
response.write("<td> </td>")
if rs1("项目角色")<>"" then
response.write("<td>"&rs1("项目角色")&"</td>")
else
response.write("<td> </td>")
end if
if trim(rs1("本人字数"))<>"" then
response.write("<td>"&rs1("本人字数")&"</td>")
else
response.write("<td> </td>")
end if
response.write("<td> </td>")
response.write("<td> </td>")
if rs1("备注")<>"" then
response.write("<td>"&rs1("备注")&"</td>")
else
response.write("<td> </td>")
end if
response.write("</tr>")
end if
rs1.movenext
loop
rs.movenext
loop
response.write("</table>")
rs.close
rs1.close

%>