<%@LANGUAGE="VBSCRIPT"%> <% Dim rsMenu__MMColParam rsMenu__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then rsMenu__MMColParam = Request("MM_EmptyValue") %> <% set rsMenu = Server.CreateObject("ADODB.Recordset") rsMenu.ActiveConnection = MM_ConnMixData_STRING rsMenu.Source = "SELECT * FROM MenuItems WHERE MenuStore = " + Replace(rsMenu__MMColParam, "'", "''") + " AND MenuLevel = 0 ORDER BY MenuName" rsMenu.CursorType = 0 rsMenu.CursorLocation = 2 rsMenu.LockType = 3 rsMenu.Open() rsMenu_numRows = 0 %> <% set rsAds = Server.CreateObject("ADODB.Recordset") rsAds.ActiveConnection = MM_ConnMixData_STRING rsAds.Source = "SELECT * FROM Advertising WHERE left(Ad_Tie_String,1) = 'v'" rsAds.CursorType = 0 rsAds.CursorLocation = 2 rsAds.LockType = 3 rsAds.Open() rsAds_numRows = 0 %> <% set rsAdsH = Server.CreateObject("ADODB.Recordset") rsAdsH.ActiveConnection = MM_ConnMixData_STRING rsAdsH.Source = "SELECT * FROM Advertising WHERE left(Ad_Tie_String,1) = 'h'" rsAdsH.CursorType = 0 rsAdsH.CursorLocation = 2 rsAdsH.LockType = 3 rsAdsH.Open() rsAdsH_numRows = 0 %> Articles: wine festivals, mixing tips, festival reviews, wine product reviews, beer festival
<% rsAdsh.MoveFirst AdTotal=0 Randomize While Not rsAdsh.EOF AdTotal= AdTotal+1 rsAdsh.MoveNext Wend Selection = Int(AdTotal*Rnd) rsAdsh.MoveFirst While Not rsAdsh.EOF and MoveTo ">" border="0">">
 
Enter your email address to receive our newsletter and special offers.

 
   
Mix It Up!
Articles with a drinking theme.
 
<%IF PageID = 1 Then%> <%Else%> <%End IF%> <% If PageID = 2 Then%> <%Else%> <%End IF%> <%IF PageID = 3 Then%> <%Else%> <%End IF%> <%IF PageID = 4 Then%> <%Else%> <%End IF%>  
 

 
Travel
 
Around Two Fingers
 
  Whether you make it a weekend getaway or a week vacation, New York's Finger Lakes region's trail leads to homespun wines, classy wineries, and a chance to commune with nature.
[Wine down the trail.] 		 
      
Drink History
   
 
Tequila Truths
 
 

Who put the worm in tequila?
[Take a sip of its history.]
 [Find a drink recipe.]

Festival In The Spotlight
   
 
Tastes of Oregon
          
  Portland, Ore., considered by some to be the microbrew capital of the U.S., brings together more than a 100 of the area's microbrews and other locally made beverages for a three-day tasting extravaganza.
[Want more?]
   
Usher in spring with drink related festivals in the U.S.
[Find a festival near you.]
  
 
Mixing Tips
   
When the Outdoors Call . . .
 
  With On The Go carrying cases, there's no need to leave your cocktails inside while you go out to play.
[Pack It.]		  
   
From The Editor
   
 
A Daring Change [Editor's Note]
 
   
 
 
 
 
<%dim Insert_name(30), Insert_URL(30), Insert_Text(30), Insert_Priority(30) Insert_name(1)= "bbn.jpg" Insert_URL(1)= "http://www.mixologys.com/xq/cat0000.asp" Insert_Text(1)= "" rsAds.MoveFirst Count_Found=0 While Not rsAds.EOF countdown=count while countdown>0%> <%Found=Instr(LCase(rsAds.Fields.Item("Ad_tie_string").value),LCase(ingred(countdown))) If Found > 0 Then Count_Found=Count_Found +1 Insert_name(Count_Found)= (rsAds.Fields.Item("Ad_File_Name").Value) Insert_URL(Count_Found)= (rsAds.Fields.Item("Ad_URL").Value) Insert_Text(Count_Found)= (rsAds.Fields.Item("Ad_Text").Value) Insert_Priority(Count_Found)= (rsAds.Fields.Item("Ad_Priority").Value) End If countdown=countdown-1 wend rsAds.MoveNext Wend Randomize Selection = Int(Count_Found*Rnd)+1%>
 
<%If Selection+1 > Count_Found Then Selection=0%>
 
<%If Selection +2 > Count_Found Then Selection=-1%>
 
<%If Selection +3 > Count_Found Then Selection = -2%>
   
   
Credits
    

 

 

 

<% rsAds.Close() %>