\n'; document.write(barra); } } changePage();
NET Infor
Slide
Copie o código fonte do script abaixo:
<SCRIPT LANGUAGE="VBSCRIPT"> <!-- Sub Window_onload() Call Seq("1").Play End Sub Sub Seq_OnInit() Call seq("1").at(1.000, "pic1_show", 1, 0.000, 1) Call seq("1").at(3.000, "pic2_show", 1, 0.000, 1) Call seq("1").at(6.000, "pic1_hide", 1, 0.000, 1) Call seq("1").at(8.000, "pic3_show", 1, 0.000, 1) Call seq("1").at(10.200, "pic2_hide", 1, 0.000, 1) Call seq("1").at(11.100, "pic3_hide", 1, 0.000, 1) End Sub Sub pic1_show() pic1.filters(0).apply() pic1.style.visibility = "visible" pic1.filters(0).play() End Sub Sub pic2_show() pic2.filters(0).apply() pic2.style.visibility = "visible" pic2.filters(0).play() End Sub Sub pic1_hide() pic1.filters(0).apply() pic1.style.visibility = "hidden" pic1.filters(0).play() End Sub Sub pic3_show() pic3.filters(0).apply() pic3.style.visibility = "visible" pic3.filters(0).play() End Sub Sub pic2_hide() pic2.filters(0).apply() pic2.style.visibility = "hidden" pic2.filters(0).play() End Sub Sub pic3_hide() pic3.filters(0).apply() pic3.style.visibility = "hidden" pic3.filters(0).play() End Sub --> </SCRIPT> <style> #pic1 { position: absolute; top: 1; left: 1; } #pic2 { position: absolute; top: 150; left: 150; } #pic3 { position: absolute; top: 200; left: 300; } </style> <IMG id="pic1" SRC="1.jpg" WIDTH=300 HEIGHT=408 BORDER="0" style="position: absolute; left: 10; top: 10; z-index: 1; visibility: hidden; filter:blendTrans(duration=1.4)"> <IMG id="pic2" SRC="2.jpg" WIDTH=300 HEIGHT=207 BORDER=0 style="position: absolute; left: 110; top: 60; z-index: 1; visibility: hidden; filter:blendTrans(duration=1.4)"> <IMG id="pic3" SRC="3.jpg" WIDTH=300 HEIGHT=238 BORDER=0 style="position: absolute; left: 260; top: 110; z-index: 1; visibility: hidden; filter:blendTrans(duration=1.4)"> <OBJECT ID="Seq" CLASSID="CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96"> </OBJECT>