发出去的邮件什么内容都没有，主题也没有
sub sendl()
dim topic
dim mailbody
dim email
sql1="select email from company order by id"
set rs1=server.createobject("adodb.recordset"
rs1.open sql1,conn,1,1
topic=request.form("topic"
mailbody=request.form("rem"
do while not rs1.eof
email=rs1("email"
call Cdonts(email)
rs1.movenext
loop
rs1.close
set rs1=nothing
response.write "&lt;&gt;发送成功，<a href=&#39;javascript:history.go(-1)&#39; target="_blank" >[ 返 回 ]</a>"
end sub
我监测这三个变量都有数据的，不知道怎么回事，发出去的邮件就是什么都没有


不从数据库里读地址，表单中提交的单封邮件发没问题