Search Results

To find out more about a member (e.g. products, contact info), click on the hot-linked name

<% Param = Request.Form("Param") Role = Request.Form("Role") Data = Request.Form("Data") Sort = Request.Form("Sort") If (Param = "All") Then Param = "%" End If If (Data = "") Then Data = "%" End If ' Create an Instance of the DCon Object Set DCon = Server.CreateObject("ADODB.Connection") ' Open a connection to the Database DSN DCon.Open "coabc" Set UserRecordset = Server.CreateObject("ADODB.Recordset") 'Response.Write "Data = " & Data & "
" If (Param <> "" And Data <> "") Then SQLString = "SELECT [Farmers].ID,[Farmers].Subscription,[Farmers].Homepage,[Farmers].FarmerBusiness,[Farmers].FirstName,[Farmers].LastName,[Farmers].CertificationNumber," SQLString = SQLString & "[Farmers].CertificationStatus,[Farmers].MailingAddress,[Farmers].WorkTelephone," SQLString = SQLString & "[Farmers].FaxTelephone,[Farmers].Email,[Farmers].CB,[Farmers].Products FROM [Farmers]" SQLString = SQLString & " WHERE ((([Farmers].FarmerBusiness like '%" & Data & "%') OR (" SQLString = SQLString & "[Farmers].FirstName like '%" & Data & "%') OR (" SQLString = SQLString & "[Farmers].LastName like '%" & Data & "%') OR (" SQLString = SQLString & "[Farmers].CertificationNumber like '%" & Data & "%') OR (" SQLString = SQLString & "[Farmers].CertificationStatus like '%" & Data & "%') OR (" SQLString = SQLString & "[Farmers].MailingAddress like '%" & Data & "%') OR (" SQLString = SQLString & "[Farmers].WorkTelephone like '%" & Data & "%') OR (" SQLString = SQLString & "[Farmers].FaxTelephone like '%" & Data & "%') OR (" SQLString = SQLString & "[Farmers].Email like '%" & Data & "%') OR " SQLString = SQLString & "(([Farmers].Products like '%" & Data & "%') AND " SQLString = SQLString & "(([Farmers].Subscription = 'Basic') OR " SQLString = SQLString & "([Farmers].Subscription = 'Homepage')))) AND (" SQLString = SQLString & "[Farmers].CB LIKE '" & Param & "')" 'Response.Write Role & "

" If (Role = "All" OR Role = "") Then SQLString = SQLString & " AND ([Farmers].Classification = 'Producer Member' OR [Farmers].Classification = 'Processor Member' OR [Farmers].Classification = 'Handler Member' OR [Farmers].Classification = 'Retailer' OR [Farmers].Classification = 'Supplier' OR [Farmers].Classification = 'Producer/Processor Member')" End If If (Role = "Processors") Then SQLString = SQLString & " AND ([Farmers].Classification = 'Processor Member' OR [Farmers].Classification = 'Producer/Processor Member')" End If If (Role = "Distributors") Then SQLString = SQLString & " AND ([Farmers].Classification = 'Handler Member' OR [Farmers].Classification = 'Producer/Processor Member')" End If If (Role = "Retailers") Then SQLString = SQLString & " AND ([Farmers].Classification = 'Retailer')" End If SQLString = SQLString & ") ORDER BY [Farmers]." & Sort End If 'Response.Write "

New Search