<%@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 %> Beer Festival: wine festivals, food and wine festivals, the great american beer festival, wine festival <%PageID=1%> <% Dim rsStates Dim rsStates_numRows Set rsStates = Server.CreateObject("ADODB.Recordset") rsStates.ActiveConnection = MM_ConnMixData_STRING rsStates.Source = "SELECT * FROM States ORDER BY StateName" rsStates.CursorType = 0 rsStates.CursorLocation = 2 rsStates.LockType = 3 rsStates.Open() rsStates_numRows = 0 %>
<% 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.

 
   
Beer and Wine Festival Search Page
Find a festival in your area
 
<%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%>  

Leave blank to view whole list.

Food and Wine Festivals: Find the Beer Festival or Wine Festival Coming To a Town Near You!

What’s greater than food and wine festivals near you? Eat, drink and be quite merry with our list of beer festivals coming soon to your town. Choose the food and wine festivals you want to attend and enjoy new flavors of food and drink!

Broaden your horizons while enjoying the good company at wine festivals. Wine festivals give you a great opportunity to taste new or unusual wines you might not have experienced otherwise. Of course, the atmosphere at a wine festival can’t be beat. Where else are you surrounded with individuals who appreciate the taste of wine like you?

Get more information about upcoming beer festivals now. You love the drink, entertainment and atmosphere of one of the many beer festivals. Check out a beer festival near you today.

If you know of any festivals that you would like to add, click on the add button on the next page. Please keep in mind that they must have a drink related theme for us to add them to our database. We will then review the information for validity and accuracy and add it to our list.

 
<%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() Set rsAds = Nothing %> <% rsStates.Close() Set rsStates = Nothing %>