Join our EMail List
Feel free to fill out the information below if you'd like to be notified of upcoming retreats,
workshops or other events. You may also request a brochure be sent to you in the mail.
<% Response.Buffer = True Server.Scripttimeout = 30 err.clear on error resume next 'Page Routine Variables lf = Chr(13) & Chr(10) 'Data Defaults & Form Field Variables formName = trim(Request.Form("formName")) formAddress = trim(Request.Form("formAddress")) formPhone = trim(Request.Form("formPhone")) formEMail_Address = trim(Request.Form("formEMail_Address")) formHow = trim(Request.Form("formHow")) formComments = trim(Request.Form("formComments")) 'Form Actions if Request.QueryString("Action") = "Validate" then msg = "" mbFields = "" mbList = "" If trim(formName) = "" then mbFields = mbFields & " Name," mbList = mbList & "formName," end if If trim(formAddress) = "" then mbFields = mbFields & " Address," mbList = mbList & "formAddress," end if If trim(formPhone) = "" then mbFields = mbFields & " Phone," mbList = mbList & "formPhone," end if If trim(formEMail_Address) = "" then mbFields = mbFields & " EMail Address," mbList = mbList & "formEMail_Address," end if If trim(formHow) = "" then mbFields = mbFields & " How," mbList = mbList & "formHow," end if If trim(formComments) = "" then mbFields = mbFields & " Comments," mbList = mbList & "formComments," end if If trim(mbFields) = "" then 'Form validations has cleared. 'prepare the email bodyMessage = "Ashlie, Erin and Cindy, " & lf & lf bodyMessage = bodyMessage & "The information below was just entered online: " & lf & lf bodyMessage = bodyMessage & "Name: " & formName & lf bodyMessage = bodyMessage & "Address: " & formAddress & lf bodyMessage = bodyMessage & "Phone: " & formPhone & lf bodyMessage = bodyMessage & "EMail Address: " & formEMail_Address & lf bodyMessage = bodyMessage & "How: " & formHow & lf bodyMessage = bodyMessage & "Comments: " & formComments & lf bodyMessage = bodyMessage & lf & "Sincerely," & lf bodyMessage = bodyMessage & "Cindy @ ArtemisStudios.com" & lf & lf Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = "cindy@artemisstudios.com" Mailer.To = "info@crearteretreat.com" Mailer.Subject = "New E-mail List Joinee" Mailer.Body = bodyMessage Mailer.Send if err.number = 0 then page = "http://www.crearteretreat.com/thankyou.htm" Response.Redirect(page) else msg = "There has been a serious error. Please contact our administration offices at info@artemisstudios.com." end if else 'the user did not pass validations. mbMyTemp = trim(msg) x = len(mbFields) temp = Left(mbFields, (x-1)) mbFields = temp & "." msg = "Please review the following fields: "& mbFields end if end if %>

Name:
<% If InStr(mbList, "formName") > 0 Then Response.Write ">>" end if %>
Address:
<% If InStr(mbList, "formAddress") > 0 Then Response.Write ">>" end if %>
Phone Number:
<% If InStr(mbList, "formPhone") > 0 Then Response.Write ">>" end if %>
E-mail Address:
<% If InStr(mbList, "formEMail_Address") > 0 Then Response.Write ">>" end if %>
How Did You Find Us?:
<% If InStr(mbList, "formHow") > 0 Then Response.Write ">>" end if %>
Questions/Comments:
<% If InStr(mbList, "formComments") > 0 Then Response.Write ">>" end if %>


<%=msg%>

Samara Beach
Pacific Coast, Costa Rica

Web Site Design by Artemis Studios www.artemisstudios.com