总是发送不成功，找不到原因，请帮忙看看啊同志们！谢谢！！
---------------------------------------------------------------------------------------

<%
Sub sendmail( fromWho, toWho, Subject, Body )
dim mymail
Set mymail = Server.CreateObject("CDONTS.Newmail")
mymail.From = fromWho
mymail.To = toWho
mymail.Subject = Subject
mymail.Body = Body
mymail.Send
Set mymail = Nothing
end Sub
fromWho = TRIM( Request.Form( "fromWho" ) )
toWho = TRIM( Request.Form( "toWho" ) )
Subject = TRIM( Request.Form( "Subject" ) )
Body = TRIM( Request.Form( "Body" ) )

if toWho <> "" then
sendMail fromWho, toWho, Subject, Body

end if
%>













<%
num=Trim(request("num"))
if num="" then
response.write "忘记选择文章标题？"
iterror=1 '这一句是什么意思？？？

end if

dim sql
dim rs
sql="select * from article where title like '%" & num & "%'"
Set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>

对方信箱地址：
我的信箱地址：
文章的标题：	" maxlength="100">
内 容：	<%content=replace(rs("content"),"<br>",chr(13))<br>response.write content%>

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

<%
if request("action") = "send" then
    frommail = Trim(Request.Form("frommail"))
    tomail = Trim(Request.Form("tomail"))
    if Trim(Request.Form("mailsubject"))<>"" then
        mailsubject = Trim(Request.Form("mailsubject"))
    else
        mailsubject = Trim(Request.Form("mailsubject1"))
    end if
    mailbody = Trim(Request.Form("mailbody"))
    
    if tomail<>"" then
        Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
        objCDOMail.From = frommail
        objCDOMail.To = tomail
        objCDOMail.Subject = mailsubject
        objCDOMail.Body = mailbody
        objCDOMail.Send
        Set objCDOMail = Nothing
    else
        Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
        objCDOMail.From = frommail
        sql="select mail from mail"
        set rs=conn.execute(sql)
        Response.Write("正在邮件群发.................." )
        do while not rs.eof
            objCDOMail.To = rs(0)
        RS.MoveNext
        Loop
        rs.close
        objCDOMail.Subject = mailsubject
        objCDOMail.Body = mailbody
        objCDOMail.Send
        Set objCDOMail = Nothing
    end if
    Response.Write ""
    Response.End
end if
%>
看看这个你就知道为什么了！