% sSec = cstr(second(now()) mod 3) Select Case sSec Case "0" FlashName = "flash.swf" Case "1","2" FlashName = "banner2.swf" End Select %>