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

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 " <a href='?zu="&rs("id")&"&typeid="&request.QueryString("typeid")&"time1='"&request.QueryString("time1")&"'"&"time2='"&request.QueryString("time2")&"'"

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

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

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

探讨
可以了，太感谢了，我想知道我写的为什么会报错，原来的代码是这样

<%
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")&"&am……