The last line:
DOpus.Create.Command.RunCommand( 'Set LISTERTITLE="'+strdata '"');uses JScript syntax, while the first three are looking like VBScript, you cannot mix these two languages.
A VBScript version of that line would probbaly look like this (not tested, I'm not fond of VBScript o):
DOpus.Create.Command.RunCommand("Set LISTERTITLE=""" & StrData & """")Regarding your idea to update the lister title periodically, this is something that may yield specific issues and really needs perfect understanding of DO and scripting in general, you might wanna take a look at "ListerClock", a demonstrational attempt to update the lister title with a clock: Command: ListerClock (show a simple clock in lister title)
It's not perfect in it's current state though, and I didn't manage to upload a fixed version yet, so be careful.