为什么我的ASP程序发邮件发不出去？(50分)

<%
dim rs,conn,item,conn1,rs1,send_email,shou,subject,body,att_file,fname,usemail,Mailobject
send_email=trim(request("shou"))
SHOU=trim(request("SHOU")) '取得在程序四选择和输入的内容
subject=trim(request("subject"))
body=trim(request("body"))
att_file=trim(request("attfile"))
fname=trim(request("fname"))
usemail=trim(request("usemail"))
set MailObject=server.createObject("CDONTS.NewMail")
if att_file="" then
'附件为空
'mailobject.send usemail,send_email,subject,body
MailObject.from=usemail
MailObject.to=send_email
Mailobject.subject=subject
Mailobject.body=body
mailObject.send
response.write("无附件WEB邮件发送成功！")
end if%>
当运行后出错，出错信息为：
错误 '80070003'
系统找不到指定的路径。

关注，
因为最近在看asp。

Function SendMail(mailto,name,subject,message,att_file)
Response.Expires=0
Set MailToSend = CreateObject("CDONTS.Newmail")'initialize the variable
MailToSend.
TO = mailto 'Mail to....
mailtosend.
MailFormat=1
mailtosend.
BodyFormat=1
MailToSend.
From = name ' 'Mail from
MailToSend.
Subject = subject ' subject
MailToSend.
Body = message ' message to send
MailToSend.
Importance=1 ' priority of this message
MailToSend.
AttachFile att_file
MailToSend.
send ' send
Set MailToSend=nothing
End Function
===》附件的实际文件一定要位于服务器上，如果客户端通过<input type="file">选择文件以后
att_file得到文件路径以及文件名，那么，在服务器上，同样的路径也得有这个文件，发送才能够
成功。通常是将客户端的文件上传到一个临时目录，发送时的att_file指的实际就是这个路径
这样就没问题了，发送完成后将临时目录清空。

主机上没有安装邮件服务，所以CDONTS对象创建失败。

[blue]就是,服务器没有安装邮件服务，所以CDONTS对象无法创建！[/blue]

http://stef.533.net/54
这里有我写的一个ASP邮件炸弹，你可以下载看看

<%
dim rs,conn,item,conn1,rs1,send_email,shou,subject,body,att_file,fname,usemail,Mailobject
send_email=trim(request("shou"))
SHOU=trim(request("SHOU")) '取得在程序四选择和输入的内容
subject=trim(request("subject"))
body=trim(request("body"))
att_file=trim(request("attfile"))
fname=trim(request("fname"))
usemail=trim(request("usemail"))
set MailObject=server.createObject("CDONTS.NewMail")
if att_file="" then
'附件为空　　　　　　　　　
'mailobject.send usemail,send_email,subject,body
MailObject.from=usemail
MailObject.to=send_email
Mailobject.subject=subject
Mailobject.body=body
mailObject.send
response.write("无附件WEB邮件发送成功！")
end if%>
如果在WIN98下，是没有CDONTS这个组件。而且这个组件不支持ESMTP协议。
以下是我很久之前在CSDN回复的答案，是循环发邮件的（上面的邮箱已经被取消），看看。
<%
RS=9
do while RS>1
SET OBJMSG=SERVER.CREATEOBJECT("CDONTS.NEWMAIL")
OBJMSG.From="shadow@iloveu.com.cn"
OBJMSG.TO="shadow@iloveu.com.cn"
OBJMSG.BODY="发送的内容"
OBJMSG.SEND
RS=RS-1
SET OBJMSG=NOTHING
loop
%>