Microsoft VBScript 编译器错误 错误 '800a03ee' 缺少 ')' /lyb/list1.asp，行 9

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from contents order by id desc"
rs.open sql,conn,1,1
do while not rs.eof

response.Write"<table><tr>"