Microsoft VBScript 编译器异常 (0x800A0400) 缺少语句

Microsoft VBScript 编译器错误 (0x800A0400) 缺少语句
应该是拼接字符串的错误，可是不知道怎么写才能不报错 ，代码是这样的：

 <%
  rs.Open "select * from zu order by id asc",conn,1,1
if not rs.eof then
  do while not rs.EOF
response.Write "&nbsp;<a href='?zu="&rs("id")&"&typeid="&request.QueryString("typeid")&"time1='"&request.QueryString("time1")&"'"&"time2='"&request.QueryString("time2")&"'"




&"'>"&rs("name")&"</a>&nbsp;|"
rs.movenext
loop
end if
rs.close
%>


报的错误信息是 Microsoft VBScript 编译器错误 (0x800A0400) 缺少语句 直接指向response.write 那一行，看来是拼接的时候出错了，大家帮忙看看吧

[解决办法]
把语句里面的变量那些抽出来赋给变量吧。。这样看着太乱了。。通过变量在往语句里加。。
[解决办法]
分开出来写 是为了避免 太多的 "" 嵌套
[解决办法]