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

<%
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
%>

知道有服务器权限的"探针"在哪儿有？我得先试试看。谢了！

谢了！哪可完了！我的页上的这项东西用不成了。