%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsCategoryBrowse(7)
Dim rsRelatedIDsBrowse(7)
%>
<%
' Check to see if need to build catalog pull down
'Session("CatalogPullDown") = "" ' temp for testing
if Session("CatalogPullDown") = "" then
CatalogPullDown = "
" & vbCRLF
' Start with Main Category
SQLstmt = "SELECT "
SQLstmt = SQLstmt & " category.CategoryID AS RelatedID,"
SQLstmt = SQLstmt & " category.Title AS RelatedTitle"
SQLstmt = SQLstmt & " FROM"
SQLstmt = SQLstmt & " categoryxref"
SQLstmt = SQLstmt & " INNER JOIN category ON categoryxref.RelatedID = category.CategoryID"
SQLstmt = SQLstmt & " WHERE"
SQLstmt = SQLstmt & " categoryxref.CategoryID = 'MAIN' AND"
SQLstmt = SQLstmt & " categoryxref.RelatedIDType = 'C' "
SQLstmt = SQLstmt & " ORDER BY"
SQLstmt = SQLstmt & " categoryxref.Sequence ASC"
set rsMainPullDownCategoryList = Server.CreateObject("ADODB.Recordset")
rsMainPullDownCategoryList.ActiveConnection = OrderDSN
rsMainPullDownCategoryList.Source = SQLstmt
rsMainPullDownCategoryList.CursorType = AdOpenDynamic
rsMainPullDownCategoryList.CursorLocation = adUseClient
rsMainPullDownCategoryList.LockType = AdLockReadOnly
rsMainPullDownCategoryList.Open()
rsMainPullDownCategoryList_numRows = 0
CatalogPullDown = CatalogPullDown & "- Browse our entire catalog
" & vbCRLF
While NOT rsMainPullDownCategoryList.EOF
Sequence = Sequence + 1
RelatedID = rsMainPullDownCategoryList.Fields.Item("RelatedID").value
RelatedTitle = rsMainPullDownCategoryList.Fields.Item("RelatedTitle").value
CatalogPullDown = CatalogPullDown & "- " & RelatedTitle & "" & vbCRLF
' Build secondary level
SQLstmt = "SELECT "
SQLstmt = SQLstmt & " category.CategoryID AS RelatedID,"
SQLstmt = SQLstmt & " category.Title AS RelatedTitle"
SQLstmt = SQLstmt & " FROM"
SQLstmt = SQLstmt & " categoryxref"
SQLstmt = SQLstmt & " INNER JOIN category ON categoryxref.RelatedID = category.CategoryID"
SQLstmt = SQLstmt & " WHERE"
SQLstmt = SQLstmt & " categoryxref.CategoryID = '" & RelatedID & "' AND"
SQLstmt = SQLstmt & " categoryxref.RelatedIDType = 'nothing' "
SQLstmt = SQLstmt & " ORDER BY"
SQLstmt = SQLstmt & " categoryxref.Sequence ASC"
set rsSecondaryPullDownCategoryList = Server.CreateObject("ADODB.Recordset")
rsSecondaryPullDownCategoryList.ActiveConnection = OrderDSN
rsSecondaryPullDownCategoryList.Source = SQLstmt
rsSecondaryPullDownCategoryList.CursorType = AdOpenDynamic
rsSecondaryPullDownCategoryList.CursorLocation = adUseClient
rsSecondaryPullDownCategoryList.LockType = AdLockReadOnly
rsSecondaryPullDownCategoryList.Open()
rsSecondaryPullDownCategoryList_numRows = 0
if NOT rsSecondaryPullDownCategoryList.EOF then
CatalogPullDown = CatalogPullDown & "
" & vbCRLF
While NOT rsSecondaryPullDownCategoryList.EOF
Sequence = Sequence + 1
RelatedID = rsSecondaryPullDownCategoryList.Fields.Item("RelatedID").value
RelatedTitle = rsSecondaryPullDownCategoryList.Fields.Item("RelatedTitle").value
CatalogPullDown = CatalogPullDown & "- " & RelatedTitle & ""
CatalogPullDown = CatalogPullDown & "
" & vbCRLF
rsSecondaryPullDownCategoryList.MoveNext()
Wend
CatalogPullDown = CatalogPullDown & "
" & vbCRLF
rsSecondaryPullDownCategoryList.close
end if
CatalogPullDown = CatalogPullDown & " " & vbCRLF
rsMainPullDownCategoryList.MoveNext()
Wend
rsMainPullDownCategoryList.close
CatalogPullDown = CatalogPullDown & "
" & vbCRLF
Session("CatalogPullDown") = CatalogPullDown
end if
%>
About Alderwood Quilts
Owner Sue Hauser has been sewing for over 40 years. Sue has worked as a dressmaker, doll maker, and in management for a large retail fabric chain. She has many interests, but her real passion is quilting. It has long been her dream to own her own company providing quality supplies to others who share her love of quilting. In 2005, her dream became reality with Alderwood Quilts. In addition to internet sales, she loves to design quilts and teach. The Hauser's are also owners of Sunset Lavender Farm. You can find lavender products on this site grown in their fields. Sue and her husband of 34 years live along with their golden retriever in the foothills of the coast mountains in Banks, Oregon. They are tremendously proud of their 2 grown sons and the wonderful women in their lives.
Sue and those who work with her at Alderwood Quilts are committed to providing every customer with inspiration, quality products, and superior service.
Check out Sue's blog at www.alderwoodquilts.blogspot.com. To contact Sue directly you can send email to sue@alderwoodquilts.com or call her during business hours at (503) 324-9400.