Welcome, Guest ( Customer Panel | Login )




 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  

apswater
VP-CART Super User

444 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 http://66.121.213.146/products/

(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...

Find

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

Replace entire from there to the end of the sub with

Sub ShopCategories
highercategoryid=request("id")

If not isnumeric(highercategoryid) then highercategoryid=""

dim rs
dim title
dim description
if highercategoryid="" then
highercategoryid=0
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
%>
<head>
<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 %>"
</head>
<%




CloseRecordSet rs
end if

if highercategoryid="" then
highercategoryid=0
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

OceanArtwork
Starting Member

Australia
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
thanks


Go to Top of Page

rodney
VP-CART New User

USA
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

-Rodney
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
0 Item(s)
$0.00