请帮我看一这段代码

[jsj98301]

<%
Dim ToAddress
Dim CcAddress
Dim BccAddress
Dim Subject
Dim TextBody
Dim n
Dim vAttachmentList
Dim objCDOMessage


ToAddress= Request.Form("ToAddress")
CcAddress = Request.Form("Cc")
BccAddress = Request.Form("Bcc")
Subject = Request.Form("MainTitle")
TextBody=Request.Form("Content")
vAttachmentList=Request.Form("att")

Set objCDOMessage=CreateObject("CDO.Message")


Dim AttachmentList



objCDOMesage.To=ToAddress
objCDOMesage.From="[e-mail]"
objCDOMesage.Cc=CcAddress
objCDOMesage.Bcc=BccAddress
objCDOMesage.Subject=Subject
objCDOMesage.TextBody=TextBody
if vAttachmentList="" then
objCDOMesage.Send
else
objCDOMesage.Send
vAttachmentList=Split(AttachmentList,",")
For n=0 To UBound(vAttachemtList)
objCDOMesage.AddAttachment vAttachmentList(n)
Next
end if

%>

出现错误 ：
Microsoft VBScript 运行时错误 (0x800A01A8)
/email/P_SendMail.asp, 第 28 行

[lanying]

28行是那一行？你的web server,db server又是什么？不说清楚怎么回答？

[jsj98301]

这是exchange的发邮件
28：objCDOMesage.To=ToAddress

[jsj98301]

objCDOMesage.Send vbscript 运行出错。