Replace Hatası

arkadaşlar localde çok güzel çalışan site bitti ve servera attım sorun çıktı

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'Replace'

/include.asp, line 98


bu hatada ki kodlar bildiginiz replace kodları ve hiç bi sorunu olmayan bir çok insanın kullandıgı kod çalışmaması imkansız yani

Hatalı Gördügü Kod:
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

Line 98 de tam olarak ne var ?

Saygılarımla;

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

burası var işte

tam olarak da

strVeri = Replace(strVeri, "http://", "") bu var bunu sildim alttakide hatalı dedi onuda sildim alttaki haltalı dedi yabi filtre istemyor ama filtre koymam gerekli

tmm sorunu hallettim

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)
%>

kodlar zaten localde çalışıyor fakat serverda çalışmıyordu şöyle düzelttim

If IsNull(strVeri) Then Exit Function bu kısmı sildim kontrol yapmıyor yani artık ozmn düzeldi bende anlamadım ama düzeldi serverda biraz daha yük olmuş olcak sadece bu kadar