Büyük harf - küçük harf dönüsümü

[SametE]

Istediginiz metini büyük harfle veya küçük harfle yazmaya yarar.

<%
function buyukharfyap(metin,degisim)
     if degisim = 0 then 'büyük için 0 kullanılacak
          buyukharfyap = Replace(metin,"ı","I")
          buyukharfyap = Replace(buyukharfyap,"i","İ")
          buyukharfyap = UCase(buyukharfyap)
     else 'küçük için
          buyukharfyap = Replace(metin,"I","ı")
          buyukharfyap = Replace(buyukharfyap,"İ","i")
          buyukharfyap = LCase(buyukharfyap)
     end if
end function
%>