<%@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 %> Drink Recipes: cocktail recipes, barware, mixed drink recipes, alcoholic drink recipe, bar drink recipe
<% 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.

 
   
Mixed Drink Recipes
Search for your favorite cocktail recipe
  
<%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%>  

Bar Drink Recipe Ideas: Get Great Cocktail Recipes Here!

Bar Drink Recipe Ideas: Get Great Cocktail Recipes Here!

You know all of the classic mixed drink recipes. Now get the great cocktail recipes you’ve always wanted to try. Many of these alcoholic drink recipes are simple to make – and unbelievable to taste!

Our bar drink recipe ideas will turn an ordinary social gathering into an entertaining event. Try a time-honored alcoholic drink recipes or a new one for a new taste sensation. Find the latest concoctions and drink trends on our site! We have all of the mixed drink recipes any drink lover could hope for.

With over 400 alcoholic drink recipes, we feel pretty good that you’ll find your favorite new bar drink recipe here. Ideal for theme parties, our cocktail recipes give you and your guests something new to enjoy. Find shots and drinks here on our mixed drink recipes page. Happy hunting!


Enter all or part of the drink name you are searching
or click HERE to see the whole database.

 

  
<%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%>
   
   
   

 

 

 

<% rsAds.Close() %> <% rsMenu.Close() %>