Sub swfname_FSCommand(ByVal command, ByVal args)
select case command
case "putHREF" location.href = args
case "putTitle" document.title = args
end select
end sub