<%
Kelime = Title ' Bunu sen tanımlarsın. Başlıktaki tüm kelimeleri bölüp diğer başlıklarla eşleştireceğiz.

ek_SQL = ""
aranan = split(Kelime," ")
kelimesayisi = ubound(aranan)
for kelimeno = 0 to kelimesayisi

' konuların başlığını subject varsaydık. başlık içinde geçen her kelime için bir sorgu oluşturduk.

	ek_SQL = ek_SQL + " AND (Subject like '%" + replace(aranan(kelimeno),"'","''") + "%')"

' Tablo adını haber olarak varsaydık.

SQL = "Select * from Haber Where (Onay = True) " + ek_SQL

                              rs.Open SQL,Conn,1,3

                              do while not rs.Eof
                              %>
				<font face="Verdana" size="1"
                                <a href="haber_oku.asp?id=<%=rs("id")%>&name=<%=rs("Subject")%>" target="_blank">
                                <b><%=rs("Subject")%></b></a><br>
                                <%=left(rs("Haber"),100)%><br>
				</font>
                              <%
                                rs.MoveNext
                                Loop
                                rs.close
                                next
			      %>