自动发送处理代码：
<%
Dim MailObject
Response.Write "正在发送邮件......<BR>"
Mailto = Request("Mailto")   
Mailfrom = Request("Mailfrom")
Mailsubject = Request("Mailsubject")
Mailbody = Request("Mailbody")
Mailfile = Request("Mailfile")

Set MailObject = Server.CreateObject("CDONTS.NewMail")
'收信人地址
MailObject.To = Mailto  
'发信人地址
MailObject.From = Mailfrom   
'信件标题
MailObject.Subject = Mailsubject   
'信件内容
MailObject.Body = Mailbody     
'附件地址
MailObject.AttachFile Mailfile
'开始发送邮件
MailObject.Send   
Set MailObject = Nothing
Response.Write "邮件发送成功了"
%>
运行的时候会报错，
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串，
即Set MailObject = Server.CreateObject("CDONTS.NewMail")这句有问题，
不知道如何修改才可以实现邮件的自动发送功能，
谢谢高手指点。
我所用的系统是XP的，
并且已经安装IIS（SMTP也安装了），