<%
dim strjudet,strcultura,strsursa
dim strculturaarr()

strjudet=request("Judet")
strjudet=Replace(strjudet, ",","','")
strjudet=Replace(strjudet, " ","")
strsursa=request("Sursa")
strsursa=Replace(strsursa, ",","','")
strsursa=Replace(strsursa, " ","")

strcultura=request("Cultura")
''I already declared the variable at the top. This creates the array:
strculturaarr = strcultura.split(",")
''Now to do the for each method BELOW your SQL statement
%>
<%
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Conn

SQL = "SELECT * FROM Customer,Address,FarmDetails,InfoDetails WHERE Customer.
ID=Address.ID AND Customer.ID=FarmDetails.ID AND Customer.ID=InfoDetails.ID
AND Address.County IN ('"&strjudet&"') AND REPLACEWITHTABLENAME.Source IN ('"&strsursa&"')"

''Now for the for each method.
for each item in strculturaarr
  SQL = SQL & " AND " & item & ">0"
next
''this will create your SQL statement to have the chosen selection greater than zero.

RS.Open SQL, Conn, 1, 3

''removed the BOF. If you wish, keep it
''If NOT (RS.BOF AND RS.EOF) Then
If NOT RS.EOF Then
%>

<% While (NOT RS.EOF)

%>