<% 'OF THIS THIS A POSTBACK ... IE THEY HAVE CLICKED SUBMIT PROCESS THE FORM 'THIS IS WHAT CHECKS THAT IT IS A VALID REQUEST ... THE FORM TAG SENDS p=y 'IT ENCAPUSLATES THE WHOLE EMAIL SENDING ... IF IT DOESN"T APPEAR IT DOESN"T SEND if request("p") = "y" then if request("verify") = "thwmj" then 'Now email the Enquiry sHTML = "Enquiry From the Essentials4Business Website

" sHTML = sHTML & "------------------------------
" for i = 1 to request.Form.count - 1 sHTML = sHTML & request.Form.Key(i) & " : " & request.Form.Item(i) & "
" next sHTML = sHTML & "" on error resume next set iMsg = createobject("cdo.message") set iConf = createobject("cdo.configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mailout@essentials4business.com.au" 'THE USERNAME MAILSERVER THAT YOU ARE SENDING THROUGH .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "success09" 'THE PASSWORD OF THE USER .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.essentials4business.com.au" 'THE SERVER THAT YOU ARE USING TO SEND .Update if err.number <> 0 then response.Write err.Description response.End end if End With err.clear With iMsg Set .Configuration = iConf 'DEVELOPMENT .To = "support@essentials4business.com.au" .BCC = "nicola@webcoast.com.au" '<<>> 'YOU CAN SEND A BCC '.CC = request("email") 'YOU CAN SEND A CC to the person who filled in the form .From = request("email") .Subject = "Enquiry from the Essentials 4 Business Website" .HTMLBody = sHTML 'THIS IS THE ACTUAL MESSAGE .Send if err.number <> 0 then response.Write err.Description response.End end if End With on error goto 0 'IF YOU HAVE A THANKS PAGE GO TO IT HERE response.redirect "http://www.essentials4business.com.au/thanks.asp" end if if request("verify") <> "thwmj" then ErrorMessage = ErrorMessage & Server.URLEncode("You did not type in the verification info correctly.\n\n") response.redirect "http://www.essentials4business.com.au/verifyerror.asp" Response.End end if end if %>
Michalle Faulkner

Marketing Communication Executives



Award

CONTACT US

For more information about Essentials 4 Business and how we can tailor a human resource and recruitment solution for your business, please contact one of our professional consultants now to discuss your business. Our office is located on the Sunshine Coast, however we are a mobile human resources team and can flexibly arrange to meet you for consultations and follow up appointments to suit you. We currently service clients throughout Queensland — and we look forward to working with you too!

ENQUIRIES

Your name: 
Your email: 
Your preferred contact mode? (Choose one and provide details)
   Email
OR Phone
please provide most convenient number
Which area are you interested in?
   Industrial Relations
   Changes to Legislation
   Human Resources
   Recruitment
Comments / Queries / Feedback
In order for us to distinguish between individuals and software robots, please
enter the letters you see below before submitting the enquiry.

 

Our contact details are:

Postal: PO Box 3753, Caloundra, QLD 4551

Phone: (07) 5438 0797

Fax:      (07) 5491 9217

Email: support@essentials4business.com.au