Microsoft VBScript runtime error '800a000d'

Hello,

I'm getting the following error -

Microsoft VBScript runtime error '800a000d'
Type mismatch
/detail.asp, line 101

For the following script -

<%If (RsProductDetail.Fields.Item("Price")) = 0.00 then %>
<%="Free of Charge"%>
<%Else%>
&pound;<%=(RsProductDetail.Fields.Item("Price").Value)%> Ex VAT<%End if%>

Select allOpen in new window

RsProductDetail.Fields.Item("Price") is type deciml(10,2)

thank you