hatalı yazmışım. sanırım şu anki çalışır

<%
yaz = ""
Ayir = Split(yazigoster("etiketler"),",")
for i = 0 to Ubound(Ayir)
yaz = yaz & "<a href="""& StrUrl &"etiket/"&Cevir(trim(Ayir(i)))&"/"">"&Ayir(i)&"</a>"
If Not Ubound(Ayir) then
yaz = yaz & ", "
End If
Next

uzunluk = len(yaz)-2
yaz =(Mid(yaz,1,uzunluk))

response.write yaz


%>