VP-ASP :: Shopping Cart Software

Shopping Cart Software Solutions for anywhere in the World

US/Canada(Toll Free): +1 888 587 2278
Europe/UK: +44 (020) 7193 9408
Australia/New Zealand: +61 3 9016 4497

VP-ASP Shopping Cart Customer Forum

Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 VPCart Forum
 Problems and bugs
 xUniqueFrontpageHeader working as intended?
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

seanfitzpatrick
Starting Member

14 Posts

Posted - April 18 2010 :  19:29:19  Show Profile  Reply with Quote
I tried to utilize the new xUniqueFrontpageHeader and xUniqueFrontpageFooter variables within the configuration but it appears to not only change the front page, but all subsequent pages as well. I went in and changed the default.asp to call ShopFrontPageHeader instead of ShopPageHeader and this seemed to rectify the issue for the time being.

Are these new variables working as intended? I did not see any documentation on this in either the manual or knowledge base.

Thanks,

Sean Fitzpatrick
Support Team
Krack Media, LLC
***********************************
http://www.KrackMedia.com

Building More Than Web Sites
. . . Building a Web Presence

support
Administrator

4266 Posts

Posted - April 18 2010 :  20:58:29  Show Profile  Visit support's Homepage  Reply with Quote
Hi Sean,

We will be releasing an update for this shortly.

Or you can apply the following:

1. Open default.asp
2. Change all ShopPageHeader to ShopFrontPageHeader
3. Save

4. Open shopheaders.asp
5. Modify routine shoppageheader, as below:
sub ShopFrontPageHeader
if GetConfig("xaffheaders")="Yes" then
dim filename, affid, rc
affid=GetSess("affid")
if affid<>"" then
filename=xMySite2 & "/templates/" & getconfig("xtemplate") & "/aff" & affid &"_header.htm"
Shopspecialheader filename, rc
if rc=0 then exit sub
end if
end if

setsess "fromquickorder",""
'700 - Moving to template
'700 - layout manager enhancement - 2010.03.01
if getconfig("xUniqueFrontpageHeader") <> "" then
dyninclude xMySite2 & "/templates/" & getconfig("xtemplate") & "/"& getconfig("xUniqueFrontpageHeader") &""
else
dyninclude xMySite2 & "/templates/" & getconfig("xtemplate") & "/shoppage_header.htm"
end if
end sub

6. Modify routine ShopPageHeader, as below:
sub ShopPageHeader
if GetConfig("xaffheaders")="Yes" then
dim filename, affid, rc
affid=GetSess("affid")
if affid<>"" then
filename=xMySite2 & "/templates/" & getconfig("xtemplate") & "/aff" & affid &"_header.htm"
Shopspecialheader filename, rc
if rc=0 then exit sub
end if
end if

setsess "fromquickorder",""
'700 - Moving to template
dyninclude xMySite2 & "/templates/" & getconfig("xtemplate") & "/shoppage_header.htm"
end sub

7. Modify routine ShopFrontPageTrailer, as below:
sub ShopFrontPageTrailer
if GetConfig("xaffheaders")="Yes" then
dim filename, affid, rc
affid=GetSess("affid")
if affid<>"" then
filename=xMySite2 & "/templates/" & getconfig("xtemplate") & "/aff" & affid & "_trailer.htm"
Shopspecialheader filename, rc
if rc=0 then exit sub
end if
end if

'700 - Moving to template
'700 - layout manager enhancement - 2010.03.01
if getconfig("xUniqueFrontpageFooter") <> "" then
dyninclude xMySite2 & "/templates/" & getconfig("xtemplate") & "/"& getconfig("xUniqueFrontpageFooter") &""
else
dyninclude xMySite2 & "/templates/" & getconfig("xtemplate") & "/shoppage_trailer.htm"
end if
end sub

8. Modify routine ShopPageTrailer, as below:
sub ShopPageTrailer
if GetConfig("xaffheaders")="Yes" then
dim filename, affid, rc
affid=GetSess("affid")
if affid<>"" then
filename=xMySite2 & "/templates/" & getconfig("xtemplate") & "/aff" & affid & "_trailer.htm"
Shopspecialheader filename, rc
if rc=0 then exit sub
end if
end if

'700 - Moving to template
dyninclude xMySite2 & "/templates/" & getconfig("xtemplate") & "/shoppage_trailer.htm"
end sub

9. Save & test.

Thanks
Cam

VPASP Support
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000