<%@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 %> Accomplishing Wellness Ltd, Work and lifestyle wellness programmes, Duport, Buyagift.co.uk, Aurora, CV Travel
Home


Questionnaire

Please fill your details in below:

Mr/Mrs/Ms/Miss:

Name:

Surname:


Address:



Telephone Daytime:


Telephone Evening:


Email:


Date of Birth:


If you know of a friend and/or colleague that you feel would be interested in the Wellness Experiences, please complete their details here:

Mr/Mrs/Ms/Miss:

Name:

Surname:

Address:


Telephone Daytime:

Telephone Evening:

Email:

Date of Birth:


Age Group:

Social Life:

How many really good friends do you have?

How many of your friends you could call at 2am in the morning?

How would you describe your social life? (select from the menu)

How would you describe your usual disposition?

What do you feel is your average stress level?

Do you consider that you are a highly effective person?

If yes, why:

If no, why:

Do you consider yourself a creative person?

If yes, why and how:

If no, why:

Work-Life Balance

Exercise:

Do you feel your body moves well?
Yes
No

How often do you exercise?

What type of exercise do you do?

Diet:

How do you see your body (in terms of size- just
right, too thin, overweight)?

Does your weight and shape match your body ideal?

Yes
No

Do you consider your diet to be a healthy diet?

If yes, why?

If no, why?

Do you feel refreshed after a nights sleep - do you get
up raring to go?

Yes
No

Do holidays refresh you?

Yes
No

">

 


Who we are
What we do
Services
The Italian Experience
The French Experience
The Frangipan Therapy
Personal and Lifestyle Coaching
Spa Treatments
Links
Testimonials

Contact Us

Tel: 0844 826 82 88

Email:dawn@
accomplishingwellness.co.uk