为什么只识别半条语句：response.write "<%=rs('tname') 未结束的字串常量

<%
            <!--#include file="conn.asp"-->
            %>
            <%set rs=server.CreateObject("ADODB.RecordSet")
              session("user")="张三"
              sql="select * From [caiwu] in select * From [renshi] where tname="&session("user")&""
              rs.open sql,conn,2,3
              if rs.eof and rs.bof then
                 response.write "<tr><td height=25 colspan=9 align=center>没有相应数据！</td></tr>"
              else
                 if rs("position")<3 then
                     <!--#include file "appe.asp"-->
                     call abc(rs("department"))
                 end if
                 page=request("page")
                 if page="" then
                     if session("page")="" then
                          page=1
                     else
                          page=session("page")
                     end if
                 rs.PageSize=10
                 pages=rs.pagesize
                 rs.absolutepage=page
                 session("page")=page
                 do while not rs.eof and pages>0
                     response.write "<table>"
                      response.write "<tr height=35 align=center valign=middle>"
                     response.write "<td width=10% height=25>"
                     response.write "<%=rs('tname')%>"
                     response.write "</td>"
                     response.write "<td width=10%><%=rs('sex')%></td>"
                     response.write "<td width='10%'><%=rs('department')%></td>"
                     response.write "<td width='12%'><%=rs('gongzi')%></td>"
                     response.write "<td width='12%'><%=rs('jiangjin')%></td>"
                     response.write "<td width='12%'><%=rs('kouchu')%></td>"
                     response.write "<td width='14%'><%=rs('shouru')%></td>"
                     response.write "<td width='12%'><%=rs('yue')%></td>"
                     response.write "<td width='8%'>"
                     response.write "<a href=caiwuchange.asp?id='&rs("id")'&page='&page'>修改</a>"
                     response.write "</td></tr></table>"                  
                     pages=pages-1
                     rs.movenext
                 loop
              end if
            %>
错误类型：
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/comp/caiwu.asp, line 102, column 30
response.write "<%=rs('tname')
为什么会出现这种情况，我用记事本打开并保存为utf-8格式。请各位大虾赐教，不胜感激