%@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 ---<
' >-------------------------------------------------------------------------------< %>
") > 0 Then %> <%=qHeaderArt_Body%> <% Else %>
<%=(Replace(qHeaderArt_Body, vbCrLf, "
"))%>
<% End If %><%=(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)) %>") > 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 %>