Varsayılan formul sonucu eksi değer ise sıfır yazsın

[yarendiyari]

Arkadaşlar ASP ile ;

Asagida yüzde almaya çalisiyorum ama eksi deger alinca 0 yazmasini istiyorum.
1000-1500 = -500 burada - 500 sifir yazmasini istiyorum. Yardimlariniz için tesekkür ederim.

<%
a = rs(borc )
b= rs("odeme" )
cikar = b-a
c = cikar (burasi negatifse sonuç (0 ) pozitifse çikan sayi )
d = 1
carp = c*d
e = carp
f = 100
bol = FormatNumber ( e/f )
Response.Write bol
%>