<%@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 %> Archived Drink Articles: Mixing tips, festival reviews, wine product reviews, beer festival reviews, wine festival reviews <% Dim Articles__MMColParam Articles__MMColParam = "A" if(Request("MM_EmptyValue") <> "") then Articles__MMColParam = Request("MM_EmptyValue") %> <% set Articles = Server.CreateObject("ADODB.Recordset") Articles.ActiveConnection = MM_ConnMixData_STRING Articles.Source = "SELECT * FROM MixArticles WHERE ArticleStatus = '" + Replace(Articles__MMColParam, "'", "''") + "'" Articles.CursorType = 0 Articles.CursorLocation = 2 Articles.LockType = 3 Articles.Open Articles_numRows = 0 %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Articles_numRows = Articles_numRows + Repeat1__numRows %>
<% 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.

 
   
Archives
Drink articles, mixing tips, travel articles and more.
  
<%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 Articles

<% While ((Repeat1__numRows <> 0) AND (NOT Articles.EOF)) If Articles.Fields.Item("ArticleType")="T" Then %> "><%=(Articles.Fields.Item("ArticleTitle").Value)%>
<%=(Articles.Fields.Item("ArticlePubDate").Value)%>
<%=(Articles.Fields.Item("ArticleSynopsis").Value)%>

<% End If Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Articles.MoveNext() Wend Articles.MoveFirst() %> Festival Articles

<% While ((Repeat1__numRows <> 0) AND (NOT Articles.EOF)) If Articles.Fields.Item("ArticleType")="F" Then%> "><%=(Articles.Fields.Item("ArticleTitle").Value)%>
<%=(Articles.Fields.Item("ArticlePubDate").Value)%>
<%=(Articles.Fields.Item("ArticleSynopsis").Value)%>

<% End If Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Articles.MoveNext() Wend Articles.MoveFirst() %> History of Drink

<% While ((Repeat1__numRows <> 0) AND (NOT Articles.EOF)) If Articles.Fields.Item("ArticleType")="H" Then %> "><%=(Articles.Fields.Item("ArticleTitle").Value)%>
<%=(Articles.Fields.Item("ArticlePubDate").Value)%>
<%=(Articles.Fields.Item("ArticleSynopsis").Value)%>

<% End If Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Articles.MoveNext() Wend Articles.MoveFirst() %> Mixing Tips

<% While ((Repeat1__numRows <> 0) AND (NOT Articles.EOF)) If Articles.Fields.Item("ArticleType")="M" Then%> "><%=(Articles.Fields.Item("ArticleTitle").Value)%>
<%=(Articles.Fields.Item("ArticlePubDate").Value)%>
<%=(Articles.Fields.Item("ArticleSynopsis").Value)%>

<% End If Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Articles.MoveNext() Wend Articles.MoveFirst() %>
 
<%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() %>