FormatCurrency

[TheBugSlayer]

Hi. I am using the FormatCurrency in my code but sometimes it works fine and sometimes it fails with the message:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'FormatCurrency'
/cscbonus/Operatorbonus.asp, line 181


I am using it like either

<TD align=right> <%=FormatCurrency(rs("RegRate"))%>	</TD>

or

<TD align=right> <%=FormatCurrency(Bonus, 2, -1)%>	</TD>

The values format are not that big, less than a million in any case.

Your help is appreciated.

 

[Kendel]

Make sure your rs("RegRate") is not NULL or not an empty string.

 

[snowboardr]

Also check isNumeric

Dim intPrice
intPrice = rs("RegRate")

If intPrice <> "" AND isNumeric(intPrice) then
intPrice = FormatCurrency(intPrice)
   Else
intPrice = "$0.00"
End If

But this should be checked when it goes in the database, and make it a 0 if its null, so then you don't have to check it on the way out.

Jason

www.sitesd.com
ASP WEB DEVELOPMENT

 

[TheBugSlayer]

Thank you guys, I am indeed getting NULL values. Very strange but it is happening; that data is retrieved from a table that contains only positive numbers, no null no zero values. So I guess if I fix that I will be OK.

Thank you again.