Morrell Wine Bar & Cafe

<% @ Language=VBScript %> <% Option Explicit Response.Expires = 0 Response.Buffer = true Dim Conn Dim RSStyle Dim RSWine Dim TastingNotes Dim Country Dim Varietal Dim SubVarietal Dim RSSpecialLinks Dim SpecialLink Dim RSQuickSelectNo Dim QuickList Dim QuickSelected Function HtmlEncode(varEncode) If Not IsNull(varEncode) Then HtmlEncode = Server.HtmlEncode(varEncode) Else HtmlEncode = "" End If End Function set conn = server.createobject ("adodb.connection") conn.open "winefutures", "washington", "roebling" Set RSSpecialLinks = Conn.Execute("Select ListID, ListTitle " _ & "from SpecialWineListTitles Where ListID <> 1") If Not RSSpecialLinks.EOF Then SpecialLink = "
" & HtmlEncode(RSSpecialLinks("ListTitle")) & "" RSSpecialLinks.MoveNext Do Until RSSpecialLinks.EOF SpecialLink = SpecialLink & " | " & "" & HtmlEncode(RSSpecialLinks("ListTitle")) & "" RSSpecialLinks.MoveNext Loop Else SpecialLink = "" End If Set RSQuickSelectNo = Conn.Execute("Select Distinct StyleNo, Style " _ & "from WineListOrder Where Market <> 0 Order by StyleNo") QuickList = "" & RSQuickSelectNo("Style") & "" RSQuickSelectNo.MoveNext Do Until RSQuickSelectNo.EOF QuickList = QuickList & " | " & "" & RSQuickSelectNo("Style") & "" RSQuickSelectNo.MoveNext Loop If Not IsEmpty(Request.QueryString("qs")) Then QuickSelected = Request.QueryString("qs") Else QuickSelected = 1 End If %> Morrell Wine Bar & Cafe - Market List

Wine by the Glass | Market List | Reserve List<%= SpecialLink %>

Market List

<%= QuickList %>

<% Set RSStyle = Conn.Execute("Select ID, Style, Country, Varietal, SubVarietal " _ & "from WineListOrder Where StyleNo = " & QuickSelected & " And Market <> 0 Order by ID") Do While Not RSStyle.EOF Country = RSStyle("Country") Varietal = RSStyle("Varietal") SubVarietal = RSStyle("SubVarietal") Set RSWine = Conn.Execute("Select Bin, WineName, Vintage, BottlePrice " _ & "from NewWineList Where Market <> 0 and Style = '" & RSStyle("Style") & "' " _ & "and Country = '" & Country & "' and Varietal = '" & Varietal & "' and " _ & "SubVarietal = '" & SubVarietal & "'Order by BottlePrice") %>

<%= QuickList %>

Wine by the Glass | Market List | Reserve List<%= SpecialLink %>

<% Response.End Conn.Close Set Conn = Nothing %>