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