Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'SetDefaultSiteCurrency'

/snippets/track_affid.asp, line 41