% Dim Mailer Set Mailer = CreateObject("CDONTS.NewMail") 'create CDONTS mail object Mailer.From = "HoneysuckleInn.com" 'Mailer.To = "barbara@honeysuckleinn.com; chad@digitalmedium.net" Mailer.To = "chad@digitalmedium.net" Mailer.Subject = "VIP Guests" strMsgHeader = "" & vbCrLf & vbCrLf strMsgInfo = strMsgInfo & "Name: " & Request("Name") & vbCrLf strMsgInfo = strMsgInfo & "Email: " & Request("Email") & vbCrLf strMsgInfo = strMsgInfo & "Address: " & Request("Address") & vbCrLf strMsgInfo = strMsgInfo & "City: " & Request("City") & vbCrLf strMsgInfo = strMsgInfo & "State: " & Request("State") & vbCrLf strMsgInfo = strMsgInfo & "Zip: " & Request("Zip") & vbCrLf strMsgInfo = strMsgInfo & "Phone: " & Request("Phone") & vbCrLf & vbCrLf strMsgInfo = strMsgInfo & "Number of times stayed at Honeysuckle Inn: " & Request("NumberTimes") & vbCrLf strMsgInfo = strMsgInfo & "What season do you usually visit Branson: " & Request("Season") & vbCrLf strMsgInfo = strMsgInfo & "Family size: " & Request("FamilySize") & vbCrLf strMsgInfo = strMsgInfo & "Number of children under 12: " & Request("Children") & vbCrLf & vbCrLf 'strMsgInfo = strMsgInfo & "Referral1: " & Request("Referral1") & vbCrLf 'strMsgInfo = strMsgInfo & "Referral2: " & Request("Referral2") & vbCrLf 'strMsgInfo = strMsgInfo & "Referral3: " & Request("Referral3") & vbCrLf & vbCrLf strMsgFooter = vbCrLf & "" Mailer.Body = strMsgHeader & strMsgInfo & strMsgFooter Mailer.Send Set Mailer = nothing 'release mail object from memory %>
![]() |
![]() |
![]() |
![]() |