Erro boleto.

[gijunior 0]

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'formatcurrency'

 

/lojavirtual/pagamento_boleto_caixa.asp, line 119

 

 

 

Código :

Function x16(x15, x36, x94)Dim x87, x69, x45x45 = x36 + 1x87 = ""DoIf IsNumeric(Mid(x15, (x45), 1)) Thenx87 = x87 & Mid(x15, (x45), 1)x45 = x45 + 1End IfLoop While IsNumeric(Mid(x15, (x45), 1))For x69 = 1 To x87x94 = x94 & (x91(53)) '------------------------------- aqui fica o erro o que devo fazer?Nextx36 = x36 + 2x16 = x94End FunctionFunction x23(x15)

[Salgado 4]

O erro é fora dai. Verifique se não existe alguma variável com nome "FormatCurrency" (que é o nome de uma função padrão do VBS) ou uma chama dela sem valor interno.