Asp ile benzer kayıtları listelemek

Sitemizdeki herhangi bir yazının altında veya beşka bir yerinde o yazıya benzer yazıları listeletmek hem ziyaretçiler hemde arama motorları açısından çok faydalıdır.
Okuduğu yazıya benzer yazılar ziyaretçinin ilgisini çeker, yazıya ait benzer kayıtları yazının olduğu sayfada listeletmemizde benzer içeriklerin birbirleyle linklemesini sağlar, bu google açısından çok faydalıdır, çünkü aynı içerikten link almak gibi birşey bu, hatta daha iyi. :)
Neyse faydasını zararını geçelim.
Benzer kayıtları bulmak için hangi kayıtın benzerleri bulmak istiyorsak, o kayıtın başlığını arasındaki boşluklardan split fonksiyonu sayesinde kelimelerine ayıracağız ve bu kelimelerin hepsini ayrı ayrı veritabanında arayacağız, işin özü bu, koduda şu; <%
bol = split(baslik, " ")
kactane = ubound(bol)
for sira = 0 to kactane
if sira < 1 then
seyy = ""
else
seyy = "or "
end if
kod = ""& kod &""& seyy &"baslik like '%"& bol(sira) &"%'"
next
set benzer = baglanti.execute("select * from yazilar "& kod &" order by id asc limit 10")
%> Kodun daha verimli çalışması için başlıktaki "ve, için, ile, veya, yada, 1, 2, 3, 4, 5..." gibi karakterleri silebilirsiniz. Aşağıdaki fonksiyona sitenizin içeriğine göre kafanıza göre eklemeler yapabilirsiniz. <%
Function duzelt(yazi)
yazi = replace(yazi, "(", "")
yazi = replace(yazi, ")", "")
yazi = replace(yazi, " ve", "")
yazi = replace(yazi, "ve ", "")
yazi = replace(yazi, " ile", "")
yazi = replace(yazi, "ile ", "")
yazi = replace(yazi, " bir", "")
yazi = replace(yazi, "bir ", "")
yazi = replace(yazi, "etme ", "")
yazi = replace(yazi, " etme", "")
yazi = replace(yazi, " için", "")
yazi = replace(yazi, "için ", "")
duzelt = yazi
End Function
%>