<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_OnelifeUK_STRING MM_editCmd.CommandText = "INSERT INTO users (firstname, lastname, email, hphone, mphone, add1, add2, add3, town, postcode, message1, message2, int1, int2, int3, int4, int5, int6, int7, int8, int9, int10, int11, int12, int13, int14, int15, int16, int17, int18, int19, int20, int21, int22, int23, int24, int25, int26, int27, int28, int29, int30) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("firstname")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("lastname")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, MM_IIF(Request.Form("hphone"), Request.Form("hphone"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 5, 1, -1, MM_IIF(Request.Form("mphone"), Request.Form("mphone"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("add1")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("add2")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, Request.Form("add3")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 255, Request.Form("town")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 255, Request.Form("postcode")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 203, 1, 1073741823, Request.Form("message1")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 203, 1, 1073741823, Request.Form("message2")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 5, 1, -1, MM_IIF(Request.Form("int1"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 5, 1, -1, MM_IIF(Request.Form("int2"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 5, 1, -1, MM_IIF(Request.Form("int3"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 5, 1, -1, MM_IIF(Request.Form("int4"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 5, 1, -1, MM_IIF(Request.Form("int5"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 5, 1, -1, MM_IIF(Request.Form("int6"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 5, 1, -1, MM_IIF(Request.Form("int7"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param20", 5, 1, -1, MM_IIF(Request.Form("int8"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param21", 5, 1, -1, MM_IIF(Request.Form("int9"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param22", 5, 1, -1, MM_IIF(Request.Form("int10"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param23", 5, 1, -1, MM_IIF(Request.Form("int11"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param24", 5, 1, -1, MM_IIF(Request.Form("int12"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param25", 5, 1, -1, MM_IIF(Request.Form("int13"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param26", 5, 1, -1, MM_IIF(Request.Form("int14"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param27", 5, 1, -1, MM_IIF(Request.Form("int15"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param28", 5, 1, -1, MM_IIF(Request.Form("int16"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param29", 5, 1, -1, MM_IIF(Request.Form("int17"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param30", 5, 1, -1, MM_IIF(Request.Form("int18"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param31", 5, 1, -1, MM_IIF(Request.Form("int19"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param32", 5, 1, -1, MM_IIF(Request.Form("int20"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param33", 5, 1, -1, MM_IIF(Request.Form("int21"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param34", 5, 1, -1, MM_IIF(Request.Form("int22"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param35", 5, 1, -1, MM_IIF(Request.Form("int23"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param36", 5, 1, -1, MM_IIF(Request.Form("int24"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param37", 5, 1, -1, MM_IIF(Request.Form("int25"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param38", 5, 1, -1, MM_IIF(Request.Form("int26"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param39", 5, 1, -1, MM_IIF(Request.Form("int27"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param40", 5, 1, -1, MM_IIF(Request.Form("int28"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param41", 5, 1, -1, MM_IIF(Request.Form("int29"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param42", 5, 1, -1, MM_IIF(Request.Form("int30"), 1, 0)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "thankyou.htm" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> One Body - One Mind - One Life
 

One Team
Contact Details
Virtual Trainer
Gift Voucher
Loyalty Scheme

Group Training
Personal Training
Nutrition
Posture
Mums

HEALTH & FITNESS
One to One
Sport Massage
Fitness Clinic
Running Clubs
Posture Clinics

SEMINARS
Stress
Healthy Living
Back Care

Kirsten's Blog

Hello,

We would be grateful if you would take a little time to fill in the questionnaire below to help us make the website as informative, fun and educational as possible but at the same time tailored to your needs and interests.

Thank you very much

First Name  
Last Name  
Email  
Phone Number  
Mobile  
Address  
   
   
Town  
Postcode  

 

Would you be interested in the following:

     

Diet tips

Healthy eating recipes

Tips to keep you motivated

Local events

New exercises

Exercises explained

Reading list

Water sports

Outdoor activities

Postural exercises

Injury prevention

Client achievements

Well being seminars

Website blog

Stress management

Functional training

Sports massage

Football training

News letter

Life coaching

News letter

Sports wear

De-tox

Triathlons and marathons

Pre and post natal exercise Health and fitness in the media
           
Any other info you may want to see on our website?
Any other message for us
 

 

 

 

 

 

 



 

One Life UK ltd | Registration number: 838 5758 74 | Telephone: 01753 624205 | Email: info@onelifeuk.com