De Nieuwe Bewustzijnsverzorgers

DE NIEUWE BEWUSTZIJNS VERZORGERS
7 STAPPEN NAAR EEN GEZOND EN GELUKKIG LEVEN IN DE 21E EEUW

De toekomst is een ontdekkingsreis. Laten wij samen zonder oordeel op verkenning uitgaan.

<% dim aktie,Aanhef,Naam,Adres,Huisnummer,Postcode,Plaats,Email,Telefoon,Opmerking,Keuze,Voorletters dim foutAanhef,foutNaam,foutAdres,foutHuisnummer,foutPostcode,foutPlaats,foutEmail,foutvoorlettersfoutTelefoon,foutOpmerking,foutKeuze dim foutalles aktie=request("aktie") if aktie="wissen"then aktie="" Aanhef=request("Aanhef") Naam=request("Naam") Adres=request("Adres") Postcode=request("Postcode") Plaats=request("Plaats") Email=request("Email") Telefoon=request("Telefoon") Keuze=request("keuze") Opmerking=request("Opmerking") if aktie="" then Aanhef="" Voorletters="" Naam="" Adres="" Huisnummer="" Postcode="" Plaats="" Email="" Telefoon="" Keuze="" Opmerking="" elseif aktie<>"" then if Naam="" then foutNaam=" SVP naam invullen" if Adres="" then foutAdres=" SVP adres invullen" if Postcode="" then foutPostcode=" SVP postcode invullen" if Plaats="" then foutPlaats=" Woonplaats incorrect" if Telefoon="" then foutTelefoon=" SVP telefoon invullen" if keuze="" then foutkeuze=" SVP verpakkingseenheid invullen" if Email = "" or instr(1,EMail, "@") =0 or instr(1, EMail, ".") =0 then foutemail="E-mail niet correct" end if foutalles=foutvoorletters&foutAanhef&foutNaam&foutEmail&foutAdres&foutHuisnummer&foutPostcode&foutWoonplaats&foutTelefoon&foutOpmerking else end if if foutalles="" and aktie<>"" then Dim MyBody0, MyBody1, MyBody2 '----gegevens klant MyBody0 = MyBody0 & "Naam ..........: " & Aanhef & ". " & Voorletters & " "& Naam& vbCrLf MyBody0 = MyBody0 & "Adres .........: " & Adres& " "& Huisnummer & vbCrLf MyBody0 = MyBody0 & "...............: " & Postcode & " " & Plaats & vbCrLf MyBody0 = MyBody0 & "Telefoon ......: " & Telefoon & vbCrLf MyBody0 = MyBody0 & "Email .........: " & Email & vbCrLf if keuze<>"" then MyBody0 = MyBody0 & "Keuze..........: " & Keuze & vbCrLf MyBody0 = MyBody0 & "Opmerkingen....: " & Opmerking & vbCrLf '---- mail naar klant MyBody1 = "U bestelde Chlorella:" & vbCrLf MyBody="" MyBody1 = MyBody1 & MyBody0 & vbCrLf & vbCrLf 'MyBody1 = MyBody1 & "Wij nemen spoedig contact met u op." & vbCrLf 'MyBody1 = MyBody1 & "www.chlorella-alg.com" & vbCrLf '---- mail naar praktijk MyBody2 = "Er is een bestelling geplaatst:" & vbCrLf & vbCrLf Mybody2 = MyBody2 & MyBody0 '----verzenden Dim MyCDONTSMail '---- mail naar klant on error resume next Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= "eenheid@wegaannaarhuis.nl" MyCDONTSMail.To= Email MyCDONTSMail.Subject="Bestelling Chlorella" MyCDONTSMail.Body= MyBody1 MyCDONTSMail.Send set MyCDONTSMail=nothing '---- mail naar praktijk Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= Email MyCDONTSMail.Subject="Bestelling Chlorella" MyCDONTSMail.To="ugamedia@wirehub.nl" MyCDONTSMail.bcc="eenheid@wegaannaarhuis.nl" 'tijdelijke controle MyCDONTSMail.Body= MyBody2 MyCDONTSMail.Send set MyCDONTSMail=nothing %>

Dank u!

Uw bericht is succesvol verzonden aan Chlorella-alg.com.
Wij nemen spoedig contact op met u.

Hieronder ziet u de verstuurde gegevens.

<%=MyBody1%>

<% else %>

Bestelformulier Chlorella Alg

Japan chlorella (Chlorella Pyrenoidosa)	tabletten van 250 mg
Korea chlorella (Chlorella Vulgaris)	pure poeder in zakje

Standaard verpakkingen
Zakje met 100 gram puur Chlorella poeder : 10 euro
Zakje met 200 tabletten van 250mg : 10 euro

Bulk verpakkingen
Zak met 1000 gram puur Chlorella poeder : 75 euro
Zak met 2000 tabletten van 250mg : 75 euro

<%=foutkeuze%>

Alle genoemde prijzen zijn incl 6% btw en verzendkosten. Tabletten zijn gemaakt
van pure Chlorella poeder zonder bindmiddelen en toevoegingen. Chlorella poeder
en tabletten zijn minimaal 2 jaar houdbaar.

Uw bestelling wordt verzorgt door http://chlorella-alg.com
UGA Food
Postbus 881
3700 AW Zeist

Naam		<%=foutnaam%>
Adres		<%=foutadres%>
Postcode		<%=foutpostcode%>
Plaats		<%=foutplaats%>
Telefoon		<%=fouttelefoon%>
Email adres		<%=foutemail%>

Eventuele opmerkingen