格式书写错误，请人指教！ - 编程论坛

下面代码是邮件格式
但是  红色部门的标记  是数据库读取的内容是循环的
但是下述 html 格式书写不对请懂行的人指点修正谢谢！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
set rs2=server.createobject("adodb.recordset")
sql2="select * from dai_ban_shi_xiang where zhuang_tai like 'No'"
rs2.open sql2,Conn,1,1
if  rs2.eof then
response.write "<script>window.opener=null;window.close()</script>"
else
set rs1=server.createobject("adodb.recordset")
sql1="select * from yong_hu where gong_hao like '"&session("name")&"'"
rs1.open sql1,Conn,1,1

Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 1
objMail.MailFormat = 0
objMail.SetLocaleIDs(936)
objMail.Subject = "label系统提,当日工作状况!"
objMail.From = "label@
objMail.To = "songge@
objMail.cc = ""
'设定邮件类型.
objMail.MailFormat = cdoMailFormatMime
objMail.BodyFormat = cdoBodyFormatHTML
'定义HTML邮件主题
mybody= "<html>" & _
"<head> "& _
"<style type=""text/css"">" & _
"" & _
"</style>" & _
"</head>" & _
"<body>" & _
"<table width=""553"" border=""0"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#000000"">" & _
  "<tr>" & _
    "<td height=""30"" colspan=""7"" bgcolor=""#FFFFFF""><div align=""center"" class=""STYLE1"">待办事项</div></td>" & _
  "</tr>" & _
  "<tr>" & _
    "<td width=""61"" height=""30"" bgcolor=""#FFFFFF""><div align=""center"">排程日期</div></td>" & _
    "<td width=""49"" bgcolor=""#FFFFFF""><div align=""center"">工单</div></td>" & _
    "<td width=""75"" bgcolor=""#FFFFFF""><div align=""center"">批量</div></td>" & _
    "<td width=""83"" bgcolor=""#FFFFFF""><div align=""center"">机种</div></td>" & _
    "<td width=""59"" bgcolor=""#FFFFFF""><div align=""center"">成品料号</div></td>" & _
    "<td width=""140"" bgcolor=""#FFFFFF""><div align=""center"">原因</div></td>" & _
    "<td width=""78"" bgcolor=""#FFFFFF""><div align=""center"">站位负责人</div></td>" & _
  "</tr>" & _
"<%do while not rs2.eof%>" & _\\这里格式错了
  "<tr>" & _
    "<td height=""30"" bgcolor=""#FFFFFF""></td>" & _
    "<td bgcolor=""#FFFFFF""> </td>" & _
    "<td bgcolor=""#FFFFFF""> </td>" & _
    "<td bgcolor=""#FFFFFF""> </td>" & _
    "<td bgcolor=""#FFFFFF""> </td>" & _
    "<td bgcolor=""#FFFFFF""> </td>" & _
    "<td bgcolor=""#FFFFFF""> </td>" & _
  "</tr>" & _
"<%"rs2.movenext"%>" & _\\这里格式错了
"<%"loop"%>" & _\\这里格式错了
"</table>" & _
"</body>" & _
"</html>"
objMail.Body =mybody
objMail.Send
'response.write "<script>window.opener=null;window.close()</script>"
end if
%>