LifeStream - Seminars

Seminars

Monthly Workshops for Professionals

Quantum Xxroid Consciousness Interface (QXCI) Training: one- and two-day workshops. (Attendees that want also to be tested during the workshop need to apply well in advance. Only a limited number of workshop participants will be accepted.)

Instructor: Robert Barner, DC

Darkfield Microscopy Analysis Workshop: one day

Instructor: Helga Nehl, ND

Light Photon Lymphatic Drainage Therapy Workshop: one day

Instructor: Helga Nehl, ND

Please use the email form below to request dates and fees.

Workshops: Last Saturday of Every Month

Dr. Robert Barner, DC, and Helga Nehl, ND, will conduct workshops and limited consultations the last Saturday of every month covering QXCI operations and evaluations with hands-on experience. The QXCI, the most advanced electrodermal screening device available at this time, can offer fast results for difficult cases. Learn quick Darkfield evaluations that can boost patient compliance. Help your patients make progress quickly and enthusiastically. Do you have patients suffering with edema, pain or inflammation? Many people are experiencing chronic tissue inflammation unknowingly. Researchers now know that most degenerative conditions begin as chronic inflammation. The Light Beam Generator will make a real difference for your patients. Learn about lymphatic function, its crucial role in immunity and elimination of toxins. You will hear about amazing case results, and experience the Light Beam Generator in action. You'll never ignore the lymphatic system again! Call 904-797-3718. Limited seating. Sign up early!

All workshops will be held at the Lifestream Anti-aging Clinic offices in Cartersville or Kingston, GA, nestled in the Appalachian foothills just 55 miles northwest of Atlanta and convenient to I-75, restaurants and lodging.

To arrange a workshop at your location, please contact us for details at 904-797-3718 or via email.

Yes, please let me know about the 2004 seminar series!

(Please note: You must enter the email address OR fax number and your name for error-free sending.)
<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strFax = Trim(Request.Form("FaxField")) 'strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "please send Seminar Series information" strBody = "Yes, please let me know about the 2003 Seminar Series!" & vbCrLf & vbCrLf & "From: " & strFromEmail & vbCrLf & "Fax: " & strFax & vbCrLf & "My Name is: " & strFromName ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" 'bValidInput = bValidInput And IsValidEmail(strFromEmail) 'bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = "customerservice@lifestreamsystems.com" objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "There's been an error. Please check your entries:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %>