分页链接问题，急，请教高人！

我想把每页显示的修改链接上相应的网页，以下是代码

dim I
        I=page_size
        do while not rs.eof and I>0
            I=I-1
            
            response.Write"<tr bgcolor='#E6E6E6' align='center'>"
            'response.Write"<td>" & rs("name1") & "</td>"
            response.Write"<td>" & rs("name1") & "</td>"
            response.Write"<td>" & rs("phone") & "</td>"
            response.Write"<td>" & rs("addres") & "</td>"
            response.Write"<td>" & rs("email") & "</td>"
            response.Write"<td><a href="update_form.asp?mates_no=" & rs("mates_no") & "">修改</a></td>"
            '<a href="update_form.asp?mates_no=" & rs("mates_no") & "">修改</a>
            response.Write"<td>删除</td>"
            response.Write"</tr>"
            rs.MoveNext
            
        Loop
        response.Write"</table>"
        
        response.Write"<p>请选择数据页："
        
        for I=1 To page_total
            if I=page_no Then
            
            Response.Write I & "&nbsp"
            Else
            Response.Write"<a href='index1.asp?page_no=" & I & "'>" & I & "</a>&nbsp"
            end if
            Next
            end if
            rs.close
            set rs=nothing
            db.close
            set db=nothing
            
         %>

以下是出错的地方：
response.Write"<td><a href="update_form.asp?mates_no=" & rs("mates_no") & "">修改</a></td>"
以上代码不知道怎么错了。它报错是这样的``
Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/tongxuelu/index1.asp，行68

response.Write"<td><a href="update_form.asp?mates_no=" & rs("mates_no") & "">修改</a></td>"
--------------------------^
我就只想用response.write形式，不用<%=rs()%>形式。请大家帮忙！