<% ' VP-ASP 5.00 '******************************************************************** ' Used to modify tables ands fonts, search fields, ' product fields ' April 20, 2003 '******************************************************************** ' Forms Customers, checkout, status and loginforce const TableDef="
" Const TableDefEnd="
" Const TableRow="" const TableRowEnd="" const TableColumn="" const tableColumnEnd="" Const xTableRowFont="" Const xTableRowFontEnd="" Const xTableRowColor="#E0EBE0" const TableDefLogin="" ' Reports reports const ReportTableDef="
" const ReportHeadRow="" Const ReportRowEnd="" const ReportHeadColumn="" const ReportDetailRow="" const ReportDetailColumn="" const ReportDetailRowX="" const ReportTableEnd="
" const ReportHeadColumnEnd="
" const reportDetailColumnEnd="
" const ReportInfoFont="" const ReportInfoFontEnd="" ' Categories const CatHeader="

" const CatRow="" Const CatColumn="

" Const CatTable="" Const CatColumnEnd="

" ' ' SubCategories const SubCatHeader="

" const SubcatHeaderEnd="

" const SubCatRow="" Const SubCatColumn="

" const SubCatTable="" Const SubCatColumnEnd="

" const SubCatSeparator=" --> " ' 'Products Const Prodheaderfont="" Const ProdTable="
" Const ProdHeaderRow="" Const ProdHeaderColumn="" const ProdColumn="" ' const ProdNameColumn="" const ProdDescriptionColumn="" ' Const ProdColumnFont="" Const ProdColumnPrice="" const ProdSelectColor="#46648C" ' color for select column Const ProdButtonColumn="
" Const ProdRow="
" const ProdColumnEnd="" const ProdNameFont="" const ProdNameEnd="" const ProdDescriptionFont="" const ProdDescriptionEnd="" const ProdQuantityColumn="" const ProdQuantityEnd="" const ProdPriceEnd="

" const ProdRetailPriceStart="
" Const ProdRetailPriceEnd="" const ProdOriginalPriceStart="
" Const ProdOriginalPriceEnd="" const ProdFeatureCaption="

" Const ProdFeatureCaptionEnd="
" ' Product Feature const FeatureUserText="
" const FeatureUserTextEnd="
" ' ' Shopcartformat Const CartHeaderfont="" Const CartHeaderEnd="" Const CartInfoFont="" Const CartInfoFontEnd="" Const Carttable="

" Const CartTitleColumn="" Const CartRow="" Const CartSubtotalRowLeft="" Const CartTotalRowRight="" const CartFontend="" Const CartFontDesc="" Const CartFontQuantity="" Const CartFontUnitPrice="" Const CartFontPriceTotal="" Const CartFontDualPrice="" Const CartFontDualTotal="" Const CartOriginalPrice="
(" Const CartOriginalPriceEnd=")" ' const FeatureBasePriceFont="
" const FeatureBasePriceEnd="" Const FeatureHeaderFont="" Const FeatureHeaderFontEnd="" const FeatureFont="" const FeatureFontEnd="" const FeaturePriceFont="" Const FeaturePriceEnd="" ' Customers const CustOutsideTableDef="

" Const CartTitleColumnEnd="

" Const CartSubTotalRowRight="" Const CartTotalRowLeft="" Const CartTotalRowLeftEnd="" Const CartTotalRowRightEnd="
" ' 'FormatOrder Details Const FOrderTable="" Const FOrderRow="" Const FOrderRowEnd="" Const FOrderHeaderColumn="" Const FOrderFieldRow="" ' customer details Const FOrderFieldLeft="" Const FOrderFieldRight="" ' info message Const FOrderInfo="

" Const FOrderInfoEnd="

