<% SUB sendMail( fromWho, toWho, Subject, Body ) DIM myMail SET myMail = Server.CreateObject("CDONTS.Newmail") myMail.From = fromWho myMail.To = toWho myMail.Subject = Subject myMail.Body = Body myMail.Send SET myMail = Nothing END SUB dim whichStep, infoSstring, mailBodyStr, userInfoStr, mailFrom, userDisplayStr If Request.Form("whichStep") <> "" Then whichStep = Request.Form("whichStep") Else whichStep = 1 End If If whichStep = 2 Then infoString = "" mailFrom = Request("eadd") mailBodyStr = "The following person has requested the Electronic Newsletter:" & VbCrLf & VbCrLf userInfoStr = "" userInfoStr = userInfoStr & Request("eadd") & VbCrLf userInfoStr = userInfoStr & "Educational classes for adults: " & Request("edu_adults") & VbCrLf userInfoStr = userInfoStr & "Events and Entertainment: " & Request("events") & VbCrLf userInfoStr = userInfoStr & "Childrens Events: " & Request("children") & VbCrLf userInfoStr = userInfoStr & "Utah Products: " & Request("products") & VbCrLf & VbCrLf userInfoStr = userInfoStr & Request("fme") & VbCrLf userInfoStr = userInfoStr & Request("lme") & VbCrLf userInfoStr = userInfoStr & Request("strt") & VbCrLf userInfoStr = userInfoStr & Request("dod") & ", " userInfoStr = userInfoStr & Request("gov") & " " userInfoStr = userInfoStr & Request("loc") & VbCrLf userInfoStr = userInfoStr & Request("call") & VbCrLf userInfoStr = userInfoStr & "Live in or near Utah: " & Request("live") & VbCrLf userInfoStr = userInfoStr & "Vacation planned for Utah: " & Request("plan") & VbCrLf userInfoStr = userInfoStr & "Number of children under 18: " & Request("kids") & VbCrLf userInfoStr = userInfoStr & "Interested in free vacation planning guide: " & Request("guide") & VbCrLf userInfoStr = userInfoStr & "Money spent on vacations: " & Request("money") & VbCrLf & VbCrLf mailBodyStr = mailBodyStr & userInfoStr sendMail mailFrom, "info@thanksgivingpoint.com", "Electronic Newsletter", mailBodyStr userDisplayStr = "" & "
" & "
" userDisplayStr = userDisplayStr & Request("fme") & " " & Request("lme") & "
" userDisplayStr = userDisplayStr & Request("strt") & "
" userDisplayStr = userDisplayStr & Request("dod") & ", " userDisplayStr = userDisplayStr & Request("gov") & " " userDisplayStr = userDisplayStr & Request("loc") & "
" Else infoString = "" End If %> Thanksgiving Point: Newsletter Sign up

Newsletter

Thanksgiving Point Gazette and email Newsletter...

<% If whichStep = 1 Then %>

Sign up for our electronic newsletter, emailed straight to your home or office. Designed to help plan vacations, retreats or quick visits to the Point, our newsletter will give you the low-down on all the happenings at Thanksgiving Point, including:

  • Educational classes in cooking, gardening, dinosaurs, more
  • Events and entertainment at the barn and amphitheater
  • Fun field trips and events for kids
  • Made in Utah products and more

To sign-up for our electronic newsletter and Gazette, submit the following form with your complete mailing address.


  ELECTRONIC NEWSLETTER    (All information is required)
  Email:   
  MAILING INFORMATION   (Must be 18 or older)
  First Name:   
  Last Name:   
  Address:   
  City:   
  State:      Zip:
  Home Phone:   
  Number of children (under 18):    0   1-3   4+

Note: Must be 18 or older.


<% Else %>
Thank You for your interest in our Newsletter!
<%=userDisplayStr%>

<% End If %>