Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'loSwap'

/inc/functions.inc, line 680