<% If Request.Cookies("hotlineID") = "" Then Response.Redirect "login.asp?msg=This is members area. Log in first." End If sEmail= Request.Cookies("hotlineID") If Request.Form("ACTION") = "Order" Then fEmpty=1 For i=1 to 7 If Request("Chavita_" & i)<>"" then fEmpty=0 End if Next For i=1 to 28 If Request("Emvita_" & i)<>"" then fEmpty=0 End if Next If Request("Geovita")<>"" or Request("Simvita")<>"" or Request("Paravita")<>"" or Request("Anxiovita")<>"" or Request("Neurovita")<>"" then fEmpty=0 End if If Request("ASF")<>"" or Request("CalMag1")<>"" or Request("CalMag2")<>"" or Request("CogniPlex")<>"" or Request("Cystinol")<>"" or Request("Flexizyme")<>"" or Request("Gastrowell")<>"" or Request("Glucolow")<>"" or Request("Immunoplex")<>"" or Request("Jaws")<>"" or Request("Ligagen")<>"" or Request("MenoPlex")<>"" or Request("MSMGLS")<>"" or Request("MultiSupreme")<>"" or Request("Npf")<>"" or Request("OsteoPause")<>"" or Request("Premensyn")<>"" or Request("ProstiPlex")<>"" or Request("SerraNatto")<>"" or Request("Type2")<>"" or Request("REBA")<>"" or Request("Rubimedbtk")<>"" or Request("RATK")<>"" or Request("RZTK")<>"" or Request("PSEMT")<>"" or Request("HPSE")<>"" or Request("GeoStress")<>"" Then fEmpty=0 End If if fEmpty=1 then response.redirect "orderingfinal.asp?Msg=Your order is empty. Please correct." end if sTotal = 0 SQLstr = "Select * From Users where email='"& sEmail& "' " Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open SQLstr, objConn, 1, 2 firstname=rs("firstname") lastname=rs("lastname") strMsg= strMsg & "Dear " & rs("firstname") & " " & rs("lastname") & "," & vbcrlf strMsg= strMsg & "Thank for your order. You will be contacted to confirm order & shipping details :" & vbcrlf & vbcrlf strMsg= strMsg & "Name : " & rs("firstname") & " " & rs("lastname") & vbcrlf strMsg= strMsg & "Email : " & rs("email") & vbcrlf strMsg= strMsg & "Address : " & rs("address" )& vbcrlf strMsg= strMsg & " " & rs("city") & vbcrlf strMsg= strMsg & " " & rs("province") & vbcrlf strMsg= strMsg & " " & rs("postalcode") & vbcrlf strMsg= strMsg & " " & rs("country") & vbcrlf & vbcrlf strMsg= strMsg & "Telephone :" & rs("telephone") & vbcrlf strMsg= strMsg & "Fax : " & rs("fax") & vbcrlf & vbcrlf strMsg=strMsg & "Order Details:" & vbcrlf & vbcrlf strMsg=strMsg & "Product Item Price Quantity Price" & vbcrlf strMsg=strMsg & "--------------------------------------------------" & vbcrlf For i=1 to 7 If Request("Chavita_" & i)<>"" then strMsg=strMsg & "Chavita " & i & Space(2-Len(i)) & " " & Request("ChavitaPrice_" & i) & " " & Request("Chavita_" & i) & " " & Request("Chavita_" & i)*Request("ChavitaPrice_" & i) & vbcrlf sTotal = sTotal + Request("Chavita_" & i)*Request("ChavitaPrice_" & i) End if Next For i=1 to 28 If Request("Emvita_" & i)<>"" then strMsg=strMsg & "Emvita " & i & Space(2-Len(i)) & " " & Request("EmvitaPrice_" & i) & " " & Request("Emvita_" & i) & " " & Request("Emvita_" & i)*Request("EmvitaPrice_" & i) & vbcrlf sTotal = sTotal + Request("Emvita_" & i)*Request("EmvitaPrice_" & i) End if Next If Request("Geovita")<>"" then strMsg=strMsg & "Geovita " & " " & Request("GeovitaPrice") & " " & Request("Geovita") & " " & Request("Geovita")*Request("GeovitaPrice") & vbcrlf sTotal = sTotal + Request("Geovita")*Request("GeovitaPrice") End if If Request("Simvita")<>"" then strMsg=strMsg & "Simvita " & " " & Request("SimvitaPrice") & " " & Request("Simvita") & " " & Request("Simvita")*Request("SimvitaPrice") & vbcrlf sTotal = sTotal + Request("Simvita")*Request("SimvitaPrice") End if If Request("Paravita")<>"" then strMsg=strMsg & "Paravita " & " " & Request("ParavitaPrice") & " " & Request("Paravita") & " " & Request("Paravita")*Request("ParavitaPrice") & vbcrlf sTotal = sTotal + Request("Paravita")*Request("ParavitaPrice") End if If Request("Anxiovita")<>"" then strMsg=strMsg & "Anxiovita" & " " & Request("AnxiovitaPrice") & " " & Request("Anxiovita") & " " & Request("Anxiovita")*Request("AnxiovitaPrice") & vbcrlf sTotal = sTotal + Request("Anxiovita")*Request("AnxiovitaPrice") End if If Request("Neurovita")<>"" then strMsg=strMsg & "Neurovita" & " " & Request("NeurovitaPrice") & " " & Request("Neurovita") & " " & Request("Neurovita")*Request("NeurovitaPrice") & vbcrlf sTotal = sTotal + Request("Neurovita")*Request("NeurovitaPrice") End if If Request("REBA")<>"" then strMsg=strMsg & "REBA Test Device" & " " & Request("REBAPrice") & " " & Request("REBA") & " " & Request("REBA")*Request("REBAPrice") & vbcrlf sTotal = sTotal + Request("REBA")*Request("REBAPrice") End if If Request("Rubimedbtk")<>"" then strMsg=strMsg & "Rubimed Basic Test Kit" & " " & Request("RubimedbtkPrice") & " " & Request("Rubimedbtk") & " " & Request("Rubimedbtk")*Request("RubimedbtkPrice") & vbcrlf sTotal = sTotal + Request("Rubimedbtk")*Request("RubimedbtkPrice") End if If Request("RATK")<>"" then strMsg=strMsg & "Rubimed Additional Test Kit" & " " & Request("RATKPrice") & " " & Request("RATK") & " " & Request("RATK")*Request("RATKPrice") & vbcrlf sTotal = sTotal + Request("RATK")*Request("RATKPrice") End if If Request("RZTK")<>"" then strMsg=strMsg & "Rubimed Zoological Test Kit" & " " & Request("RZTKPrice") & " " & Request("RZTK") & " " & Request("RZTK")*Request("RZTKPrice") & vbcrlf sTotal = sTotal + Request("RZTK")*Request("RZTKPrice") End if If Request("PSEMT")<>"" then strMsg=strMsg & "PSE Manual for Therapist by Dr. R. Banis" & " " & Request("PSEMTPrice") & " " & Request("PSEMT") & " " & Request("PSEMT")*Request("PSEMTPrice") & vbcrlf sTotal = sTotal + Request("PSEMT")*Request("PSEMTPrice") End if If Request("HPSE")<>"" then strMsg=strMsg & "Handbook of PSE by Dr. U. Banis" & " " & Request("HPSEPrice") & " " & Request("HPSE") & " " & Request("HPSE")*Request("HPSEPrice") & vbcrlf sTotal = sTotal + Request("HPSE")*Request("HPSEPrice") End if If Request("GeoStress")<>"" then strMsg=strMsg & "Geopathic Stress - And What You Can Do About It by Dr. U. Banis" & " " & Request("GeoStressPrice") & " " & Request("GeoStress") & " " & Request("GeoStress")*Request("GeoStressPrice") & vbcrlf sTotal = sTotal + Request("GeoStress")*Request("GeoStressPrice") End if If Request("ASF")<>"" then strMsg=strMsg & "ASF" & " " & Request("ASFPrice") & " " & Request("ASF") & " " & Request("ASF")*Request("ASFPrice") & vbcrlf sTotal = sTotal + Request("ASF")*Request("ASFPrice") End if If Request("CalMag1")<>"" then strMsg=strMsg & "CalMag1" & " " & Request("CalMag1Price") & " " & Request("CalMag1") & " " & Request("CalMag1")*Request("CalMag1Price") & vbcrlf sTotal = sTotal + Request("CalMag1")*Request("CalMag1Price") End if If Request("CalMag2")<>"" then strMsg=strMsg & "CalMag2" & " " & Request("CalMag2Price") & " " & Request("CalMag2") & " " & Request("CalMag2")*Request("CalMag2Price") & vbcrlf sTotal = sTotal + Request("CalMag2")*Request("CalMag2Price") End if If Request("CogniPlex")<>"" then strMsg=strMsg & "CogniPlex" & " " & Request("CogniPlexPrice") & " " & Request("CogniPlex") & " " & Request("CogniPlex")*Request("CogniPlexPrice") & vbcrlf sTotal = sTotal + Request("CogniPlex")*Request("CogniPlexPrice") End if If Request("Cystinol")<>"" then strMsg=strMsg & "Cystinol" & " " & Request("CystinolPrice") & " " & Request("Cystinol") & " " & Request("Cystinol")*Request("CystinolPrice") & vbcrlf sTotal = sTotal + Request("Cystinol")*Request("CystinolPrice") End if If Request("Flexizyme")<>"" then strMsg=strMsg & "Flexizyme" & " " & Request("FlexizymePrice") & " " & Request("Flexizyme") & " " & Request("Flexizyme")*Request("FlexizymePrice") & vbcrlf sTotal = sTotal + Request("Flexizyme")*Request("FlexizymePrice") End if If Request("Gastrowell")<>"" then strMsg=strMsg & "Gastrowell" & " " & Request("GastrowellPrice") & " " & Request("Gastrowell") & " " & Request("Gastrowell")*Request("GastrowellPrice") & vbcrlf sTotal = sTotal + Request("Gastrowell")*Request("GastrowellPrice") End if If Request("Glucolow")<>"" then strMsg=strMsg & "Glucolow" & " " & Request("GlucolowPrice") & " " & Request("Glucolow") & " " & Request("Glucolow")*Request("GlucolowPrice") & vbcrlf sTotal = sTotal + Request("Glucolow")*Request("GlucolowPrice") End if If Request("Immunoplex")<>"" then strMsg=strMsg & "Immunoplex" & " " & Request("ImmunoplexPrice") & " " & Request("Immunoplex") & " " & Request("Immunoplex")*Request("ImmunoplexPrice") & vbcrlf sTotal = sTotal + Request("Immunoplex")*Request("ImmunoplexPrice") End if If Request("Jaws")<>"" then strMsg=strMsg & "Jaws" & " " & Request("JawsPrice") & " " & Request("Jaws") & " " & Request("Jaws")*Request("JawsPrice") & vbcrlf sTotal = sTotal + Request("Jaws")*Request("JawsPrice") End if If Request("Ligagen")<>"" then strMsg=strMsg & "Ligagen" & " " & Request("LigagenPrice") & " " & Request("Ligagen") & " " & Request("Ligagen")*Request("LigagenPrice") & vbcrlf sTotal = sTotal + Request("Ligagen")*Request("LigagenPrice") End if If Request("MenoPlex")<>"" then strMsg=strMsg & "MenoPlex" & " " & Request("MenoPlexPrice") & " " & Request("MenoPlex") & " " & Request("MenoPlex")*Request("MenoPlexPrice") & vbcrlf sTotal = sTotal + Request("MenoPlex")*Request("MenoPlexPrice") End if If Request("MSMGLS")<>"" then strMsg=strMsg & "MSMGLS" & " " & Request("MSMGLSPrice") & " " & Request("MSMGLS") & " " & Request("MSMGLS")*Request("MSMGLSPrice") & vbcrlf sTotal = sTotal + Request("MSMGLS")*Request("MSMGLSPrice") End if If Request("MultiSupreme")<>"" then strMsg=strMsg & "MultiSupreme" & " " & Request("MultiSupremePrice") & " " & Request("MultiSupreme") & " " & Request("MultiSupreme")*Request("MultiSupremePrice") & vbcrlf sTotal = sTotal + Request("MultiSupreme")*Request("MultiSupremePrice") End if If Request("Npf")<>"" then strMsg=strMsg & "Npf" & " " & Request("NpfPrice") & " " & Request("Npf") & " " & Request("Npf")*Request("NpfPrice") & vbcrlf sTotal = sTotal + Request("Npf")*Request("NpfPrice") End if If Request("OsteoPause")<>"" then strMsg=strMsg & "OsteoPause" & " " & Request("OsteoPausePrice") & " " & Request("OsteoPause") & " " & Request("OsteoPause")*Request("OsteoPausePrice") & vbcrlf sTotal = sTotal + Request("OsteoPause")*Request("OsteoPausePrice") End if If Request("Premensyn")<>"" then strMsg=strMsg & "Premensyn" & " " & Request("PremensynPrice") & " " & Request("Premensyn") & " " & Request("Premensyn")*Request("PremensynPrice") & vbcrlf sTotal = sTotal + Request("Premensyn")*Request("PremensynPrice") End if If Request("ProBiotic")<>"" then strMsg=strMsg & "ProBiotic" & " " & Request("ProBioticPrice") & " " & Request("ProBiotic") & " " & Request("ProBiotic")*Request("ProBioticPrice") & vbcrlf sTotal = sTotal + Request("ProBiotic")*Request("ProBioticPrice") End if If Request("ProstiPlex")<>"" then strMsg=strMsg & "ProstiPlex" & " " & Request("ProstiPlexPrice") & " " & Request("ProstiPlex") & " " & Request("ProstiPlex")*Request("ProstiPlexPrice") & vbcrlf sTotal = sTotal + Request("ProstiPlex")*Request("ProstiPlexPrice") End if If Request("SerraNatto")<>"" then strMsg=strMsg & "SerraNatto" & " " & Request("SerraNattoPrice") & " " & Request("SerraNatto") & " " & Request("SerraNatto")*Request("SerraNattoPrice") & vbcrlf sTotal = sTotal + Request("SerraNatto")*Request("SerraNattoPrice") End if If Request("Type2")<>"" then strMsg=strMsg & "Type2" & " " & Request("Type2Price") & " " & Request("Type2") & " " & Request("Type2")*Request("Type2Price") & vbcrlf sTotal = sTotal + Request("Type2")*Request("Type2Price") End if strMsg=strMsg & "--------------------------------------------------" & vbcrlf strMsg=strMsg & " Total: " & sTotal & vbcrlf strMsg=strMsg & vbcrlf & vbcrlf strMsg=strMsg & "Best Regards, "& vbcrlf strMsg=strMsg & "Terra-Medica Customer Support" objMail.From = "order@terra-medica.com" objMail.Subject = "Your Order - Terra-Medica.com" objMail.To = sEmail & "; order@terra-medica.com" 'objMail.To = "ljubo@shaw.ca" objMail.TextBody = strMsg objMail.Send response.redirect "orderingfinal.asp?userid="&firstname & " " & lastname End If %> Terra Medica
Home REBA Test Device Products Ordering Seminars References Login
Description Price Quantity
     
