<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID="2057"%> <% Option Explicit %> <% Dim qLangFromID__AID, LangField, LangTable, LangID qLangFromID__AID = "0" LangField = "Art_Lang" LangTable = "Articles" LangID = "Art_ID" If (Request.QueryString("Art_ID") <> "") Then qLangFromID__AID = Request.QueryString("Art_ID") ElseIf (Request.QueryString("FT_ID") <> "") Then qLangFromID__AID = Request.QueryString("FT_ID") LangField = "FT_Lang" LangTable = "FromTo" LangID = "FT_ID" End If %> <% Dim qLangFromID Dim qLangFromID_numRows Set qLangFromID = Server.CreateObject("ADODB.Recordset") qLangFromID.ActiveConnection = MM_salftrans_local_conn_STRING qLangFromID.Source = "SELECT " + LangField + " FROM " + LangTable + " WHERE " + LangID + " = " + Replace(qLangFromID__AID, "'", "''") + "" qLangFromID.CursorType = 0 qLangFromID.CursorLocation = 2 qLangFromID.LockType = 1 qLangFromID.Open() qLangFromID_numRows = 0 %> <% If Request.Form("ChangeLang").count <> 0 Then session("CurrentLanguage") = Request.Form("ChangeLang") ElseIf Request.Querystring("ChangeLang").count <> 0 Then session("CurrentLanguage") = Request.Querystring("ChangeLang") End If %> <% If NOT qLangFromID.EOF Then Session("CurrentLanguage") = (qLangFromID.Fields.Item(LangField).Value) End If %> <% Dim strPageCols Session("strPageCols") = 2 If (request.QueryString("strPageCols") <> "") Then Session("strPageCols") = request.QueryString("strPageCols") End If Dim varIsLP Session("varIsLP") = "no" If (request.QueryString("varIsLP") <> "") Then Session("varIsLP") = request.QueryString("varIsLP") End If Dim varIsFP Session("varIsFP") = "NO" If ((request.QueryString("Art_ID") = "0") _ OR Request.Querystring("Art_ID").count = 0) _ AND Request.Querystring("FT_ID").count = 0 Then Session("varIsFP") = "YES" End If %> <% ' >--- MAIN Articles ---< ' >-------------------------------------------------------------------------------< %> <% Dim Repeat10__numRows Dim Repeat10__index Repeat10__numRows = -1 Repeat10__index = 0 qArticles_numRows = qArticles_numRows + Repeat10__numRows %> <% Dim qArticles__MapPath qArticles__MapPath = "0" If (Request.QueryString("MP") <> "") Then qArticles__MapPath = Request.QueryString("MP") End If %> <% Dim qArticles__Art_ID qArticles__Art_ID = "0" If (Request.QueryString("Art_ID") <> "") Then qArticles__Art_ID = Request.QueryString("Art_ID") End If %> <% Dim qArticles__Art_Name qArticles__Art_Name = "Empty" If (Request.QueryString("Art_Name") <> "") Then qArticles__Art_Name = Request.QueryString("Art_Name") End If %> <% Dim qArticles, qArticlesSQL Dim qArticles_numRows Set qArticles = Server.CreateObject("ADODB.Recordset") qArticles.ActiveConnection = MM_salftrans_local_conn_STRING qArticlesSQL = "SELECT Articles.Art_Body, Articles.Art_FrontPageBody, Articles.Active, Articles.Art_AccessLevel, Articles.Art_DisplayOrder, Articles.Art_FrontPage, Articles.Art_ListLinks, Articles.Art_PageCols, Articles.Art_FrontPageBottom, Articles.Art_FrontPageTop, Articles.Art_ID, Articles.Art_MapPath, Articles.Art_LandingPage, Articles.Art_LinkTitle, Articles.Art_Name, Articles.Art_OfferID, Articles.Art_SubTitle, Articles.Art_Title, Articles.Art_HTMLTitle, Articles.Art_IsMainArticle, Articles.Art_Lang, Articles.Art_MetaDesc, Articles.Art_MetaKey, Articles.EnteredBy, Articles.EnteredDate, Articles.LastUpdated, Articles.LastUpdatedBy, Articles.ValidFromDate, Articles.ValidToDate, " & _ " Offers.* " & _ " FROM Articles " & _ " LEFT JOIN " & _ " Offers ON Articles.Art_OfferID = Offers.Offer_ID " qArticlesSQL = qArticlesSQL & " WHERE Articles.Active = YES " qArticlesSQL = qArticlesSQL & " AND Articles.Art_Lang = '" & Session("CurrentLanguage") & "' " qArticlesSQL = qArticlesSQL & " AND Articles.Art_AccessLevel = '1'" If (IsObject(Request.QueryString("MP")) AND Request.QueryString("MP") = "VIEW") OR Session("varIsFP") <> "YES" Then 'Response.Write("C ") ' This is for Article only If Trim(Request.QueryString("Art_ID")) <> "" Then 'Response.Write("D ") ' This is for Article only qArticlesSQL = qArticlesSQL & " AND Articles.Art_ID = " & Replace(qArticles__Art_ID, "'", "''") & " " Else 'Response.Write("E ") qArticlesSQL = qArticlesSQL & " AND Articles.Art_Name = '" & Replace(qArticles__Art_Name, "'", "''") & "' " End If Else 'Response.Write("F ") ' This is for Front Page qArticlesSQL = qArticlesSQL & " AND Articles.Art_FrontPage = YES " End If qArticlesSQL = qArticlesSQL & " AND " & _ " ((Articles.ValidFromDate < #" & FormatDate(Date(), "%Y/%m/%d") & "# OR Articles.ValidFromDate IS NULL)" & _ " AND " & _ " (Articles.ValidToDate > #" & FormatDate(Date(), "%Y/%m/%d") & "# OR Articles.ValidToDate IS NULL))" & _ " ORDER BY Articles.Art_DisplayOrder " qArticles.Source = qArticlesSQL qArticles.CursorType = 0 qArticles.CursorLocation = 2 qArticles.LockType = 1 qArticles.Open() qArticles_numRows = 0 %> <% ' if user comes looking for article that doesn't exist then they are taken to front page If NOT Request.QueryString("FT_ID") <> "" Then If (qArticles.BOF OR qArticles.EOF) Then Dim page page = request.ServerVariables("PATH_INFO") Response.Write(page) response.redirect(page) End If End If If NOT qArticles.BOF Then If Session("varIsFP") = "NO" AND qArticles.Fields.Item("Art_PageCols").Value <> "" Then Session("strPageCols") = qArticles.Fields.Item("Art_PageCols").Value End If Session("Art_ListLinks") = (qArticles.Fields.Item("Art_ListLinks").Value) End If %> <% Dim Repeat25__numRows Dim Repeat25__index Repeat25__numRows = -1 Repeat25__index = 0 qArticles_numRows = qArticles_numRows + Repeat25__numRows %> <% Dim qFromTo__FT_ID qFromTo__FT_ID = "0" If (Request.QueryString("FT_ID") <> "") Then qFromTo__FT_ID = Request.QueryString("FT_ID") End If %> <% Dim qFromTo__FT_Name qFromTo__FT_Name = "Empty" If (Request.QueryString("FT_Name") <> "") Then qFromTo__FT_Name = Request.QueryString("FT_Name") End If %> <% Dim qFromTo, qFromToSQL Dim qFromTo_numRows Set qFromTo = Server.CreateObject("ADODB.Recordset") qFromTo.ActiveConnection = MM_salftrans_local_conn_STRING qFromToSQL = "SELECT * FROM FromTo" qFromToSQL = qFromToSQL & " WHERE FromTo.Active = YES " qFromToSQL = qFromToSQL & " AND FromTo.FT_Lang = '" & Session("CurrentLanguage") & "' " qFromToSQL = qFromToSQL & " AND FromTo.FT_AccessLevel = '1'" If (IsObject(Request.QueryString("MP")) AND Request.QueryString("MP") = "VIEW") OR Session("varIsFP") <> "YES" Then 'Response.Write("C ") ' This is for Article only If Trim(Request.QueryString("FT_ID")) <> "" Then 'Response.Write("D ") ' This is for Article only qFromToSQL = qFromToSQL & " AND FromTo.FT_ID = " & Replace(qFromTo__FT_ID, "'", "''") & " " Else 'Response.Write("E ") qFromToSQL = qFromToSQL & " AND FromTo.FT_Name = '" & Replace(qFromTo__FT_Name, "'", "''") & "' " End If Else 'Response.Write("F ") ' This is for Front Page qFromToSQL = qFromToSQL & " AND FromTo.FT_FrontPage = YES " End If qFromToSQL = qFromToSQL & " AND " & _ " ((FromTo.ValidFromDate < #" & FormatDate(Date(), "%Y/%m/%d") & "# OR FromTo.ValidFromDate IS NULL)" & _ " AND " & _ " (FromTo.ValidToDate > #" & FormatDate(Date(), "%Y/%m/%d") & "# OR FromTo.ValidToDate IS NULL))" & _ " ORDER BY FromTo.FT_DisplayOrder " qFromTo.Source = qFromToSQL qFromTo.CursorType = 0 qFromTo.CursorLocation = 2 qFromTo.LockType = 1 qFromTo.Open() qFromTo_numRows = 0 %> <% ' >--- TOP Article ---< ' >-------------------------------------------------------------------------------< %> <% Dim Repeat11__numRows Dim Repeat11__index Repeat11__numRows = -1 Repeat11__index = 0 qHeader_numRows = qHeader_numRows + Repeat11__numRows %> <% Dim qHeader__TopArt qHeader__TopArt = "0" If NOT qArticles.BOF Then If (qArticles.Fields.Item("Art_FrontPageTop").Value <> "") Then qHeader__TopArt = qArticles.Fields.Item("Art_FrontPageTop").Value End If End If %> <% If NOT qArticles.BOF Then If (qArticles.Fields.Item("Art_FrontPageTop").Value <> "") Then %> <% Dim qHeader, qHeaderSQL Dim qHeader_numRows qHeaderSQL = "" Set qHeader = Server.CreateObject("ADODB.Recordset") qHeader.ActiveConnection = MM_salftrans_local_conn_STRING Dim ArrayOfTopValues1, j ArrayOfTopValues1 = Split(Trim(qArticles.Fields.Item("Art_FrontPageTop").Value), ", ") For j = LBound(ArrayOfTopValues1) To UBound(ArrayOfTopValues1) qHeaderSQL = qHeaderSQL & "SELECT Articles.*, Offers.* " & _ " FROM Articles" & _ " LEFT JOIN " & _ " Offers ON Articles.Art_OfferID = Offers.Offer_ID" & _ " WHERE Articles.Active = YES" & _ " AND Articles.Art_Lang = '" & Session("CurrentLanguage") & "' " & _ " AND Articles.Art_AccessLevel = '1' " If IsObject(Request.QueryString("MP")) AND Request.QueryString("MP") <> "" Then qHeaderSQL = qHeaderSQL & " AND Articles.Art_ID = " & Int(ArrayOfTopValues1(j)) & " " Else qHeaderSQL = qHeaderSQL & " AND Articles.Art_FrontPage = YES " End If qHeaderSQL = qHeaderSQL & " AND Articles.Active = YES " & _ " AND " & _ " ((Articles.ValidFromDate < #" & FormatDate(Date(), "%Y/%m/%d") & "# OR Articles.ValidFromDate IS NULL)" & _ " AND " & _ " (Articles.ValidToDate > #" & FormatDate(Date(), "%Y/%m/%d") & "# OR Articles.ValidToDate IS NULL))" If j < UBound(ArrayOfTopValues1) Then qHeaderSQL = qHeaderSQL & " Union All " End If Next qHeader.Source = qHeaderSQL qHeader.CursorType = 0 qHeader.CursorLocation = 3 qHeader.LockType = 1 qHeader.Open() qHeader_numRows = 0 %> <% End If End If %> <% ' >--- BOTTOM Article ---< ' >-------------------------------------------------------------------------------< %> <% Dim Repeat12__numRows Dim Repeat12__index Repeat12__numRows = -1 Repeat12__index = 0 qFooter_numRows = qFooter_numRows + Repeat12__numRows %> <% Dim qFooter__BotArt qFooter__BotArt = "0" If NOT qArticles.BOF Then If (qArticles.Fields.Item("Art_FrontPageBottom").Value <> "") Then qFooter__BotArt = qArticles.Fields.Item("Art_FrontPageBottom").Value End If End If %> <% If NOT qArticles.BOF Then If (qArticles.Fields.Item("Art_FrontPageBottom").Value <> "") Then %> <% Dim qFooter, qFooterSQL Dim qFooter_numRows qFooterSQL = "" Set qFooter = Server.CreateObject("ADODB.Recordset") qFooter.ActiveConnection = MM_salftrans_local_conn_STRING Dim ArrayOfBottomValues1, k ArrayOfBottomValues1 = Split(Trim(qArticles.Fields.Item("Art_FrontPageBottom").Value), ", ") For k = LBound(ArrayOfBottomValues1) To UBound(ArrayOfBottomValues1) qFooterSQL = qFooterSQL & "SELECT * " & _ " FROM Articles" & _ " LEFT JOIN " & _ " Offers ON Articles.Art_OfferID = Offers.Offer_ID" & _ " WHERE Articles.Active = YES" & _ " AND Articles.Art_Lang = '" & Session("CurrentLanguage") & "' " & _ " AND Articles.Art_AccessLevel = '1'" If IsObject(Request.QueryString("MP")) AND Request.QueryString("MP") <> "" Then qFooterSQL = qFooterSQL & " AND Articles.Art_ID = " & Int(ArrayOfBottomValues1(k)) & " " Else qFooterSQL = qFooterSQL & " AND Articles.Art_FrontPage = YES " End If qFooterSQL = qFooterSQL & " AND Articles.Active = YES " & _ " AND " & _ " ((Articles.ValidFromDate < #" & FormatDate(Date(), "%Y/%m/%d") & "# OR Articles.ValidFromDate IS NULL)" & _ " AND " & _ " (Articles.ValidToDate > #" & FormatDate(Date(), "%Y/%m/%d") & "# OR Articles.ValidToDate IS NULL))" If k < UBound(ArrayOfBottomValues1) Then qFooterSQL = qFooterSQL & " Union All " End If Next qFooter.Source = qFooterSQL qFooter.CursorType = 0 qFooter.CursorLocation = 3 qFooter.LockType = 1 qFooter.Open() qFooter_numRows = 0 %> <% End If End If %> <% ' >--- STATIC FRONT PAGE ---< ' >-------------------------------------------------------------------------------< %> <% Dim qFrontPage Dim qFrontPage_numRows Set qFrontPage = Server.CreateObject("ADODB.Recordset") qFrontPage.ActiveConnection = MM_salftrans_local_conn_STRING qFrontPage.Source = "SELECT * " & _ " FROM FrontPageStatic " & _ " WHERE Active = YES " & _ " AND FrontPageStatic.FPStatic_Lang = '" & Session("CurrentLanguage") & "' " & _ " AND " & _ " ((ValidFromDate < #" & FormatDate(Date(), "%Y/%m/%d") & "# )" & _ " AND " & _ " (ValidToDate > #" & FormatDate(Date(), "%Y/%m/%d") & "# ))" qFrontPage.CursorType = 0 qFrontPage.CursorLocation = 3 qFrontPage.LockType = 1 qFrontPage.Open() If qFrontPage.BOF Then Set qFrontPage = Server.CreateObject("ADODB.Recordset") qFrontPage.ActiveConnection = MM_salftrans_local_conn_STRING qFrontPage.Source = "SELECT * " & _ " FROM FrontPageStatic " & _ " WHERE Active = YES " & _ " AND FrontPageStatic.FPStatic_Lang = '" & Session("CurrentLanguage") & "' " & _ " AND " & _ " FPStatic_SkinName = 'Standard'" qFrontPage.CursorType = 0 qFrontPage.CursorLocation = 3 qFrontPage.LockType = 1 qFrontPage.Open() End If qFrontPage_numRows = 0 %> <% 'Session("Skin") = "Xmas/" Session("Skin") = (qFrontPage.Fields.Item("FPStatic_SkinName").Value) Session("SkinDir") = (qFrontPage.Fields.Item("FPStatic_SkinDir").Value) 'Response.Write "Session('Skin'): " & Session("Skin") & "
" 'Response.Write "Session('SkinDir'): " & Session("SkinDir") & "
" 'Response.End() %> <% 'Response.Write "

Session(Skin) : " & Session("Skin") 'Response.Write "

Session(SkinDir) : " & Session("SkinDir") 'Response.End() %> <% ' >--- NEWS ---< ' >-------------------------------------------------------------------------------< %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 qNews_numRows = qNews_numRows + Repeat4__numRows %> <% Dim qNews Dim qNews_numRows Set qNews = Server.CreateObject("ADODB.Recordset") qNews.ActiveConnection = MM_salftrans_local_conn_STRING qNews.Source = "SELECT * " & _ " FROM News " & _ " WHERE NEWS_FrontPage = YES " & _ " AND Active = YES " & _ " AND News.News_Lang = '" & Session("CurrentLanguage") & "' " & _ " AND " & _ " ((ValidFromDate < #" & FormatDate(Date(), "%Y/%m/%d") & "# OR ValidFromDate IS NULL)" & _ " AND " & _ " (ValidToDate > #" & FormatDate(Date(), "%Y/%m/%d") & "# OR ValidToDate IS NULL))" & _ " ORDER BY News_DisplayOrder " qNews.CursorType = 0 qNews.CursorLocation = 2 qNews.LockType = 1 qNews.Open() qNews_numRows = 0 %> <% Dim qAddressPanel__LID qAddressPanel__LID = "en" If (Session("CurrentLanguage") <> "") Then qAddressPanel__LID = Session("CurrentLanguage") End If %> <% Dim qAddressPanel Dim qAddressPanel_numRows Set qAddressPanel = Server.CreateObject("ADODB.Recordset") qAddressPanel.ActiveConnection = MM_salftrans_local_conn_STRING qAddressPanel.Source = "SELECT * FROM AddPan WHERE Active = YES AND Pan_Lang = '" + Replace(qAddressPanel__LID, "'", "''") + "'" qAddressPanel.CursorType = 0 qAddressPanel.CursorLocation = 2 qAddressPanel.LockType = 1 qAddressPanel.Open() qAddressPanel_numRows = 0 %> <% ' >--- End of Queries ---< ' >-------------------------------------------------------------------------------< %> <% If NOT qArticles.BOF Then If (Trim(Request.QueryString("Art_ID"))) <> "" AND (qArticles.Fields.Item("Art_HTMLTitle").Value) <> "" Then Response.Write 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 ElseIf NOT qFromTo.BOF Then If (Trim(Request.QueryString("FT_ID"))) <> "" AND (qFromTo.Fields.Item("FT_HTMLTitle").Value) <> "" Then Response.Write Trim(qFromTo.Fields.Item("FT_HTMLTitle").Value) End If End If %> <% If Session("strPageCols") = "2" AND Session("varIsFP") = "YES" Then %> <% End If %> <% If Session("Skin") = "Xmas" OR Session("Skin") = "NewYear" Then %> <% End If %> /ST/media/css/css_salftrans_1.asp" rel="stylesheet" type="text/css" /> <% If UCASE(Session("varIsFP")) = "YES" AND Trim(qFrontPage.Fields.Item("FPStatic_MetaDesc").Value) <> "" Then %> " /> <% ElseIf Request.QueryString("FT_ID") <> "" Then %> " /> <% Else %> " /> <% End If ' end Trim(qArticles.Fields.Item("Art_MetaDesc").Value) %> <% If UCASE(Session("varIsFP")) = "YES" AND Trim(qFrontPage.Fields.Item("FPStatic_MetaKey").Value) <> "" Then %> " /> <% ElseIf Request.QueryString("FT_ID") <> "" Then %> " /> <% Else %> " /> <% End If ' end Trim(qArticles.Fields.Item("Art_MetaKey").Value) %> <% If UCASE(Session("varIsFP")) = "YES" AND Trim(qFrontPage.Fields.Item("FPStatic_Lang").Value) <> "" Then %> " /> <% ElseIf Request.QueryString("FT_ID") <> "" Then %> " /> <% Else %> " /> <% End If ' end Trim(qArticles.Fields.Item("Art_Lang").Value) %> <% If Session("User_ID") = 3 AND NOT qArticles.BOF Then %>
" target="_self">< Down One            " target="_self">Up One >
<% End If %> <% ' >--- bodybag Section - START ---< ' >-------------------------------------------------------------------------------< %>
<% ' >--- 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 %> <% 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 %> <% ' >--- MAIN Article ---< ' Used for front page atems as well ' >-------------------------------------------------------------------------------< %> <% 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 InStr(qArticles.Fields.Item("Art_Body").Value, "##form_quote.asp") > 0 Then %> <% Else %> <% Dim strArticleBody strArticleBody = qArticles.Fields.Item("Art_Body").Value %> <% If InStr(strArticleBody, "
"") > 0 Then %> <% strArticleBody = "
" & strArticleBody strArticleBody = Replace(strArticleBody,"
"","
") strArticleBody = Replace(strArticleBody,""
","
") strArticleBody = strArticleBody & "
" %> <% End If %> <% 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(strArticleBody, "

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

<%=(Replace(strArticleBody, vbCrLf, "

"))%>

<% End If %> <% End If %> <% End If %> <% Repeat10__index=Repeat10__index+1 Repeat10__numRows=Repeat10__numRows-1 qArticles.MoveNext() Wend qArticles.requery %> <% ' >--- 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 %> <% While ((Repeat12__numRows <> 0) AND (NOT qFooter.EOF)) %>
"" Then %>class="<%= qFooter.Fields.Item("Offer_CSSclass").Value %>" <% Else %> class='footerWrapCSS' <% 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 %>
<% ' div id="broadRightText" %> <% ' >--- 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 %>