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-Cart StoreFront Customer Forum

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

 All Forums
 VPCart Forum
 Add-ons for VP-ASP
 Nifty add on for 4.5
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

VP-ASP Super User

393 Posts

Posted - January 18 2005 :  16:19:16  Show Profile  Visit apswater's Homepage  Reply with Quote
ok, First let me say I have only programed in asp for a week or so, but below is a little code I wrote that is very important if you want to get into the search engines. This code takes the category name and description and turns them into meta tags for your page where the title will become the catalog name and the meta description is the category descriptions... I also modified the shopdisplay products to do the same as well as changed tmp_product.htm to do the same using the [cdescription] tags and such.

the working version is at

(I use 4.5 not sure about 5 and 5.5
Here is what I did on shopdisplaycategories.asp

on your shoppage_header delete the whole the <head> to </head> section at the top. This mod will replace that section and add a different title for each category and will add descriptions to the metatags. Try it and see...


Sub ShopCategories
If not isnumeric(highercategoryid) then highercategoryid=""

Replace entire from there to the end of the sub with

Sub ShopCategories

If not isnumeric(highercategoryid) then highercategoryid=""

dim rs
dim title
dim description
if highercategoryid="" then
end if
if highercategoryid <> "0" then
SQL="Select * from categories "
sql = Sql & " where categoryid=" & highercategoryid
OpenRecordSet dbc, rs, sql
title = rs("catdescription")
description = rs("catmemo")
if Title = "" then
Title = "Water Purification Products - Softeners - Carbon - Reverse Osmosis"
end if
<title><% response.write title %> </title>
<!<link rel="stylesheet" href="shop.css" type="text/css">
<meta NAME="description" content=" <% Response.write description %>
<meta NAME="keywords" content=" <% Response.write title %>"

CloseRecordSet rs
end if

if highercategoryid="" then
end if
ShopPageHeader ' Page header for shop
CategoryHeader ' category header on this page
Showcategories ' format categories on this page
ShopPageTrailer ' shop page trailer
end sub

Edited by - apswater on January 28 2005 12:08:24

Edited by - apswater on February 11 2005 20:05:48

Edited by - apswater on February 12 2005 01:55:59

Starting Member

18 Posts

Posted - January 18 2005 :  22:26:29  Show Profile  Visit OceanArtwork's Homepage  Reply with Quote
has anyone got this going in 5.5
please let me know

Go to Top of Page

VP-ASP New User

75 Posts

Posted - January 07 2006 :  20:44:02  Show Profile  Reply with Quote
Has anyone gotten this or some similar to work with 5.5

Web Site Now Technologies, LPP
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000