<% DIM objCDOMail, strBody DIM recName, recSurname, recEmail DIM mailSubject, mailMessage DIM mailDate, mailTime DIM formName recName = "Nash" recSurname = "Singh" 'recEmail = "sosjhb@global.co.za" recEmail = "billydrummer@hotmail.com" mailSubject = "New Credit Application Form received" mailDate = Session("formDate") mailTime = Session("formTimeTwo") formName = Session("formName") strBody = "

" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & " " & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & "" & vbCrLf strBody = strBody & " Speedy Overborder Services (Pty) Limited To: " & recName & " " & recSurname & " Subject: New Credit Application Form received Date sent: " & mailDate & ".  " & mailTime & " " strBody = strBody & "A visitor to your website has completed the Credit Application Form and awaits your reply. " & vbCrLf strBody = strBody & "Please open the attached file, " & formName & vbCrLf strBody = strBody & " " & vbCrLf strBody = strBody & "

" & vbCrLf strBody = strBody & vbCrLf SET objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "info@bishopstrade.com" objCDOMail.To = recMail objCDOMail.Subject = mailSubject objCDOMail.Body = strBody objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Send Set objCDOMail = Nothing objCDOMail.AttachFile "../users/" & formName %>