NEED HELP

1. Junior Member
Join Date
Dec 1969
Posts
21

NEED HELP

Â*Need help, how do i show message for non integer #s?<BR>&#060;html&#062;<BR>&#060;head&#062;&#060;t itle&#062;Online Calculator&#060;/title&#062;&#060;/head&#062;<BR>&#060;body&#062;<BR>&#060;H3&#062;He re&#039;s Your Answer&#060;/H3&#062;<BR><BR>&#060;%<BR> <BR>iA=CInt(Request.form("Avalue"))<BR>iB=CInt(Req uest.form("Bvalue"))<BR>optype=Request.form("opera tion")<BR><BR><BR>function addition(iB)<BR> addition=Cint(iA+iB)<BR>End function<BR><BR>function subtraction(iB)<BR> subtraction=Cint(iA-iB)<BR>End function<BR><BR>function multiplication(iB)<BR> multiplication=Cint(iA*iB)<BR>End function<BR><BR>function division(iB)<BR> division=cint(iA / iB)<BR>End function<BR><BR>function exponents(iB)<BR> exponents=Cint(iA ^ iB)<BR>End function<BR><BR>sub divrules<BR> Response.write "&#060;b&#062;You can&#039;t divide by zero please choose another value for B!&#060;/b&#062;"<BR>End sub<BR><BR><BR><BR>select case optype<BR> case "add"<BR> isum=addition(iB)<BR> Response.write iA<BR> Response.write " + "<BR> Response.write iB<BR> Response.write " = "<BR> Response.write isum<BR> <BR> case "subtract"<BR> iminus=subtraction(iB)<BR> Response.write iA<BR> Response.write " - "<BR> Response.write iB<BR> Response.write " = "<BR> Response.write iminus<BR> case "multiply"<BR> imult=multiplication(iB)<BR> Response.write iA<BR> Response.write " X "<BR> Response.write iB<BR> Response.write " = "<BR> Response.write imult<BR> Case "divide"<BR> If iB=0 Then <BR> Call divrules<BR> Else<BR> idiv=division(iB)<BR> Response.write iA<BR> Response.write " / "<BR> Response.write iB<BR> Response.write " = "<BR> Response.write idiv <BR> End If <BR> case "exponent"<BR> iexpo=exponents(iB)<BR> Response.write iA<BR> Response.write " to the power of "<BR> Response.write iB<BR> Response.write " = "<BR> Response.write iexpo<BR> Case Else<BR> <BR>End select<BR>%&#062;<BR><BR>&#060;/body&#062;<BR>&#060;/html&#062;

2. Junior Member
Join Date
Dec 1969
Posts
21