<% Option Explicit %>
' wineindex.asp
' No products listed specifically on this page. This page instead will link to
' either "Wines by Brand" or "Wines by Varietal" which then display the actual products.
' 04/25/2008 - updating page to display brands by Tasting Room.
' Two new Tasting Room categories have been created, under which may exist any number of "Brand"
' subcategories. A "brand" subcategory is only displayed if it actually contains a product.
' There is a special category for displaying additional products not necessarily belonging to either
' tasting room, such as Wine Clubs and Events. This will be displayed after the Tasting Rooms.
<!-- #include file="http://familywines.com/_global/_i_common.asp"-->
<!--#include file="http://familywines.com/_global/_i_unsecureme.asp"-->
<!--#include file="http://familywines.com/_global/_i_websitevars.asp"-->
<!--#include file="http://familywines.com_kds_cartsrc/_c_dbmagic.asp"-->
<!--#include file="http://familywines.com_kds_cartsrc/_c_collection.asp"-->
<!--#include file="http://familywines.com_kds_cartetc/settings.asp"-->
<!--#include file="http://familywines.com_kds_cartsrc/databaseFunctions.asp"-->
<!--#include file="http://familywines.com_kds_cartsrc/kds_main.asp"-->
<!--#include file="http://familywines.com_kds_cartsrc/kds_categorizer.asp"-->
<!--#include file="http://familywines.com_kds_cartsrc/kds_session.asp"-->
<!--#include file="http://familywines.com_kds_cartsrc/kds_customer.asp"-->
<!--#include file="http://familywines.com_kds_cartsrc/kds_product.asp"-->

' Only the categories listed here will be shown:

CONST WINES_BY_BRAND_PAGE = "wines_by_category.asp"            ' new filename! so we can leave existing page alone, to preserve legacy links!

' Setup some expected vars...
Dim kdsLanguage : kdsLanguage = Session("SessionLanguage")
Dim kdsCustomerName : kdsCustomerName = Session("CustomerName")
Dim kdsCompany : kdsCompany = getSettingKey("pCompany")


' KDS: what is most reliable way to determine if customer is logged in, or is registered??
' We will want to know, in order to customize the "login/logout" or "register/customer menu" options...
' Remember that we really only check the "IsRegistered" aspect of the customer for this...

Dim CartItems                : CartItems = 0
Dim CartSubTotal            : CartSubTotal = "$0.00"
Dim IsRegistered            : IsRegistered = False
Dim IsLoggedIn                : IsLoggedIn = False
Dim IsClubMember            : IsClubMember = False

If Session("CustomerID") & "" <> "" AND CStr(Session("CustomerID") & "") <> "0" Then
    IsLoggedIn = True
    IsRegistered = Session("CustomerIsRegistered")
End If
If Session("CartItems") <> "" Then
    CartItems = Session("CartItems")
End If

Dim kdsSession : Set kdsSession = New clsSession

IsClubMember = kdsSession.CustomerTypes.Exists(CUSTOMERTYPEID_GENERATIONS_CLUB) OR kdsSession.CustomerTypes.Exists(CUSTOMERTYPEID_SIBLINGS_CLUB)




'' NOTE that the following variable is declared in settings.asp for this particular installation.
'' Any page that wants to change this "header" title graphic variable can do so as needed, though
'' we do expect some kind of default for when not specified.
'Dim kdsPageHeading

' set the "pagetitle" text and "pageheading" image to something other than the default!
kdsPageTitle = "Family Wineries Dry Creek - Healdsburg, California"
kdsPageHeading = "<img src=""../graphics/site-images/wines.gif"" border=""0"" alt=""Wines For Sale"">"



<HTML dir="ltr">
<TITLE>Purchase Wines at Family Wineries Cooperative Tasting Room Dry Creek Valley Sonoma County CA</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<meta name="author" content="Family Wineries Cooperative Tasting Room Dry Creek Valley" />
<meta name="description" CONTENT="Family Wineries Cooperative Tasting Room.  Five families wineries the only cooperative tasting room experience in the Dry Creek Valley, Healdsburg, Sonoma County Wine Country, CA." />
<meta name="Keywords" CONTENT="family, winery, wineries, family winery, family wineries, dry creek, dry creek valley, cry creek vineyards, wine country, Healdsburg, Sonoma, CA, California, wine, sauvignon blanc, chardonnay, sangiovese, barbera, cabernet, cabernet sauvignon, syrah, pinot grigio, zinfandel, old vine zinfandel, Passport, Passport to Dry Creek, Blush, Blush Wine,  Wine, Wines, Winery, Tasting Room, Wine Tasting, Wine Information,  Vineyard, Vineyards, Sonoma County, Bay Area, Northern Bay Area, Collier Falls Vineyards, Forth Vineyards, Dashe Cellars, Lago di Merlo Vineyards and Winery, Mietz Cellars, Philip Staley Vineyards and Winery, multi-winery tasting room" />
<meta name="designer" content="FWDC Inhouse www.familywines.com" />
<meta name="viewport" content="width=device-width, initial-scale=1.0, minimum-scale=0.3, maximum-scale=1.5, user-scable=yes" />
<link rel="shortcut icon" href="/favicon.ico" />
<link rel="apple-touch-icon" href="/apple-touch-icon.png" />

