<%@ 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 %> Mardi Gras Zee Soft 'n Gentle Play Now! MLS Stuff Links Downloads About Our MLS Sponsorship
Georgia-Pacific Georgia-Pacific Home Page Mardi Gras Paper Towels and Napkins Zee Napkins Soft 'n Gentle Bath Tissue
Mardi Gras Shootout Soccer!
 
 
GP Social Responsibility Report / Terms of Use / Privacy Notice / California Privacy Rights