%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if (cStr(Request("Submit")) <> "") Then Dim objMail Set objMail = CreateObject("CDONTS.NewMail") strBody = "The following questionnaire info has been recorded:" & VbCrlf & VbCrlf strBody = strBody & "Title: " & Request.Form("Name2") & VbCrlf strBody = strBody & "Name: " & Request.Form("Name") & VbCrlf strBody = strBody & "Surname: " & Request.Form("Surname") & VbCrlf strBody = strBody & "Address: " & VbCrlf strBody = strBody & Request.Form("Address") & VbCrlf & VbCrlf strBody = strBody & "Telephone Daytime: " & Request.Form("Telephone") & VbCrlf & VbCrlf strBody = strBody & "Telephone Evening: " & Request.Form("Telephone2") & VbCrlf & VbCrlf strBody = strBody & "Email: " & Request.Form("Email") & VbCrlf & VbCrlf strBody = strBody & "Date of Birth: " & Request.Form("DOB") & VbCrlf & VbCrlf strBody = strBody & "Friend Title: " & Request.Form("MrsFriend") & VbCrlf & VbCrlf strBody = strBody & "Friend Name: " & Request.Form("NameFriend") & VbCrlf & VbCrlf strBody = strBody & "Friend Surname: " & Request.Form("SurnameFriend") & VbCrlf & VbCrlf strBody = strBody & "Address: " & Request.Form("FriendAddress") & VbCrlf & VbCrlf strBody = strBody & "Telephone: " & Request.Form("Friendtelephone") & VbCrlf & VbCrlf strBody = strBody & "Telephone Evening: " & Request.Form("Telephone2Friend") & VbCrlf & VbCrlf strBody = strBody & "Email: " & Request.Form("EmailFriend") & VbCrlf & VbCrlf strBody = strBody & "Date of Birth: " & Request.Form("DOBFriend") & VbCrlf & VbCrlf strBody = strBody & "Age Range: " & Request.Form("AgeGroup") & VbCrlf & VbCrlf strBody = strBody & "Good Friends: " & Request.Form("GoodFriends") & VbCrlf & VbCrlf strBody = strBody & "2am Friends: " & Request.Form("2amFriends") & VbCrlf & VbCrlf strBody = strBody & "Social Life: " & Request.Form("select") & VbCrlf & VbCrlf strBody = strBody & "Disposition: " & Request.Form("select2") & VbCrlf & VbCrlf strBody = strBody & "Stress Level: " & Request.Form("select3") & VbCrlf & VbCrlf strBody = strBody & "I do consider myself a highly effective person becasue: " & Request.Form("effectiveyes") & VbCrlf & VbCrlf strBody = strBody & "I do not consider myself a highly effective person becasue: " & Request.Form("effectiveno") & VbCrlf & VbCrlf strBody = strBody & "I am a creative person becasue: " & Request.Form("creativeyes") & VbCrlf & VbCrlf strBody = strBody & "I am not a creative person becasue: " & Request.Form("creativeno") & VbCrlf & VbCrlf strBody = strBody & "Work/Life balance: " & Request.Form("select4") & VbCrlf & VbCrlf strBody = strBody & "Does your body move well: " & Request.Form("BodyMoves") & VbCrlf & VbCrlf strBody = strBody & "I exercise: " & Request.Form("select5") & VbCrlf & VbCrlf strBody = strBody & "Type of exercise:" & Request.Form("select6") & VbCrlf & VbCrlf strBody = strBody & "I see my body as:" & Request.Form("bodysize") & VbCrlf & VbCrlf strBody = strBody & "Weight and shape match body ideal?:" & Request.Form("shape") & VbCrlf & VbCrlf strBody = strBody & "Happy with body weight and shape? " & Request.Form("shape") & VbCrlf & VbCrlf strBody = strBody & "My diet is healthy because: " & Request.Form("dietyes") & VbCrlf & VbCrlf strBody = strBody & "My diet is not healthy because: " & Request.Form("dietno") & VbCrlf & VbCrlf strBody = strBody & "Refreshed after a good nights sleep? " & Request.Form("sleep") & VbCrlf & VbCrlf strBody = strBody & "Refreshed after holiday? " & Request.Form("holidays") & VbCrlf & VbCrlf objMail.From = "web@accomplishingwellness.co.uk" objMail.To = "dawn@accomplishingwellness.co.uk" objMail.Subject = "Questionnaire Completed" objMail.Body = strBody On error resume next objMail.Send Set objMail = nothing Response.Redirect("thankyouq.asp" & Request.Form("hdnProduct")) End If %>
|
||
![]() |
||
Tel:
0844 826 82 88 Email:dawn@ accomplishingwellness.co.uk |
||
|
||