<% function Ceil(value) If isNumeric(value) = True Then Ceil = -(Int(-(value))) Else Ceil = value End If end Function Response.Write Ceil(1.0) ' 1 Response.write "
" Response.Write Ceil(1.1) ' 2 Response.write "
" Response.Write Ceil(-2.9) ' -3 Response.write "
" Response.Write Ceil("GoCoder") 'GoCoder %>