Ayuda error '800a000d'

[Larc]

Hola a todos, espero me puedan ayudar tengo un error '800a000d' el cual dice exactamente:

Microsoft VBScript runtime error '800a000d'

Type mismatch

/selprod.asp, line 151

En el archivo "selprod.asp" en la linea 151 tengo este código:

Código:

Linea 151        <% If (Recordset1.Fields.Item("ItemPrice").Value) <> 0 Then %>
Linea 152                <p class="txtNaranja"><strong>Precio: <%= FormatCurrency((Recordset1.Fields.Item("ItemPrice").Value), 2, -2, -2, -2) %></strong></p>
Linea 153                <% If (Recordset1.Fields.Item("ventaLinea").Value) <> 0 Then %>

En mi base de datos el campo "ItemPrice" es tipo "Decimal" y tiene de valores "18,5"...

Estuve investigando sobre el error y tengo entendido que es por que no coinciden los tipos, alguna idea??

Un detalle es que si por ejemplo en la linea 151, 153 y 240... cambio el "0" antes de "Then %>" por comillas quedando así:

Código:

.Value) <> "" Then %>

Ya no me muestra el error y funciona hasta que despues le doy en hacer una compra y me manda un error distinto de cStr.

Alguna idea?

[Valery-Net]

Prueba así:

Código ASP:

If cLng(Recordset1.Fields.Item("ItemPrice").Value) <> 0 Then
 

[Larc]

Valery-Net =) muchas gracias por tu pronta respuesta, ya le di solución con tus indicaciones.

Investigare más por mi cuenta de que se trata eso de " cLng " , pero mientras ya
esta funcionando gracias.

[Valery-Net]

Me alegro que pude ayudarte

http://www.w3schools.com/vbscript/func_clng.asp