Şöyle birşey yapalım bakalım olacaktır

<%
aranan = Request("aranan")
　
　
Dim Kriter
Dim Parcala = Split(aranan, " ")
　
For Each Kelime In Parcala
Kriter = Kriter & " OR dizi_adi LIKE '%" & Kelime & "%'"
Next

Dim kacKArakter = Len(Kriter)
Dim SimdiYapalim = Mid(Kriter, 4, kacKArakter)
　
Set WM = Server.CreateObject("ADODB.Recordset")
SOR = "select * from diziler where " & SimdiYapalim & ""
WM.Open sor,Sur,1,3
%>

yazdığı her kelimeyi arayacak sonuç bulacaktır kesinlikle