<link rel="stylesheet" href="/main.css" type="text/css" />
<style type="text/css"></style>
 <!-- Start css3menu HEAD section -->
<link rel="stylesheet" type="text/css" href="FWWCSS3Menu.css3prj_files/css3menu1/style.css" />
 <!-- End css3menu HEAD section -->
<!-- Google Analytics section -->
 <script type="text/javascript">

  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-8687382-1']);

  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);

.minicartlinks a {
    color: #FFEAB9;
.style1 {font-size: xx-small}
.style3 {font-size: small}</style>
<BODY onLoad="">
<TABLE width="700" height="100%" border=0 cellpadding=0 cellspacing=0>
        <TD HEIGHT=49 COLSPAN=2 BGCOLOR="#752000">
                        <IMG SRC="widgets/gen_107.1.gif" alt="Rolling Hills of Dry Creek" WIDTH=125 HEIGHT=49></TD>
                <TD WIDTH=100% HEIGHT=49 BGCOLOR="#752000" align="center"><IMG SRC="widgets/gen_15.1.gif" alt="Family Wineries Logos" WIDTH=100% HEIGHT=49 class="CenterI"></TD>
        <TD WIDTH=125 HEIGHT=49 BGCOLOR="#752000" align="right">
                        <IMG SRC="widgets/gen_108.1.gif" alt="Wine and Food Pairing" WIDTH=125 HEIGHT=49></TD>
      <TD height=100% valign="top" class="nav" id="bg">
      <!-- Start css3menu.com BODY section -->
<ul id="css3menu1" class="topmenu">
    <li class="topfirst"><a href="http://familywineriesdrycreek.com" title="Family Wineries Dry Creek Cooperative Tasting Room Home" style="width:96px;">Home Dry Creek</a></li>
    <li class="topmenu"><a href="#" title="Purchase, Wine, Food, Gifts, Wine Club Memberships, Event Tickets" style="width:96px;"><span>Purchase Online</span></a>
        <li class="subfirst"><a href="http://familywines.com/wineindex.asp" title="Purchase Wines for All Wineries">Purchase Wines and Wine Club Memberships</a></li>
        <li><a href="http://familywines.com/non-wineindex.asp" title="Purchase Food and Gift Items found in our Tasting Room">Purchase Food and Gifts</a></li>
    <li class="topmenu"><a href="http://familywineriesdrycreek.com/events/" title="Listing of Events throughout the Year and Links to Purchase Tickets" style="width:96px;">Events Upcoming</a></li>
    <li class="topmenu"><a href="http://familywineriesdrycreek.com/visitus/" title="Directions and Hours to Dry Creek Tasting Room" style="width:96px;">Find Us</a></li>
    <li class="topmenu"><a href="mailto:drycreek@familywines.com?Subject=Dry Creek Website Inquiry" title="Create an email to the Dry Creek Tasting Room for General Questions" style="width:96px;">Email Now</a></li>
    <li class="topmenu"><a href="#" style="width:96px;"><span>Links</span></a>
        <li class="subfirst"><a href="http://familywineriesdrycreek.com/partners/" title="Get Direct Access to our member wineries websites"><span>Links to Member Websites</span></a>
            <li class="subfirst"><a href="http://collierfalls.com" target="_blank" title="Collier Falls Vineyards Website Link">Collier Falls Vineyards</a></li>
            <li><a href="http://dashecellars.com" target="_blank" title="Dasche Cellar Website Link">Dashe Cellars</a></li>
            <li><a href="http://lagodimerlo.com" target="_blank" title="Lago di Merlo Vineyards Winery Website">Lago di Merlo Vineyards</a></li>
            <li><a href="http://mietzcellars.com" target="_blank" title="Mietz Cellars Winery Website ">Mietz Cellars</a></li>
            <li><a href="http://staleywines.com" target="_blank" title="Philip Staley Vineyards Winery Website">Philip Staley Vineyards</a></li>
        <li><a href="http://familywines.com/links.html" title="A bounty of wine related links">Links to Chambers and more...</a></li>
    <li class="toplast"><a href="#" title="Everything you need to know as a wine club member" style="width:96px;"><span>Wine Club Info</span></a>
        <li class="subfirst"><a href="mailto:drycreek@familywines.com?Subject=Wine Club Questions" title="Want to Contact us regarding Wine Clubs?">Email Wine Club Questions</a></li>
        <li><a href="http://familywineriesdrycreek.com/faqs-wine-clubs/" title="Frequently Asked Questions about your Wine Club Membership">FAQ's for Dry Creek Wine Club Members</a></li>
        <li><a href="http://familywines.com/wines_by_category.asp?c=138" title="Online Signup for Wine Clubs">Join Dry Creek Wine Clubs</a></li>
<!-- End css3menu.com BODY section -->
<p align=center>
<a href="http://facebook.com/familywineriesdrycreek"><img src="facebook_32.png" alt="Facebook Link to Family Wineries" width="32" height="32" longdesc="http://facebook.com/FamilyWineriesDryCreek"></a> <a href="http://twitter.com/familywines"><img src="twitter_32.png" width="32" height="32" alt="Twitter Link to Family Wineries" longdesc="http://twitter.com/familywines"></a> </p>  
            <TABLE width="100%" border=0 cellpadding=0 cellspacing=0 background="" bgcolor="#752000" class="minicartlinks">
                    <td bgcolor=#FFDDA5 valign="top"><IMG src="http://familywines.com/widgets/spacer.gif"  width="75" height="2" border="0"></td>
                    <td width="100%" valign="top"><p><font color="#FFEAB9" size="1"><strong>YOUR
                            <p><font color="#FFEAB9" size="1">All orders are reviewed in our tasting room before processing your credit card.</font></p>
                        <p><font color="#FFEAB9" size="1"><strong>
                            Response.Write CartItems & " item"
                            If CStr(CartItems & "") <> "1" Then Response.Write "s"
                            Response.Write " in cart<br>"
                            Subtotal: <%= kdsSession.MiniCartSubTotal%> <br>
                            <a href="http://familywines.com/_kds_cart/showcart.asp">View
                            <a href="http://familywines.com/_kds_cart/checkout.asp">Checkout</a></strong></font></p>
                        <p><font color="#FFEAB9" size="1"> <strong>
                            <% If (kdsSession.IsLoggedIn And kdsSession.CustomerIsRegistered) Then %>
                                Logged In<br>
                                <a target="_top" href="http://familywines.com/_kds_cart/logout.asp">Logout</a><BR>
                                <a target="_top" href="http://familywines.com/_kds_cart/customer_menu.asp">Customer
                            <% Else %>
                                Not Logged In<br>
                                <a target="_top" href="http://familywines.com/_kds_cart/login.asp">Login</a><BR>
                                <a target="_top" href="http://familywines.com/_kds_cart/customer.asp">Register</a><br>
                            <% End If %>
                        <p><font color="#FFEAB9" size="1"> <strong>
                            <% If IsClubMember Then %>
                                Family Tree<br>
                            <% End If %>
                <TD bgcolor=#FFDDA5 valign="top"><IMG src="http://familywines.com/widgets/spacer.gif"  width="75" height="2" border="0"></TD>
            <br>          </TD>
      <TD height=100% colspan=3 bgcolor="#f6f0ec" valign="top"><TABLE width=95% border=0 cellpadding=0 cellspacing=10>
                    <TD width="6%" background="http://familywines.com/widgets/gen_109.1.gif"><IMG src="http://familywines.com/widgets/spacer.gif" border="0" height="23" width="1"></TD>
                    <td align="center" width="10%" nowrap>
                    <div id="search">
  (function() {
    var cx = '009687563323144786444:1e88dkem0tu';
    var gcse = document.createElement('script');
    gcse.type = 'text/javascript';
    gcse.async = true;
    gcse.src = (document.location.protocol == 'https:' ? 'https:' : 'http:') +
        '//www.google.com/cse/cse.js?cx=' + cx;
    var s = document.getElementsByTagName('script')[0];
    s.parentNode.insertBefore(gcse, s);
<h1>Our Wines at Family Wineries Cooperative
                            Tasting Room Dry Creek Valley, Healdsburg California </h1>
                      <h2>Sonoma County Wine Country</h2></td>
                      <TD width="6%" background="/widgets/gen_109.1.gif"> <IMG src="/widgets/spacer.gif" width=1 height=23></TD>
      <TABLE width=95% border=0 cellpadding=0 cellspacing=10>
          <TD width="90%">
          <div align="right"> : <a href="/non-wineindex.asp">View
                      Our Food & Gift Shop Main Page</a></div>
          <TD width="45%" background="/widgets/gen_109.1.gif"><IMG src="/widgets/spacer.gif" width=1 height=23></TD>
            <TABLE width=95% border=0 cellpadding=0 cellspacing=10>
                    <TD width="100%" valign="top"><table border=0 cellpadding=2 cellspacing=2 class="wines">
                                <td colspan="4"><h2><strong>Wine List</strong></h2></td>
                                <td colspan="4"><a href="wines.asp">List All Brands &amp; Varietals </a></td>
                                <td colspan="4"><h2><strong>Listings by Type, Winery and Wine Clubs</strong></h2></td>
                                <td valign="top" class="LineSpacing" id="wines-cell">

                                    Dim myCats : Set myCats = New dbMagic
                                    Dim myItems : Set myItems = New dbMagic
                                    Dim myData : Set myData = New dbMagic
                                    ' Show brands by Tasting Room (using categories, not attributes)
                                    ' This will also include the special "Additional Products to Display" category
                                    myCats.SQL = "SELECT * FROM kds_Categories WHERE CategoryID IN (" & CATEGORIES_TO_DISPLAY & ") ORDER BY CategoryPos"
                                    Do While Not myCats.RS.EOF            
                                        out "<p><h2><strong>" & myCats.RS("CategoryName").Value & "</h2></strong></p>"
                                        ' Retrieve and display all child categories within this category.
                                        ' For the most part, these will be considered the BRANDS.
                                        ' The special category addition can be handled the same way.
                                        ' Only display subcategories that that actually have products.
                                        myItems.SQL = "SELECT c.CategoryID, c.CategoryName " _
                                                     & " FROM kds_Categories c " _
                                                     & " WHERE c.CategoryIsActive = 1" _
                                                     & " AND c.CategoryParentID = " & myCats.RS("CategoryID").Value _
                                                     & " AND EXISTS (" _
                                                     & "     SELECT cp.ProductID " _
                                                     & "     FROM kds_CategoryProducts cp " _
                                                     & "     INNER JOIN kds_Products p ON p.ProductID = cp.ProductID " _
                                                     & "     WHERE cp.CategoryID = c.CategoryID" _
                                                     & "     AND p.listHidden = 0" _
                                                     & " )" _
                                                     & " ORDER BY c.CategoryPos" '''
                                        Do While NOT myItems.RS.EOF
                                            <a href="<%=WINES_BY_BRAND_PAGE%>?c=<%=myItems.RS("CategoryID").Value%>"><%=myItems.RS("CategoryName").Value%></a><br>
                                <td valign="top" class="LineSpacing">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
                                <td valign="top" class="LineSpacing">
                                    myData.SQL     = "SELECT distinct av.AttributeValue " _
                                                & " FROM kds_ProductAttributeValues av " _
                                                & " INNER JOIN kds_Products p ON av.ProductID = p.ProductID " _
                                                & " WHERE av.AttributeID = 2 " _
                                                & " Order By av.AttributeValue"        '''

                                    Do While Not myData.RS.EOF            
                                        <a href="wines_by_varietal.asp?RSFilter=<%=Server.URLEncode(myData.RS("AttributeValue"))%>"><%=myData.RS("AttributeValue")%></a><br>

                                    Set myData = Nothing
                                    Set myCats = Nothing
                                    Set myItems = Nothing
                                    %>                                </td>
                                <td valign="top">&nbsp;</td>
                    <TD><P align="center"><img src="/DC New.JPG" alt="Family Wineries Dry Creek Cooperative Tasting Room Entrance" width="224" height="143"></P><!-- photo was removed from this cell --></TD>
            <TABLE width=95% border=0 cellpadding=0 cellspacing=10>
                    <TD width="100%" background="/widgets/gen_109.1.gif"><IMG src="/widgets/spacer.gif" border="0" height="23" width="1"> </TD>
            <div class="footer" align="center"> <div align="center"><nobr></nobr><FONT FACE="verdana, arial, helvetica" SIZE="1">
                  <font size="1" face="verdana, arial, helvetica"><nobr>|<a href="http://familywineriesdrycreek.com">Family Wineries Dry Creek</a>|<nobr><a href="http://familywineriesdrycreek.com/events/">Events</a>|</nobr><nobr>|</nobr><nobr><a href="http://familywines.com/wineindex.asp">Our Wines</a></nobr><nobr>|</nobr><nobr>|<a href="non-wineindex.asp">Food & Gifts</A>|</nobr> 
            <p align="center"><nobr>|<a href="http://familywines.com/wines_by_category.asp?c=138">Dry Creek Wine Club</A>|</nobr><nobr>|<a href="http://familywineriesdrycreek.com/faqs-wine-clubs/">Dry Creek FAQ's W.Club</A></nobr>
              <font size="1" face="verdana, arial, helvetica">|<a href="http://familywineriesdrycreek.com/visitus/">Directions to Dry Creek</A></font><font size="1" face="verdana, arial, helvetica"><nobr>|</nobr><nobr>|<a href="http://familywineriesdrycreek.com/partners/">Our Links</A>|</nobr> </font></p>
               <div align="center"><font face="helvetica,verdana, arial" size="1">Copyright 12.12.2015 Need Help? Call Us Toll Free 888.433.6555</font>