senin kodunda aranan her sözcük for ile döngüye sokulmuş ve haliyle hepsini birer birer arıyor.

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

	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 where mesaj like '%" & g_arama & "%'"
	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()
%>

şu kod sadece aradığınız veriyi arar.