<% '****************************************************************************************** '* This code is generated - NEVER change a file directly as it may later be overwritten! '****************************************************************************************** Dim sKeyWords, sDescr, sTitle Dim ProductCategoryID, sSQL, pRS Dim nItemType '** '* ****************************************************************************** '* Do not change these next lines. The text in brackets below will be replaced '* by an actual ID as this file is copied into a directory structure automatically! '* ****************************************************************************** '** nItemType = cTypeCategory ProductCategoryID = 3 call getMetaData(ProductCategoryID, nItemType, sKeyWords, sDescr, sTitle) %> <%=sTitle%>

   
<% CloseConn(Conn) %>