<%@LANGUAGE="VBSCRIPT"%>
<%
Dim qryWinery__MMColParam
qryWinery__MMColParam = "1"
If (Request.Form("lstMenu") <> "") Then
qryWinery__MMColParam = Request.Form("lstMenu")
End If
%>
<%
Dim qryWinery__MMColParam1
qryWinery__MMColParam1 = "1"
If (Request.Form("txtWinery") <> "") Then
qryWinery__MMColParam1 = Request.Form("txtWinery")
End If
%>
<%
Dim qryWinery
Dim qryWinery_numRows
Set qryWinery = Server.CreateObject("ADODB.Recordset")
qryWinery.ActiveConnection = MM_mySQL_STRING
qryWinery.Source = "SELECT * FROM dbo.tblWinery WHERE City = '" + Replace(qryWinery__MMColParam, "'", "''") + "' AND (Active=1) AND (County = 'Santa Barbara') OR Winery LIKE '%" + Replace(qryWinery__MMColParam1, "'", "''") + "%' AND (Active=1) AND (County = 'Santa Barbara') ORDER BY Winery"
qryWinery.CursorType = 0
qryWinery.CursorLocation = 2
qryWinery.LockType = 1
qryWinery.Open()
qryWinery_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
qryWinery_numRows = qryWinery_numRows + Repeat1__numRows
%>
Los Olivos, Ca - Movies
