ben test ettim çalışıyor. bi problem yok gibi

<%
Function ac(strVeri)
If IsNull(strVeri) Then Exit Function

strVeri = Replace(strVeri, "http://", "")
strVeri = Replace(strVeri, "www.", "")
strVeri = Replace(strVeri, "rapidshare.com", "http://rapidshare.com",1,-1,1)

ac = strVeri
End Function


yaz = "http://www.rapidshare.com"

response.write ac(yaz)
%>