%
'**********************Mailing Code********************************
if Request.Form("TxtEmail") <> "" then
'Simple Mail Transfer Protocol (SMTP) Server Name
' Const SMTP_SERVER = "mail.cargomar.org"
dim strBody
strBody = "
"
strBody = strBody &"
Please find my resume attached for the post of "& Request.Form("TxtPost") & "
"& strBody &" "
'*************************CDONTS****************************************
'CREATE THE MAIL COMPONENT INSTANCE TO SEND THE MAIL.
Dim objSendMail
Set objSendMail=Server.CreateObject("CDONTS.NewMail")
objSendMail.To ="hogen@cargomar.org"
objSendMail.From =Request.Form("TxtEmail")'
objSendMail.Subject="Job application for the post of " & Request.Form("TxtPost")
objSendMail.Body =strMessage
objSendMail.MailFormat=0
objSendMail.BodyFormat=0
If Len(Request.Form("TxtResume")) Then
Attachment=Server.MapPath("Resumes\" & Request.Form("TxtResume"))
objSendMail.AttachFile Attachment
' objSendMail.AddAttachment Attachment
End If
objSendMail.Send
Set objSendMail=Nothing
'*************************CDONTS****************************************
'send_email "Job application for the post of " & Request.Form("TxtPost") ,"hogen@cargomar.org",strMessage
'*******************************************************
blnsent = true
end if
'*******************End of Mailing code****************************
%>