<%@ Language=VBScript %> <% catid=request("catid") 'Set default value for catid if catid="" or catid=NULL then catid = 12 end if %> <% 'Get max number to display from setup.asp numperpage = displaymax1 'Determine what page your currently on, for paging. if request.form("page") = "" then currentpage = 1 else currentpage = cint(request.form("page")) end If sortby=request("sortby") if sortby="" or sortby=NULL then sortby="itemno" end if 'For Paging. nextsortby=sortby wineclubmember = false if (Request.Cookies("customerid") <> "") then strSQL = "select * from customer where id = " & fixNum(Request.Cookies("customerid")) set rs = opendb(strSQL) if not rs.eof then wineclubmember = rs("wineclubmember") end if rs.Close() set rs = Nothing end if %> <% else %>

<% 'Open database get items from category. set rs=opendb("SELECT * FROM items WHERE catid=" & catid & " AND active='Yes' ORDER BY " & sortby) if not rs.eof then rs.movefirst rs.pagesize = numperpage totalpages = rs.pagecount rs.absolutepage = currentpage end if if not rs.eof then recCount = 1 do while not rs.eof and count < rs.pagesize itemid=rs("id") itemname=rs("name") price=rs("price") hideprice=rs("hideprice") if hideprice="ON" then hideprice=1 else hideprice=0 end if saleprice=rs("saleprice") onsale=rs("onsale") tempimage=rs("smallimage") description=rs("description") shortdesc=rs("shortdesc") itemno=rs("itemno") feature=rs("feature") imagefound="" if Len(tempimage)>0 then smallimage=tempimage else imagefound="no" end if %> <%if (recCount = 1) then%> <%end if%> <%if (recCount = 1) then%> <%end if%> <% recCount = recCount + 1 count = count + 1 if (recCount >= 2) then recCount = 1 end if rs.movenext loop %>

Sonoma Coast Harvest Weekend

October 28th - October 30th, 2011

The Sonoma Coast, recognized for world class wines, fabulous seafood, and breathtaking beauty, offers a Harvest Weekend like no other. This extraordinary journey is presented by Sonoma Coast Vineyards, Sonoma Coast Villa & Spa, and Affairs of the Vine.

Sonoma Coast Villa Proprietor/Chef, Johannes Zachbauer, Sonoma Coast Vineyards Founders, John and Barbara Drady, and Winemaker, Anthony Austin invite you to join them on the breathtaking Sonoma Coast to experience a Harvest Weekend like no other.

Join us for this incredible adventure. Complete details

This amazing experience includes 2 nights lodging at Sonoma Coast Villa.

All inclusive
$1145 per couple
Best Available
Honeymoon Suite, Classic Junior Suite, or Deluxe Villa Room
Reserve Now

All inclusive
$1045 per couple
Best Available
Country Room
Reserve Now

<%'Determine whether to display image.%>

<%if (shortdesc <> "") then%> <%end if%> <%if (shortdesc <> "") then%> <%end if%> <%=itemname%>. Click for more Info..

<%if (shortdesc <> "") then%> <%end if%>

<%=itemname%>
<%if (shortdesc <> "") then%> <%end if%> [More info]

<%if (feature = "No") then%> <%=showCurr(price)%>

<%else%> <%if (wineclubmember) then%> <%=showCurr(price)%>

<%else%> Reserved for wine club member only
[sign in] <%end if%> <%end if%>

<% 'Create Previous Page link. if not currentpage = 1 Then %> <% end if 'Create Next Page link. if not currentpage = totalpages then %> <% end if %>

<% showbutton " Previous " & maxrec,"javascript:(document.prev.submit())","" %>

<% showbutton " Next ","","next" %>

We are selecting products for this category. Please visit again soon.
<% end if rs.close set rs=nothing %>