bu işini görür sanırım

<%
	dim g_arama, g_yeni
	g_arama=request("ara")
	g_yeni=split(g_arama," ")

g_son = "where"
for i=0 to Ubound(g_yeni)
	if i <> Ubound(g_yeni) then
		g_son = g_son & " mesaj like '%" & g_yeni(i) & "%' or"
	else
		g_son = g_son & " mesaj like '%" & g_yeni(i) & "%'"
	end if
next

	dim conn, DSN, SQL, rs
	set conn=server.createObject("ADODB.Connection")
	DSN="Data source=" & server.MapPath ("vt.mdb") & "; Provider=Microsoft.jet.oledb.4.0;"
	conn.open DSN


	sql = "select * from bilgi_tbl"&g_son
	set rs=conn.execute(SQL)

	response.write("<b>Gönderen:</b> " & rs("gonderen") &" // " & rs("tarih") &" // " & rs("email") &"<br><br>")
	response.write(rs("mesaj") &"<br><hr>")

conn.close()
%>

mesaj :
"Bugün hava bozacak gibi görünüyor, dışarı çıkmamanı tavsiye ederim olsun"

"Bugün gibi görünüyor" şeklinde mesajda bulunan veriyi arattırdığında içerisinde "bugün" veya "gibi" veya "görünüyor" kelimelerinin hepsi veya herhangi biri geçen tüm mesajlar listelencektir