ARDAHAN SİTESİ

Powered by Emre ALPARSLAN

<%if Request.Form("hesapla")<>"" then tarife=Request.Form("tarife") kullanilan=Request.Form("kullanim") kullanilan=Replace(kullanilan,",","") kullanilan=Replace(kullanilan,".","") tarife2=3072000000 if kullanilan="" then kullanilan=0 tarifeson=tarife*tarife2 sinir="0,008872" if isnumeric(sinir) then sinir=sinir else sinir=cint(sinir) end if kullanilansonuc=kullanilan-tarifeson if kullanilansonuc<0 then sonuctxt="Kota Geçilmemis" else sonuctxt="Kotal Geçilmis" end if hesapson=(kullanilansonuc/1024000)*sinir yer = Instr(hesapson,",") if yer>0 then hesapson=MID(hesapson,1,YER+2) else hesapson=hesapson end if %>

Kullanmanız Gereken	<%response.write tarifeson%> byte
Kullanıdığınız	<%response.write kullanilan%> byte
Sonuç	<%response.write sonuctxt%> <%if sonuctxt="Kotal Geçilmis" then%> <%response.write hesapson%>  YTL <%end if%>

<%end if%>