<% If NOT qArticles.BOF Then %><% If (Trim(Request.QueryString("Art_ID"))) <> "" AND (qArticles.Fields.Item("Art_HTMLTitle").Value) <> "" Then %> <%= Trim(qArticles.Fields.Item("Art_HTMLTitle").Value) %> <% Else %> <% If NOT qFrontPage.EOF Then Response.Write(qFrontPage.Fields.Item("FPStatic_BrowserTitle").Value) Else Response.Write("Salford Translations Limited") End If %><% End If %><% End If %>

<% ' >--- bodybag_r Section - START ---< ' >-------------------------------------------------------------------------------< %>

<% ' >--- Tophat Section - START ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- Tophat Section - END ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- Overcoat Section - START ---< ' >-------------------------------------------------------------------------------< %>

<% ' >--- Jumper Section - START ---< ' >-------------------------------------------------------------------------------< %>

<% ' >--- Left Section - START ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- Left Section - END ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- Right Section - START ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- Right Section - END ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- Centre Section - START ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- change this id to broadRightText for landing pages ---< ' >-------------------------------------------------------------------------------< %> <% If Session("strPageCols") = 2 Then %>

<% Else %>

<% End If %> <% ' >--- TOP Article ---< ' >-------------------------------------------------------------------------------< %> <% If NOT qArticles.BOF Then If (qArticles.Fields.Item("Art_FrontPageTop").Value <> "") Then %> <% If NOT Request.QueryString("FT_ID") <> "" Then ' Used in the Tools page %> <% If NOT UCASE(Session("varIsFP")) = "YES" Then ' Used in the Tools page %> <% While ((Repeat11__numRows <> 0) AND (NOT qHeader.EOF)) %>

"" Then %>class="<%= qHeader.Fields.Item("Offer_CSSclass").Value %>" <% End If %>>

<%=(qHeader.Fields.Item("Art_Title").Value)%>

<%=(qHeader.Fields.Item("Art_SubTitle").Value)%>

<% Dim qHeaderArt_Body %> <% If Trim(qHeader.Fields.Item("Art_FrontPageBody").Value) <> "" Then %> <% qHeaderArt_Body = Trim(qHeader.Fields.Item("Art_FrontPageBody").Value) %> <% Else %> <% qHeaderArt_Body = Trim(qHeader.Fields.Item("Art_Body").Value) %> <% End If ' end %> <% If InStr(qHeaderArt_Body, "

") > 0 Then %> <%=qHeaderArt_Body%> <% Else %>

