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

Cocktail Search
Search for your favorite drink 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%>

Enter all or portion of drink name:

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> <% Recordset1_NextSet = Recordset1_total - Recordset1_last If Recordset1_NextSet > 20 Then Recordset1_NextSet = 20 Recordset1_PrevSet = Recordset1_first If Recordset1_PrevSet > 20 Then Recordset1_PrevSet = 20 If Not Recordset1.EOF Or Not Recordset1.BOF Then %> <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>

DRINK LIST
"><%=(Recordset1.Fields.Item("RecipeName").Value)%> <% If Recordset1.EOF And Recordset1.BOF Then %> Sorry, no drinks match your request. <% End If ' end Recordset1.EOF And Recordset1 %>
<% If MM_offset <> 0 Then %> Previous <%=(Recordset1_PrevSet)%> <% End If ' end MM_offset <> 0 %>	Drinks <%=(Recordset1_first)%> - <%=(Recordset1_last)%> of <%=(Recordset1_total)%>	<% If Not MM_atTotal Then %> Next <%=(Recordset1_NextSet)%> <% End If ' end Not MM_atTotal %>

<%PageID=2%>

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