<%
Function bosluk(Str)
Str = Replace(Str, " ", " , ",1,-1,1)
bosluk = Str
End Function
%>
<%
dim tags
tags =bosluk(server.htmlencode(rs1("konu")))
arrX = Split(tags," , " )
For i = 0 To Ubound(arrX)
Response.Write "&nbsp;<a href=/search.asp?etiket="&arrX(i)&">" & arrX(i) & "</a> "
Next
%>