<%@ Language="VBScript" %>
Product Catalog
<%
dim CustNum
Dim Redir
CustNum=Request.Form("MaintCustNum")
If CustNum = "ADD" _
or CustNum = "add" _
or CustNum = "Add" Then
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
Response.Expires = -1000 'Makes the browser not cache this
Redir = "CustomerMaintenance.asp?Action=Add"
' Response.Write Redir
Response.Redirect(Redir)
Response.End
End If
If CustNum <>"" Then
Redir = "CustomerMaintenance.asp?Action=Change"
Redir = Redir & "&CustomerID=" & CustNum
Response.Write Redir
Response.Expires = -1000 'Makes the browser not cache this
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
Response.Redirect(Redir)
Response.End
End If
'response.write Session("DLWROL")
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdTableDirect = &H0200
Const adUseClient = 3
Dim iPageSize 'How big our pages are
Dim iPageCount 'The number of pages we get back
Dim iPageCurrent 'The page we want to show
Dim iCount 'Miscellaneous Counter
Dim strSQL 'SQL command to execute
Dim B1 'Button 1
Dim B2 'Button 2
Dim B3 'Button 3
Dim strProd 'Product ID to Start With
Dim strPageNum 'Catalog Page Number to Show
Dim strCategory 'Product Category
Dim strSubCategory 'Product SubCategory
Dim strProductSelector 'Product Group Selector
Dim strProductLine 'Product Line Selector
Dim strOtherProducts 'Other Products Selector
dim cust 'Maintenance Customer Number
%>
<%
Session("CameFrom") = "ProductCatalog.asp#Heading" %>
Round Oak Leather Product Numbering
<%
strProd=Request.QueryString("ProductID")
strPageNum=Request.QueryString("PageNum")
strCategory=Request.QueryString("ProductCategory")
strSubCategory=Request.QueryString("ProductSubCategory")
strProductSelector=Replace(Request.QueryString("ProductSelector"), "+", " ")
strProductLine=Replace(Request.QueryString("ProductLine"), "+", " ")
strOtherProducts=Replace(Request.QueryString("OtherProducts"), "+", " ")
'Response.write "Product=" & StrProd
if strProd = "Next" then
strProd = Session("LastProd")
End If
'Response.write "Product=" & StrProd
'Response.write "<-Product Category=" & StrCategory
'Response.write "<-Product Sub Cat =" & StrSubCategory
'Response.write "<-Product Selector=" & StrProductSelector
'Response.write "<-Product Line=" & StrProductLine
%>
<%if Session("DLWROL") = "DLW" then %><%Else%>
Round Oak Leather
<%End If%>
Product Numbers
|
<%if Session("DLWROL") = "DLW" then %>
<%Else%>
<%End If%>
|
ROUND OAK LEATHER Product Identification is by stock number and design.
Although each handcrafted leather product is a one of a kind original, the basic
scale of each object can be identified by a stock number followed by a letter or
series of letters basically describing the techniques used to create each
piece. In all bags the stock numbers describes the scale of the body, not
to include the strap arrangement, flap design and sometimes the hardware used.
By using this creative approach each object is truly a one of kind original.
Example : Stock # HOBO II 110-BO
or
Stock # HOBO I 110-A
Round Oak Leather Works
PO Box 8221
Paducah KY 42002-8221
Phone : (270) 442-1058
or Fax (270) 442-1058
or Email :
DixieLeatherWorks@bellsouth.net
Webmaster :
dhughes@vci.net
Date Revised:
02/10/2009
Home Page
Product Catalog