Chavita 1 $
Chavita 2 $
Chavita 3 $
Chavita 4 $
Chavita 5 $
Chavita 6 $
Chavita 7 $
     
Emvita 1 $
Emvita 2 $
Emvita 3 $
Emvita 4 $
Emvita 5 $
Emvita 6 $
Emvita 7 $
Emvita 8 $
Emvita 9 $
Emvita 10 $
Emvita 11 $
Emvita 12 $
Emvita 13 $
Emvita 14 $
Emvita 15 $
Emvita 16 $
Emvita 17 $
Emvita 18 $
Emvita 19 $
Emvita 20 $
Emvita 21 $
Emvita 22 $
Emvita 23 $
Emvita 24 $
Emvita 25 $
Emvita 26 $
Emvita 27 $
Emvita 28 $
     
Geovita $
     
Simvita $
Paravita $
Anxiovita $
Neurovita $
     
REBA Test Device $
Rubimed Basic Test Kit $
Rubimed Additional Test Kit $
Rubimed Zoological Test Kit $
     
Psychosomatic Energetics Manual
for Therapist by Dr. R. Banis		 $
Handbook of Psychosomatic
Energetics by Dr. U. Banis		 $
Geopathic Stress - And What You
Can Do About It by Dr. U. Banis		 $
     
