yada


<%
'bu fonksiyon ile boşluk olan kısımları virgül ile değiştirdik, eğer kelime içinde nokta soru işareti ünlem vs. varsa kalın olan sıradakilerin başlarındaki ' işaretini kaldırın.
Function Ayirici(veri)
veri=replace(veri," ",","1,-1,1)
'veri=replace(veri,".",","1,-1,1)
'veri=replace(veri,"'",","1,-1,1)
'veri=replace(veri,"!",","1,-1,1)
'veri=replace(veri,"?",","1,-1,1)
Ayirici=veri
End Function


Set haberler = Server.CreateObject("ADODB.Recordset")
sor = "Select * from kaynaklar order by hit desc"
haberler.Open sor,Sur,1,3

for i = 1 to 10
if haberler.eof then exit for
%>

<a href="x"><%=Ayirici(haberler("isim"))%></a>

<%
haberler.movenext
Next
haberler.close()
set haberler = nothing %>