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
 Customization
 Adding to the Dynamic Title in Products
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Mark Priest
VP-ASP Expert

United Kingdom
570 Posts

Posted - January 21 2007 :  12:22:00  Show Profile  Reply with Quote
Hi All,

Im looking to add the Manufacturer 'mfg' to the dynamic product titles that display in the browsers title bar.

I think I have found the code in shopheaders.asp

if not rs.eof then
tempname=rs("cname")
tempname=translatelanguage(conn, "products", "cname","catalogid", catalogid, tempname)
tempname= Removehtmlheaders(tempname, "<br>")

Can anyone help me add the mfg to the above?

Regards,

Mark

Mark Priest
VP-ASP Expert

United Kingdom
570 Posts

Posted - February 13 2007 :  19:41:23  Show Profile  Reply with Quote
Im still trying to fathom this out, but not getting very far,

Can anyone PLEASE tell me why this wont display the mfg then the cname in the title of the product page.

sub SetupdynamicProduct ( conn, catalogid)
setsess "dynamictitle",""
setsess "Dynamicdescription",""
setsess "Dynamickeywords",""
dim tempmfg,tempname,tempdesc,tempkeywords
on error resume next
dim sql, rs
If getconfig("xdynamictitle")<>"Yes" then
exit sub
end if
sql="select * from products where catalogid=" & catalogid
set rs=conn.execute(sql)
' translate logic
if not rs.eof then
tempmfg=rs("mfg")
tempname=rs("cname")
tempmfg=translatelanguage(conn, "products", "mfg","catalogid", catalogid, tempmfg)
tempname=translatelanguage(conn, "products", "cname","catalogid", catalogid, tempname)
tempname= Removehtmlheaders(tempmfg, tempname, "<br>")

Regards,

Mark
http://www.fireworkcrazy.com
Go to Top of Page

devshb
Senior Member

United Kingdom
1898 Posts

Posted - February 13 2007 :  19:48:52  Show Profile  Visit devshb's Homepage  Reply with Quote
try changing:

tempname= Removehtmlheaders(tempmfg, tempname, "<br>")

to:

if (tempmfg<>"" and IsNull(tempmfg)=false) then
tempname=Removehtmlheaders(tempmfg&" "&tempname,"<br>")
else
tempname=Removehtmlheaders(tempname,"<br>")
end if

(& is the text-string concatenation/joining command in vbscript)

Simon Barnaby
Developer
[email protected]
www.BigYellowZone.com
Web Design, Online Marketing and VPASP addons

Edited by - devshb on February 13 2007 20:01:32
Go to Top of Page

Mark Priest
VP-ASP Expert

United Kingdom
570 Posts

Posted - February 13 2007 :  22:24:33  Show Profile  Reply with Quote
Simon,

You are a superstar! I love you!

Regards,

Mark
http://www.fireworkcrazy.com
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000