Detoxshop.com.au  
Order Now
 

Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player

Bank Deposit

Please deposit the amount into the account below:


Detoxshop

BSB:       064110
Acc:        10255492

Commonwealth Bank

 

*Please put your name in the description section so that we know who to send your products to.

 

 

Please fill in the form below to send us your purchase details:

<% '---------------------------- FORM SETTINGS -------------------------------- ' Version 1.1 - 11 Dec 03 - Fixed Bug: Not ordering fields ' -------------------------------------------------------------------------- Dim WebSiteName, SendEmailTo, EmailSubject, EmailFromName, EmailFrom Dim sSubmitHTMLTable, sHTMLCell1, sHTMLCell2,sHTMLCell3,sHTMLEndTable SendEmailTo = "info@detoxshop.com.au" EMailSubject = "Detox Shop Bank Deposit submission" EMailFromName = "Detoxshop.com.au Site" EmailFrom = "noreply@detoxshop.com.au" ' Get web site name from header WebSiteName = Request.ServerVariables("HTTP_HOST") sSubmitHTMLTable = "" & _ "
" & _ "" & _ "" & chr(10) & chr(13) sHTMLCell1 = "" sHTMLEndTable = "
" & _ "submission details
" sHTMLCell2 = "" sHTMLCell3 = "
 
" Function MakeEmailHTML Dim Key, s,x s= sSubmitHTMLTable for x = 1 to Request.Form.count() Key = Request.Form.key(x) if (lcase(Key) <> "submit") and (lcase(Key) <> "sendemail") and (Request.Form.item(x) <> "") then s=s & sHTMLCell1 & Key & sHTMLCell2 & Request.Form.item(x) & sHTMLCell3 & chr(10) & chr(13) end if Next 's=s & sHTMLCell1 & "IP Address" & sHTMLCell2 & Request.ServerVariables("REMOTE_HOST") & sHTMLCell3 & chr(10) & chr(13) s=s & sHTMLEndTable MakeEmailHTML = s End Function '---------------------------- FORM SETTINGS -------------------------------- %> <% Sub SendEmail(strFromName,strFromEMail, strTo, strSubject, strBody) Set mailMessage = Server.CreateObject("Persits.MailSender") mailMessage.Host = "localhost" mailMessage.FromName = strFromName mailMessage.From = strFromEMail mailMessage.AddAddress strTo mailMessage.Subject = strSubject 'mailMessage.BodyFormat = System.Web.Mail.MailFormat.Text mailMessage.IsHTML = True mailMessage.Body = strBody 'System.Web.Mail.SmtpMail.SmtpServer = "localhost" mailMessage.Send set mailMessage = nothing End Sub %> <%if Request.Form("sendemail") = "" then%>
" method="post" name="myform" id="myform" onsubmit="return checkFields();">
Name: * required
Email: *
Phone:
Postal Address:
Suburb: *
Postcode: *
Country:
Amount to pay: please check the table above right for postage pricing.
Message:

Please contact me by:
<%else SendEmail Request.Form("name"), _ Request.Form("email"), _ SendEmailTo, _ EMailSubject, _ MakeEmailHTML %>

Thank you.
Your submission was successful.

Have you checked out our Frequently Asked Questions section yet?

<%end if%>
Patches  
30 Detox Patches $34.95
50 Detox Patches $46.95

100 Detox Patches

$82.90
VegEPA
1 Bottle VegEPA  $25.95
4 Bottles VegEPA

$91.80
8 Bottles VegEPA

$167.60
Vital Greens
Vital Greens Powder (120g) $29.95

Vital Greens Powder (300g)

 $69.95

Vital Greens Powder (400g)

 $ 89.95
Vital Greens Powder (1Kg) $179.95

 
basetop