Classic ASP'de Invalid_use_of_Null:_'Replace' Hatası ve Çözümü

Blog Kategori: 

ASP VBScriptte karşılaşmış olduğum bir hatayı ve çözümünü paylaşmak istiyorum. Belki aynı hatayla karşılaşıp çözüm arayanlar için yardımcı olur.

Hata Kodu: 800a005e

Bu hata genellikle karakter çevirme işlemleri sırasında ortaya çıkmakta. Geçersiz boşluk gibi bir anlamı var. Bendeki fonksiyon şu şekilde tanımlı idi ve hata veriyordu:

Function karakter_cevir(strInput)
    strInput = Replace(strInput,"Ğ","Ğ")
    strInput = Replace(strInput,"ğ","ğ")
    strInput = Replace(strInput,"İ","İ")
    strInput = Replace(strInput,"ı","ı")
    strInput = Replace(strInput,"Ş","Ş")
    strInput = Replace(strInput,"ş","ş")
    strInput = Replace(strInput,"ö","ö")
    strInput = Replace(strInput,"Ö","Ö")
    strInput = Replace(strInput,"Ü","Ü")
    strInput = Replace(strInput,"ü","ü")
    strInput = Replace(strInput,"Ç","Ç")
    strInput = Replace(strInput,"ç","ç")
    karakter_cevir = strInput
End Function

Bu kodları şu şekilde çevirdiğimde ise hata ortadan kalktı:

Function karakter_cevir(strInput)
   if not isNull(strInput) then
    strInput = Replace(strInput,"Ğ","Ğ")
    strInput = Replace(strInput,"ğ","ğ")
    strInput = Replace(strInput,"İ","İ")
    strInput = Replace(strInput,"ı","ı")
    strInput = Replace(strInput,"Ş","Ş")
    strInput = Replace(strInput,"ş","ş")
    strInput = Replace(strInput,"ö","ö")
    strInput = Replace(strInput,"Ö","Ö")
    strInput = Replace(strInput,"Ü","Ü")
    strInput = Replace(strInput,"ü","ü")
    strInput = Replace(strInput,"Ç","Ç")
    strInput = Replace(strInput,"ç","ç")
   else
    strInput = ""
   end if
    karakter_cevir = strInput
End Function

Yeni yorum ekle