Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "B4P"]'

/inc/fonctions.asp, line 3709