" const FOrderNumber="" Const FOrderNumberEnd="" ' company details Const FOrderCompany="" const FOrderCompanyEnd="" Const FOrderComment="" Const ForderCommentend="" ' Const SearchKeywordTable="
" Const FOrderHeaderColumnEnd="
" Const FOrderFieldLeftEnd="" Const FOrderFieldRightEnd="
" Const SearchHeaderRow="
" Const SearchKeywordRow="
" Const SearchCatTable="" Const SearchCatHeaderLeft="" Const SearchCatRowEnd="" const SearchCatColumnStart="" const SearchSubcatColumnStart="" ' const Templatetable="
" Const SearchCatHeaderRight="" Const SearchCatRowStart="
" const SearchCatColumnEnd="" const SearchSubCatColumnEnd="
" const TemplateQuantityRow="" const TemplateQuantityColumn="" const TemplateButtonRow="" const TemplateButtonColumn="" const TemplateCheckboxColumn="" const TemplateFeaturesRow="" const TemplateFeaturesColumn="" ' 'ShopError const ErrorFontStart="" const ErrorFontEnd="" ' Stock low const OutOfStockColumn="" const SavedOrderFont="" ' EditDisplay const EditSpecialColumn="
" const TemplateQuantityColumnEnd="
" const TemplateCheckBoxRow="
" const TemplateCheckBoxColumnEnd="
" const TemplateFeaturesColumnEnd="" const OutOfStockColumnEnd="" const AddGeneralTable="" const EditSpecialColumnEnd="" const EditLinkColumn="" const EditFieldSpecial="
" Const EditLinkColumnEnd="
" ' Navigation const PageNavTable="" const PageNavRow="" const PageNavColumn="
" const PageNavFont="" const PageNavFontEnd="" const PageNavTableEnd="
" ' Customer Admin const CustAdminTable="" Const CustAdminHeaderRow="" const CustadminRow="" Const CustAdminNumColumn="" const CustAdminColumn="" ' Product Options const DeliveryFont="" const DeliveryFontEnd="" ' ' Other fields for Customers table ' Const CartFeatureCaption="" Const CartFeatureCaptionEnd="" ' Shopreview fonts const ReviewHyperlinkFont="" const ReviewHyperlinkFontEnd="" const ReviewHeader="

" const ReviewHeaderEnd="

" Sub SetupProductFields (ProdFields, ProdHeaders) dim words(20),wordcount, langs(20),langcount dim record,captions, capprefix record=getconfig("xproductfields") captions=getconfig("xproductcaptions") parserecord record, words,wordcount,"," parserecord captions, langs,wordcount,"," redim prodfields(wordcount-1) redim prodheaders(wordcount-1) dim i for i = 0 to wordcount-1 Prodfields(i)=words(i) capprefix=lcase(left(langs(i),4)) if capprefix="lang" then prodheaders(i)=getlang(langs(i)) else prodheaders(i)=langs(i) end if next end sub ' Version 4.0 const Minitable="
" const CustAdminHeaderFont="

" const CUstAdminHeaderEnd="

" const CustAdminNumEnd="

" const CustAdminFont="" const CustAdminColumnEnd="

" Const MinititleRow="" const MiniTitleFont="" const MiniFont="" const MiniNameTitleColumn="" const MiniFontEnd="" const MiniRow="" ' const NavCatTable="
" const MiniNameColumn="" const MiniPriceColumn="" const MiniColumnend="
" const Navcatrow="" const NavCatColumn="" Sub SetupProjectFields (ProjFields, ProjHeaders) ProjFields=Array("pid","customer","description") ProjHeaders=Array(Getlang("langProjectNumber"), getlang("Langcommonname"),getlang("LangProductDescription")) end sub ' VP-ASP 4.50 additions const catmemostart="

" const catmemoend="

" const productfilteringtable="
" Const NavCatColumnEnd="
" const ProductFilteringRow="" const productfilteringcolumn="" ' VP-ASP 5.0 const FrontRow="" Const FrontColumn="

" const productfilteringcolumnend="

" Const FrontTable="" Const FrontColumnEnd="

" const FrontRowEnd="" Const SmallinfoFont="

" Const SmallinfoEnd="

" Const LargeinfoFont="" Const LargeinfoEnd="" const ProdSpecialColor="" const ProdSpecialEnd="" Const ProdHeaderColumnEnd="" Const CatHeaderEnd="" const Prodheaderfontend="" const MinitableShort="
" %>