<%@ Language=VBScript %>
<% Option Explicit
ProductKey = 1
MenuKey = 15
MenuOption = 1
PageNumber = MenuOption
'NOTE /navincludes/head.html must come after setting these 3 variables %>
<%
' Common Variables
Dim ProductKey
Dim MenuKey
Dim MenuOption
Dim PageNumber
Dim M_GPMENU
Dim M_ErrorCode
Dim M_ArrHeader
Dim M_ArrCommonLinks
Dim M_ArrMenu
Dim M_ArrClam
Dim M_ArrPageInfo
Dim M_ServerName
Dim M_Pageheader
Dim T_Pageheader
Dim M_ImageLogo
Dim M_MetaSort
Dim M_MetaDesc
Dim M_MetaKeywords
Dim M_AltTagName
Dim M_ImageLink
Dim M_iCount
Dim M_ExtarCrumb
Dim xx
Dim M_A
Dim M_StrTextA
Dim M_StrTextB
Dim M_SectionColor
M_ServerName = Request.ServerVariables("SERVER_NAME")
Set M_GPMENU = Server.CreateObject("gpcommenu.GPMENUfun")
M_ErrorCode = M_GPMENU.getmenudata(ProductKey, MenuKey, PageNumber, M_ArrHeader, M_ArrPageInfo, M_ArrCommonLinks, M_ArrMenu, M_ArrClam)
IF Trim(M_ArrHeader(3,0)) <> "" then
M_SectionColor = Trim(M_ArrHeader(3,0))
ELSE
M_SectionColor = "1"
END IF
IF Trim(M_ArrPageInfo(0,0)) <> "" then
M_Pageheader = Trim(M_ArrPageInfo(0,0))
T_Pageheader = Trim(M_ArrPageInfo(0,0))
M_ImageLogo = Trim(M_ArrPageInfo(1,0))
M_MetaSort = Trim(M_ArrPageInfo(2,0))
M_MetaDesc = Trim(M_ArrPageInfo(3,0))
M_MetaKeywords = Trim(M_ArrPageInfo(4,0))
M_AltTagName = Trim(M_ArrPageInfo(5,0))
M_ImageLink = Trim(M_ArrPageInfo(6,0))
M_ExtarCrumb = Trim(M_ArrPageInfo(7,0))
M_A = InStr(1, T_Pageheader, "", vbBinaryCompare)
IF M_A <> 0 then
M_StrTextA = Mid(T_Pageheader, 1, M_A - 1)
M_A = InStr(1, T_Pageheader , "", vbBinaryCompare)
M_StrTextB = Mid(T_Pageheader, M_A + 6)
T_Pageheader = M_StrTextA & M_StrTextB
M_A = InStr(1, T_Pageheader, "", vbBinaryCompare)
IF M_A <> 0 then
M_StrTextA = Mid(T_Pageheader, 1, M_A - 1)
M_A = InStr(1, T_Pageheader , "", vbBinaryCompare)
M_StrTextB = Mid(T_Pageheader, M_A + 6)
T_Pageheader = M_StrTextA & M_StrTextB
End If
End If
M_A = InStr(1, T_Pageheader, "™", vbBinaryCompare)
IF M_A <> 0 then
M_StrTextA = Mid(T_Pageheader, 1, M_A - 1)
M_StrTextB = Mid(T_Pageheader, M_A + 7)
T_Pageheader = M_StrTextA & M_StrTextB
End If
M_A = InStr(1, T_Pageheader, "®", vbBinaryCompare)
IF M_A <> 0 then
M_StrTextA = Mid(T_Pageheader, 1, M_A - 1)
M_StrTextB = Mid(T_Pageheader, M_A + 7)
T_Pageheader = M_StrTextA & M_StrTextB
End If
ELSE
M_Pageheader = ""
T_Pageheader = ""
M_ImageLogo = ""
M_MetaSort = ""
M_MetaDesc = ""
M_MetaKeywords = ""
M_AltTagName = ""
M_ImageLink = ""
M_ExtarCrumb = "0"
End if
%>
<%
Dim ccCooky
Dim ccFromSite
Dim ccFromRef
Dim ccPageId
Dim ccVendorId
Dim ccgpcomdll
Dim ccErrorCode
Dim ccSQL
Dim ccNewCooky
Dim ccRef
Dim ccKeyId
Dim aryccCooky
Dim aryFromSite
ccCooky = Request.Cookies("siteref")
If Trim(ccCooky) = "" then
' No Cookie retrive Infor
'get the from site first time only
ccFromSite = LCase(Request.ServerVariables("HTTP_REFERER"))
aryFromSite = Split(ccFromSite, "/")
IF isarray(aryFromSite) then
IF UBound(aryFromSite) > 1 then
ccFromSite = aryFromSite(2)
Else
ccFromSite = " "
End if
else
ccFromSite = " "
end if
ccRef = Request.ServerVariables("HTTP_REFERER") 'get the Ref Page first time only
ccPageId = Request("z") 'get the add code first time only
IF RTrim(ccPageId) <> "" then
Set ccgpcomdll = Server.CreateObject("gpcomreq.gpcomreqfun")
ccSQL = "Exec SP_AdFindURLInsert " & RTrim(ccPageId) & ",'" & RTrim(ccRef) & "'"
ccErrorCode = ccgpcomdll.GPCOMSQLNoResult(ccSQL)
End if
ccKeyId = Request("k") 'get user code
ccNewCooky = ccFromSite&"|"&ccPageId&"| "&ccKeyId&"| "&ccRef
Response.Cookies("siteref") = ccNewCooky
ELSE
aryccCooky = Split(ccCooky, "|")
IF isarray(aryccCooky) then
IF UBound(aryccCooky) > 1 then 'more than two things in it
ccFromSite = aryccCooky(0) 'keep from site
ccPageId = aryccCooky(1)
IF Trim(ccPageId) = "" then
ccPageId = Request("z") 'get add code
end if
ccKeyId = aryccCooky(2)
IF Trim(ccKeyId) = "" then
ccKeyId = Request("k") 'get user code
end if
IF UBound(aryccCooky) > 2 then
ccRef = aryccCooky(3)
else
ccRef = " "
end if
Else 'less than two things in it
ccFromSite = aryccCooky(0) 'keep from site
ccPageId = aryccCooky(1)
IF Trim(ccPageId) = "" then
ccPageId = Request("z") 'get add code
end if
ccKeyId = Request("k") 'get user code
ccRef = " "
End if
ccNewCooky = ccFromSite&"|"&ccPageId&"| "&ccKeyId&"| "&ccRef
Response.Cookies("siteref") = ccNewCooky
else
Response.Cookies("siteref") = " "
end if
End If
%>
<% IF ProductKey = 1 AND MenuKey = 12 THEN %>
Paper Napkins - Paper Towels - Mardi Gras: #1 Selling Napkin in North America - <%=T_Pageheader%>
<% ELSEIF ProductKey = 41 AND MenuKey = 0 THEN %>
Palatka Mill - Pulp and Paper Operations, Palatka, FL - Georgia-Pacific Corporation
<% ELSE %>
<% IF ProductKey <> 7 and ProductKey <> 31 and ProductKey <> 32 and ProductKey <> 38 and ProductKey <> 45 then %>Georgia-Pacific <% end if %>
<% 'Begin Header
IF Trim(M_ArrClam(0,0)) <> "" then
xx = UBound(M_ArrClam, 2)
While xx <> -1 %><%=Trim(M_ArrClam(0,xx))%> - <% xx = xx - 1
Wend
END IF %><%=T_Pageheader%>
<% END IF %>
