格式书写错误，请人指教！
下面代码是 邮件格式但是 红色部门 的标记 是 数据库 读取的内容是循环 的
但是 下述 html 格式 书写不对 请懂行的人 指点修正 谢谢！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="../xx.asp" -->
<%
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"">" & _
"<!--" & _
".STYLE2 {color: #FF0000}" & _
"body,td,th {" & _
"font-size: 12px;" & _
"}" & _
"-->" & _
"</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
%>
