If
you have an upcoming event, please reserve your speaking engagement date
early! Send the details now or call 904-797-3718.
Please send me information about scheduling Helga
as an event speaker.
* Indicates required fields
<%
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")
strdate = Trim(Request.Form("txtdate"))
strtime = Trim(Request.Form("txttime"))
strcity = Trim(Request.Form("txtcity"))
strevent = Trim(Request.Form("txtevent"))
streventheldby = Trim(Request.Form("txteventheldby"))
strtopic = Trim(Request.Form("txttopic"))
strpreferredtopic = Trim(Request.Form("txtpreferredtopic"))
stremailto = Trim(Request.Form("txtemailto"))
strphone = Trim(Request.Form("txtphone"))
strname = Trim(Request.Form("txtname"))
strcomments = Trim(Request.Form("txtcomments"))
'strFromEmail = Trim(Request.Form("txtFromEmail"))
'strFax = Trim(Request.Form("FaxField"))
'strToEmail = Trim(Request.Form("txtToEmail"))
strSubject = "Please send me information about booking Helga as an event speaker. "
strBody = "Please send me information about booking Helga as an event speaker. ." & vbCrLf & vbCrLf & "Please let me know if this date is still available: " & strdate & vbCrLf & "Preferred starting time : " & strtime & vbCrLf & "City and state of the event: " & strcity & vbCrLf & "The event is : " & strevent & vbCrLf & "The event is being held by : " & streventheldby & vbCrLf & "Send me a list of the current anti-aging speaking topics : " & strtopic & vbCrLf & "My preferred topic is: " & strpreferredtopic & vbCrLf & "Please contact me via email at : " & stremailto & vbCrLf & "Or via phone at: " & strphone & vbCrLf & "My name is: " & strname & vbCrLf & "Additional comments: " & strcomments
' Quick validation just to make sure our parameters are somewhat valid
bValidInput = True
bValidInput = bValidInput And strdate <> ""
'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 = strname & " <" & strname & ">"
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!
%>
<%
Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody)
' I use script_name so users can rename this script witout having to change the code.
%>
<%
'
The Message to be sent:
'
Subject: < %= strSubject % >
'
Body: < %= strBody % >
End Sub
Sub ShowThanksMsg()
%>
<% Response.Redirect "done.htm" %>
<%
End Sub
%>
Quick Menu
Meet Helga Nehl, ND
Background
Credentials
Philosophy
Personal Commitment
Speaking Availability
The LifeStream Clinic
Mission
Seminars
Locations
Services
Programs & Treatments
What Patients Say
Quotes from Professionals
Products
Request a Catalog
Online Shopping
News