Supplements        
         
ASF™ (90 vegetarian caps) $
Cal-Mag 1:1 (120 veg caplets) $
Cal-Mag 2:1 (120 veg caplets) $
Cogniplex™ (120 vegetarian caps) $
Cystinol™ (90 vegetarian caps) $
Flexizyme™ (180 capsules) $
Gastrowell™ (60 vegetarian caps) $
Glucolow™ (60 vegetarian caps) $
Immunoplex™ (60 vegetarian caps) $
J.A.W.S.™ (120 vegetarian caps) $
Ligagen™ (120 capsules) $
Menoplex™ (90 vegetarian caps) $
MSM-GLS+™ (120 vegetarian caps) $
Multi Supreme™ (120 veg tablets) $
NPF™ (100 vegetarian caps) $
Osteopause™ (150 vegetarian caps) $
Premensyn™ (60 vegetarian caps) $
Probiotic 7-in-1™ (90 vegetarian caps) $
Prostiplex™ (60 vegetarian caps) $
SerraNatto™ (60 vegetarian caps) $
Type 2™ (100 vegetarian caps) $
         
   
 

Please note that we only sell to licensed practitioners. For more information, please contact Customer Service at 1-888-415-0535.

HOURS OF OPERATION

Office hours: 8:00 am to 5:00 pm (Pacific Time) Monday thru Friday (except holidays). Orders may be placed by fax or e-mail 24 hours a day, 7 days a week.

