这段代码错在哪?

<% 
strconn="driver={sql server};server=mthbw;"_ 
&"uid=sa;password='000';database=agency" 
set conn=server.CreateObject("adodb.connection") 
conn.open strconn 
set rs=server.CreateObject("adodb.recordset") 
sql1="select districtname,address,roomno,regperson,trade from property_tmp where status='有效'" 
rs.open sql1,conn,1,1 
set ra=server.createobject("adodb.recordset") 
sql2="select b.estatename from property_tmp a,estate b where a.estateid=b.estateid and a.status='有效'" 
ra.open sql2,conn,1,1 
%> <html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> 
<body> 
<table width="968" height="101" border="1" bordercolor="#CCFFFF" bgcolor="#FFFFFF"> 
   <tr> 
     <td align="center" height="15" > <font size="-1">城区 </font> </td> 
     <td align="center"> <font size="-1">楼盘 </font> </td> 
     <td align="center"> <font size="-1">栋座位置 </font> </td> 
     <td align="center"> <font size="-1">房号 </font> </td> 
     <td align="center"> <font size="-1">状态 </font> </td> 
     <td align="center"> <font size="-1">录入人 </font> </td> 
   </tr> 
<% 
while not rs.eof  
%>    <tr> 
     <td> <%=rs("districtname") %> </td> 
     <td> <%=ra("estatename") %> </td> 
     <td> <%=rs("address") %> </td> 
     <td> <%=rs("roomno") %> </td> 
     <td> <%=rs("trade") %> </td> 
     <td> <%=rs("regperson") %> </td> 
   </tr> 
<% 
wend 
rs.close 
set rs=nothing 
ra.close 
set ra=nothing 
%> 
</table> 
</body> 
</html>