The Training Room Academies
 |
The Training Room Academies
We currently have 29 Training Room Academies in the UK with new academies coming soon. But don't worry if we don't have an academy in your area, we can offer a residential option.
You'll be training with like minded people that share the same dedication and passion for health & fitness.
Belfast
Bournemouth
Birmingham
Brighton
Bristol
Cardiff
Central London
Chelmsford
Edinburgh
Fulham
Glasgow
Guildford
Hull
Hatfield
Leeds
Leicester
Lewisham
Manchester
Middlesborough
Newcastle
Nottingham
Oxford
Plymouth
Reading
Sheffield
Solihull South
Southampton
Warrington
West London
Why not find out more about our personal training courses to see whether they're right for you.
» www.thetrainingroom.com
|
|
 |
 |
<%
Dim id1 As Integer = 0
Dim zone1 As String = "C"
Dim type1 As String = ""
Dim override1 as Boolean = False
Dim sDIRNAME1 As String = ""
Dim sSearch1 As String = ""
Dim sKW1 As String = ""
Dim sExecPath1 As String = "/_scr/adserve.aspx?" & _
"id=" & id1 & "&" & _
"fid=26272&" & _
"zone=" & zone1 & "&" & _
"type=" & type1 & "&" & _
"override=" & override1 & "&" & _
"siteid=24&"
if len(request.form.tostring)>0 then
if not isnothing(request.form("directoryresultsearch")) then
if len(request.form("directoryresultsearch"))>0 then sSearch1=request.form("directoryresultsearch")
end if
if not isnothing(request.form("dirname")) then
if len(request.form("dirname"))>0 then sDIRNAME1=request.form("dirname")
end if
end if
if not isnothing(request("searchfor")) then sKW1=request("searchfor")
sExecPath1 &="kw=" & sKW1
if len(sDIRNAME1)>0 and len(sSearch1)>0 then
sExecPath1 &="&dn=" & sDIRNAME1 & "&" & _
"ph=" & sSearch1
end if
Server.Execute(sExecPath1)
%>
<%
Dim id2 As Integer = 0
Dim zone2 As String = "D"
Dim type2 As String = ""
Dim override2 as Boolean = False
Dim sDIRNAME2 As String = ""
Dim sSearch2 As String = ""
Dim sKW2 As String = ""
Dim sExecPath2 As String = "/_scr/adserve.aspx?" & _
"id=" & id2 & "&" & _
"fid=26272&" & _
"zone=" & zone2 & "&" & _
"type=" & type2 & "&" & _
"override=" & override2 & "&" & _
"siteid=24&"
if len(request.form.tostring)>0 then
if not isnothing(request.form("directoryresultsearch")) then
if len(request.form("directoryresultsearch"))>0 then sSearch2=request.form("directoryresultsearch")
end if
if not isnothing(request.form("dirname")) then
if len(request.form("dirname"))>0 then sDIRNAME2=request.form("dirname")
end if
end if
if not isnothing(request("searchfor")) then sKW2=request("searchfor")
sExecPath2 &="kw=" & sKW2
if len(sDIRNAME2)>0 and len(sSearch2)>0 then
sExecPath2 &="&dn=" & sDIRNAME2 & "&" & _
"ph=" & sSearch2
end if
Server.Execute(sExecPath2)
%>