ORDERS AND DELIVERY

For orders under $85 a flat $5 handling fee will apply. Orders received before 11:00 am Pacific Time will be shipped the same day.

SHIPPING - Ground 3-5 business days

Orders under $200 · · · · · · · · · · · · · · · · · $9.50
Orders from $200 to $500 · · · · · · · · · · · · $13.50
Orders over $500 · · · · · · · · · · · · · · · · · · FREE

AIR SERVICE (2 days) - available on request

Please inquire for confirmation of rates. Terra-Medica reserves the right to adjust shipping charges.

RETURNS

All returns must be authorized by Terra-Medica prior to being returned. Upon authorization we will provide you with a Return Authorization Number, which must be written on the shipping box and any accompanying paperwork. Please notify our office within 48 hours of any discrepencies or damage to your order. Goods will be accepted for return up to 15 days after invoice date, subject to a 20% restocking fee. Products will only be received back in their original condition. Opened, damaged, expired or marked product will not be accepted for credit.

PAYMENT TERMS

1. Credit Card Terms using VISA or MASTERCARD.
2. Net 30 days - may be applied for after three months and is subject to approval, including providing
3 supplier references.
2. C.O.D - $15 service fee applies.
3. NSF cheques are subject to a $30 surcharge.

 

NOTE: Prices shown are in effect as of November 1st, 2007.

Home | Psychosomatic Energetics | Ordering | Seminars Registrations | Contact us | Login | New Member Registration
©2005 Terra Medica