<%=(Replace(qHeaderArt_Body, vbCrLf, "

"))%>

<% End If %>

<% Repeat11__index=Repeat11__index+1 Repeat11__numRows=Repeat11__numRows-1 qHeader.MoveNext() Wend %> <% End If ' end Session("strPageCols") = 1 %> <% End If ' If Request.QueryString("FT_ID") < 0 Then %> <% End If ' end Session("strPageCols") = 1 End If %> <% ' >--- MAIN Article ---< ' Used for front page atems as well ' >-------------------------------------------------------------------------------< %> <% 'If 1=1 Then %> <% While ((Repeat10__numRows <> 0) AND (NOT qArticles.EOF)) %> <% If qArticles.Fields.Item("Art_OfferID").Value <> "" Then %>

" > <% ElseIf qArticles.Fields.Item("Art_ListLinks").Value = true Then %>

<% Else %>

<% End If %>

<%=(qArticles.Fields.Item("Art_Title").Value)%>

<%=(qArticles.Fields.Item("Art_SubTitle").Value)%>

<% If UCASE(Session("varIsFP")) = "YES" AND Trim(qArticles.Fields.Item("Art_FrontPageBody").Value) <> "" Then %> <% If InStr(qArticles.Fields.Item("Art_FrontPageBody").Value, "

") > 0 Then %> <%=(qArticles.Fields.Item("Art_FrontPageBody").Value)%> <% Else %>

<%=(Replace(qArticles.Fields.Item("Art_FrontPageBody").Value, vbCrLf, "

"))%>

<% End If %> <% Else %> <% If InStr(qArticles.Fields.Item("Art_Body").Value, "

") > 0 Then %> <%=(qArticles.Fields.Item("Art_Body").Value)%> <% Else %>

<%=(Replace(qArticles.Fields.Item("Art_Body").Value, vbCrLf, "

"))%>

<% End If %> <% End If %>

<% Repeat10__index=Repeat10__index+1 Repeat10__numRows=Repeat10__numRows-1 qArticles.MoveNext() Wend qArticles.requery %> <%' End If %> <% ' >--- FromTo Translation Languages Article ---< ' Used for front page atems as well ' >-------------------------------------------------------------------------------< %> <% If Request.QueryString("FT_ID") > "0" Then %> <% While ((Repeat25__numRows <> 0) AND (NOT qFromTo.EOF)) %>

"" Then %>class="<%'= qFromTo.Fields.Item("Offer_CSSclass").Value %>" <%' End If %>>

<%=(qFromTo.Fields.Item("FT_Title").Value)%>

<%=(qFromTo.Fields.Item("FT_SubTitle").Value)%>

<% If Trim(qFromTo.Fields.Item("FT_FrontPageBody").Value) <> "" Then %> <% If InStr(qFromTo.Fields.Item("FT_FrontPageBody").Value, "

") > 0 Then %> <%=(qFromTo.Fields.Item("FT_FrontPageBody").Value)%> <% Else %>

<%=(Replace(qFromTo.Fields.Item("FT_FrontPageBody").Value, vbCrLf, "

"))%>

<% End If %> <% Else %> <% If InStr(qFromTo.Fields.Item("FT_Body").Value, "

") > 0 Then %> <%=(qFromTo.Fields.Item("FT_Body").Value)%> <% Else %>

<%=(Replace(qFromTo.Fields.Item("FT_Body").Value, vbCrLf, "

"))%>

<% End If %> <% End If %>

<% Repeat25__index=Repeat25__index+1 Repeat25__numRows=Repeat25__numRows-1 qFromTo.MoveNext() Wend %> <% End If %> <% ' >--- Put 'Related Articles Links here ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- BOTTOM Article ---< ' >-------------------------------------------------------------------------------< %> <% If NOT qArticles.BOF Then If (qArticles.Fields.Item("Art_FrontPageBottom").Value <> "") Then %> <% If NOT Request.QueryString("FT_ID") <> "" Then ' Used in the Tools page %> <% If NOT UCASE(Session("varIsFP")) = "YES" Then ' Used in the Tools page %> <% While ((Repeat12__numRows <> 0) AND (NOT qFooter.EOF)) %>

"" Then %>class="<%= qFooter.Fields.Item("Offer_CSSclass").Value %>" <% End If %>>

<%=(qFooter.Fields.Item("Art_Title").Value)%>

<%=(qFooter.Fields.Item("Art_SubTitle").Value)%>

<% Dim qFooterArt_Body %> <% If Trim(qFooter.Fields.Item("Art_FrontPageBody").Value) <> "" Then %> <% qFooterArt_Body = Trim(qFooter.Fields.Item("Art_FrontPageBody").Value) %> <% Else %> <% qFooterArt_Body = Trim(qFooter.Fields.Item("Art_Body").Value) %> <% End If ' end %> <% If InStr(qFooterArt_Body, "

") > 0 Then %> <%=qFooterArt_Body%> <% Else %>

<%=(Replace(qFooterArt_Body, vbCrLf, "

"))%>

<% End If %>

<% Repeat12__index=Repeat12__index+1 Repeat12__numRows=Repeat12__numRows-1 qFooter.MoveNext() Wend %> <% End If ' end Session("strPageCols") = 1 %> <% End If ' If Request.QueryString("FT_ID") < 0 Then %> <% End If ' end Session("strPageCols") = 1 End If %>

<% ' >--- Centre Section - END ---< ' >-------------------------------------------------------------------------------< %>

<% ' >--- Jumper Section - END ---< ' >-------------------------------------------------------------------------------< %>

<% ' >--- Overcoat Section - END ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- Shoes Section - START ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- Shoes Section - END ---< ' >-------------------------------------------------------------------------------< %>

<% ' >--- bodybag_r Section - END ---< ' >-------------------------------------------------------------------------------< %>

<% ' >--- bodybag Section - END ---< ' >-------------------------------------------------------------------------------< %>

<% ' >--- Google Analytics javascript ---< ' >-------------------------------------------------------------------------------< %> <% ' >--- Google Analytics javascript - END ---< ' >-------------------------------------------------------------------------------< %> <% qLangFromID.Close() Set qLangFromID = Nothing %> <% qAddressPanel.Close() Set qAddressPanel = Nothing %> <% qFromTo.Close() Set qFromTo = Nothing %> <% If NOT qArticles.BOF Then If (qArticles.Fields.Item("Art_FrontPageTop").Value <> "") Then %> <% qHeader.Close() Set qHeader = Nothing %> <% End If End If %> <% If NOT qArticles.BOF Then If (qArticles.Fields.Item("Art_FrontPageBottom").Value <> "") Then %> <% qFooter.Close() Set qFooter = Nothing %> <% End If End If %> <% qNews.Close() Set qNews = Nothing %> <% qArticles.Close() Set qArticles = Nothing %> <% qFrontPage.Close() Set qFrontPage = Nothing %>