<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID="2057"%>
<% Option Explicit %>
<%
Dim qLangFromID__AID
qLangFromID__AID = "0"
If (Request.QueryString("Art_ID") <> "") Then
qLangFromID__AID = Request.QueryString("Art_ID")
End If
%>
<%
Dim qLangFromID
Dim qLangFromID_numRows
Set qLangFromID = Server.CreateObject("ADODB.Recordset")
qLangFromID.ActiveConnection = MM_salftrans_local_conn_STRING
qLangFromID.Source = "SELECT Art_Lang FROM Articles WHERE Art_ID = " + 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("Art_Lang").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 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 "
<% ' >--- Left Section - END ---<
' >-------------------------------------------------------------------------------< %>
<% ' >--- Right Section - START ---<
' >-------------------------------------------------------------------------------< %>
<% '
' %>
<% ' >--- Right Section - END ---<
' >-------------------------------------------------------------------------------< %>
<% ' >--- Centre Section - START ---<
' >-------------------------------------------------------------------------------< %>
<% ' >--- change this id to broadRightText for landing pages ---<
' >-------------------------------------------------------------------------------< %>
<% ' >--- TOP Article ---<
' >-------------------------------------------------------------------------------< %>
<%
If 1=2 and 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
' >-------------------------------------------------------------------------------< %>
<% 'If 1=1 Then %>
<%
'While ((Repeat10__numRows <> 0) AND (NOT qArticles.EOF))
%>
Merry Christmas and our very best wishes for 2008
Christmas in the hills over Manchester
At this time of year, you normally receive a Christmas card from us here at SalfTrans. But this year, we have decided to do something a little bit different.
Christmas is a time for being with friends and family. Most of us are fortunate to have friends and family around us. But we are conscious that some people are not so lucky.
So this year, instead of sending out Christmas cards, our staff decided that we would like to use the money that we normally spend on Christmas greetings to make a donation to an appropriate charity.
The charity that we have chosen to support this year is The Wellspring, a charity based close to our office that provides practical support for homeless people. The Wellspring will be providing a special Christmas meal and warm clothing to homeless people living in the Stockport area, and will bring them some Christmas cheer. You can find out more about The Wellspring on their website at http://www.thewellspring.ik.com
The entire team at SalfTrans would like to wish you a merry Christmas, and our very best wishes for 2008.
The photograph of a canal lock with church in the background was taken by Nick Rosenthal, our Managing Director, in the hills overlooking Manchester.
For a bit of fun you can click on the picture, move your mouse and make the snow fall in different directions.
<%
' 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 1=2 and 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 %>
<%
Repeat25__index=Repeat25__index+1
Repeat25__numRows=Repeat25__numRows-1
qFromTo.MoveNext()
Wend
%>
<% End If %>
<% ' >--- Put 'Related Articles Links here ---<
' >-------------------------------------------------------------------------------< %>
<% ' >--- BOTTOM Article ---<
' >-------------------------------------------------------------------------------< %>
<%
If 1=2 and 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 %>" <% 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
%>
<% ' %>
<% ' >--- Centre 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
%>