Like Em Select Multiple

[Guest - Fabio -]

Olá, Pessoal.

Estou tentando fazeruma query utilizando varios campos select multiple. O problema e que não estou conseguindo fazer que ele funcione em mais do que um campo select multiple. Por exemplo se eu tirar do script abaixo a procura por estado e so deixar a ocupacao que ele fai funcionar porque isto esta acontecendo?

if request("lista") = "1" Then

Set ObjRS = Server.CreateObject("ADODB.RecordSet")

SQL = "SELECT * FROM tb_cadastro WHERE (nome like '%" & strNome & "%')"

if strSexo <> "" Then

SQL = SQL & " AND (sexo LIKE '%"&strSexo&"%')"

End if

'''''''''''''''''''''''''

If strEstado <> "Indiferente" Then

Dim arrayestado

arrayestado = split(strEstado,",",-1,1)

For i = LBound( arrayestado ) To UBound ( arrayestado )

if i <> UBound ( arrayestado ) Then

separador = ","

Else

separador = ""

End if

junta1 = junta1 & "'"&arrayestado( i )&"'"&separador&""

Next

junta1 = replace(junta1," ","")

sql = sql & " and estado in ("&junta1&")"

End if

''''''''''''''''''''''''''

If strOcupacao <> "Indiferente" then

dim arrayocupacao

arrayocupacao = split(strOcupacao,",",-1,1)

for i = LBound( arrayocupacao ) to UBound ( arrayocupacao )

if i <> UBound ( arrayocupacao ) then

separador = ","

else

separador = ""

end if

junta2 = junta2 & "'"&arrayocupacao( i )&"'"&separador&""

next

junta2 = replace(junta2," ","")

sql = sql & " and ocupacao in ("&junta2&")"

end if

'''''''''''''''''''''''''''''

if strCidade <> "" Then

SQL = SQL & " AND (cidade LIKE '%"&strCidade&"%')"

End if

SQL = SQL & " ORDER BY nome ASC"

Set ObjRS = ObjCon.Execute(SQL)

End if

[kuroi]

em vez do execute, de um response.write sql pra ver como fica a query e poste aí pra gente ver.