ReplaceEdilmis alanını sadece arama için kullan ,arama işlemi sırasında ayırmana gerek yok.
Arama sonucu boş değilse etiketler alanındakileri ayırıp yazdıcaksın.Ayırma işlemini splitle virgüle göre yapablirsin.Kısaca şöyle olacak kodların.
aranacak=Request.QueryString("aranacak")
Set Rs=Server.CreateObject("Adodb.Recordset")
SQL="Select * from icerik where ReplaceEdilmis like '%"&aranacak&"%'"
Rs.Open SQL,baglanti,1,3
While Not Rs.Eof
dizi=Split(Rs("etiketler"),",")
for i=0 to Ubound(dizi)
Response.Write("<a href=""www.xyz.com/index.asp?aranacak="&TurkceKarakterTemizle(dizi(i))&""">"&dizi(i)&"</a> ")
Next
Response.Write("<br>")
Rs.MoveNext
Wend
Function TurkceKarakterTemizle(k)
k=Replace(k,"ş","s")
k=Replace(k,"Ş","s")
k=Replace(k,"ğ","g")
k=Replace(k,"Ğ","g")
k=Replace(k,"İ","i")
k=Replace(k,"ı","i")
k=Replace(k,"ç","c")
k=Replace(k,"Ç","c")
k=Replace(k,"ö","o")
k=Replace(k,"Ö","o")
k=Replace(k,"ü","u")
k=Replace(k,"Ü","u")
TurkceKarakterTemizle=k
End FunctionKodları denemedim ama kabaca bu şekilde olması lazım.