<% Dim sSubmitted Dim sFormData Dim sConfirmationMessage sSubmitted = Request("sSubmitted") if sSubmitted = "1" then '' We want to loop through all the form elements and append them to an email sFormData = "The following contact information was submitted from your website" & vbnewLine & vbNewLine for each obj in request.form sFormData = sFormData & obj & ": " & Request(obj) & vbNewLine next Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = "localhost" Mailer.FromName = Request("FirstName") & " " & Request("LastName") Mailer.From = Request("Email") Mailer.AddAddress("suzanna@organisethat.com.au") 'Mailer.AddAddress "suzanna@organisethat.com.au" Mailer.Subject = "Website Contact from Organise That Site" Mailer.Body = sFormData ' catch errors On Error Resume Next Mailer.Send If Err <> 0 Then ' error occurred ' Response.Write "Mail send failure. Error was " & Err.Description else ' Response.Write "Mail sent..." sConfirmationMessage = "
Your contact info has been sent.
" End If end if %> Organise That

CONTACT US

E-mail: suzanna@organisethat.com.au
Mobile: 0413 844 901
Address: 46 Eastern ave,
Dover Heights NSW 2030
For a FREE Quote / Needs Assessment or further information please submit the form below or contact us on 0413 844 901. <%=sConfirmationMessage%>

Appointment Required I'm making an enquiry

Personal Details
First Name
Surname
Title
Mr Ms Miss Mrs
Email
Phone
Fax
Address
Suburb
State
Postcode
Country
Area of interest
General Comment
Referred From

Referral Name

Let Organise That use creative storage solutions to:

Help you sort clutter from items you actually need and use

Easily see and reach the items you have

Maximise your storage space

Utilise your space efficiently

We design and implement innovative solutions for you.

We offer our clients the convenience of purchasing storage products directly through our consultants.

© Organise That 2006