<%
Function Buyut(strBaslik)
strBaslik = Replace(strBaslik, " ", "+")
strBaslik = Replace(strBaslik, "%20", "+")
strBaslik = Replace(strBaslik, " ","+")
strBaslik = Replace(strBaslik, "'","+")
strBaslik = Replace(strBaslik, "","")
Buyut = strBaslik
End Function
%>