Source Code for http://www.alphasierrapapa.com/ComponentCenter/Euro/Samples/rounding.asp

COLOR LEGEND
Server Side Script
Client Side Script
Hyperlink
Include
Frames
Comments
Object Code Link
Standard HTML and Text


<%  @ Language=VBScript %>
<%
  Const cstrPagetitle = "Rounding"
%>

<!--#INCLUDE  virtual="/includes/componentcenter/ccheadstart.asp"-->
<!-- here the custom META tags need to be inserted -->
<META NAME="DESCRIPTION" CONTENT="Rounding for Euro values is done using a specific algorithm - implemented by the Euro Conversion Component.">
<!--#INCLUDE  virtual="/componentcenter/euro/includes/euroheadend.asp"-->
<!--#INCLUDE  virtual="/componentcenter/euro/includes/euronavigation.asp"-->

<H1><%=cstrPagetitle%></H1>

<%
On Error Resume Next ' smart error checking
Set convObj = Server.CreateObject("SOFTWING.EDConverter")

If Err.Number <> 0 Then
   Response.Write "<b>Error creating object:</b><BR>"
   Response.Write Err.Description
Else
   dVal2Round = 123.84444
   Response.Write "Value to round is: " & dVal2Round & "<BR>"
   dRoundedValue = convObj.Round(123.84444)
   Response.Write "Rounded value is: " & dRoundedValue
End If
%>


<!--#INCLUDE  file="sourceinclude.asp"-->
<!--#INCLUDE  virtual="/includes/componentcenter/cctextend.asp"-->
<!--#INCLUDE  virtual="/includes/componentcenter/ccfooter.asp"-->