Would someone be kind enough to look at this mess and tell me what I am doing wrong?
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<INPUT type=file name=notify action="filetransfer.asp">
<INPUT id=submit type=submit value="Send to All" name="submit">
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'MyCDONTSMail.AttachFile'
/managementemail/filetransfer.asp, line 49
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set MyCDONTSMail = server.CreateObject("CDONTS.NewMail"
MyCDONTSMail.MailFormat = cdoMailFormatMIME
MyCDONTSMail.From = "someone@somewhere.com"
MyCDONTSMail.To= "everyone@somewhere.com" 'email
MyCDONTSMail.Subject= Request.Form("Subject"
MyCDONTSMail.BodyFormat = cdoBodyFormatHTML
MyBody = "To: " & rs("fname" & " " & rs("lname" & "<br><BR>"
MyBody = MyBody & "From: " & "Someone Else" & "<br><BR>"
MyBody = MyBody & body & "<br><BR>"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.AttachFile= request.form("filePath"
MyCDONTSMail.Send
set MyCDONTSMail=nothing
--only those that do not try, fail--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<INPUT type=file name=notify action="filetransfer.asp">
<INPUT id=submit type=submit value="Send to All" name="submit">
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'MyCDONTSMail.AttachFile'
/managementemail/filetransfer.asp, line 49
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set MyCDONTSMail = server.CreateObject("CDONTS.NewMail"
MyCDONTSMail.MailFormat = cdoMailFormatMIME
MyCDONTSMail.From = "someone@somewhere.com"
MyCDONTSMail.To= "everyone@somewhere.com" 'email
MyCDONTSMail.Subject= Request.Form("Subject"
MyCDONTSMail.BodyFormat = cdoBodyFormatHTML
MyBody = "To: " & rs("fname" & " " & rs("lname" & "<br><BR>"
MyBody = MyBody & "From: " & "Someone Else" & "<br><BR>"
MyBody = MyBody & body & "<br><BR>"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.AttachFile= request.form("filePath"
MyCDONTSMail.Send
set MyCDONTSMail=nothing
--only those that do not try, fail--