Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CInt'

C:\INETPUB\WWWROOT\TPXONLINE.COM\WWW\MARKETPLACE\../Lib/func.asp, line 872