script pour flash : swf

pour faire fonctionner une animation flash qui se trouve dans notre ordinateur...
Pour le voir dans un e-mail

Code:: <HTML><HEAD>

<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff background=cid:00b001c268b0$97c68da0$2f607550@scenario
scroll=yes>

<P align=right><FONT face=Arial color=#8080ff size=4></FONT>message ici</P>

<BGSOUND balance=0
src="cid:00b101c268b0$97c68da0$2f607550@scenario" volume=0 loop=infinite>
<BUTTON
language=vbs id=OpenPopUp
style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; Z-INDEX: 100; RIGHT: 5%; BACKGROUND: none transparent scroll repeat 0% 0%; FONT: bold 10px 'comic sans ms'; BORDER-LEFT: medium none; CURSOR: hand; COLOR: black; BOTTOM: 3%; BORDER-BOTTOM: medium none; POSITION: absolute"
onclick=Openpopup()><FONT color=#000080 size=3>Open</FONT></BUTTON> <BGSOUND
src="cid:00b201c268b0$97c68da0$2f607550@scenario" volume=-9999>
<DIV id=popcat0
style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; LEFT: 0px; BORDER-LEFT: medium none; WIDTH: 640px; BORDER-BOTTOM: medium none; TOP: 0px; HEIGHT: 480px"></DIV>
<script language=VBscript>
'*******Cato Saelid 23-03-2002*******
'********cato.salid@chello.no********
Dim oPopup, oPopupBody,OSH,OSW, OX, OY,OL,OT,Data1, b,w
'Popup window position and size in % of screen
OSW=window.parent.screen.width
OSH=window.parent.screen.height
OX=1024
OY=768
Sub Openpopup()
set oPopup = window.createPopup
set oPopupBody =oPopup.document.body
oPopupBody.innerHTML = popcat0.innerhtml
oPopupBody.bgcolor="#8C98CC"
oPopupbody.Style.Filter=""
oPopupbody.Style.backgroundImage =""
oPopup.show (OSW-OX)/2,(OSH-OY)/2, OX, OY
set w=oPopupBody.all
set b=oPopupBody
Data="<button language=VBscript onclick=""parent.oPopup.hide( )"" name=Button"
Data= Data & " style=""Position:Absolute;Bottom:2%;Right:3%; color:#400080 ;z-index:100;BORDER: medium none;"
Data= Data & " BACKGROUND:none transparent scroll repeat 0% 0%;"" > Close</button>"
b.insertAdjacentHTML "BeforeEnd",Data
Data=""
Settimeout"setupflash",100
End Sub
Sub setupflash()
Data1= "<OBJECT classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'"
Data1=Data1 & " ID=Flashcat WIDTH=100% HEIGHT=100% "
Data1=Data1 & " Style='Height:768px; Position: Absolute;Top:0px;left:0px;Width:1024px;"
Data1=Data1 & " Visibility:visible;Z-Index:-3'>"
Data1=Data1 & "<PARAM NAME=movie VALUE='[color=red]file:///acquarello.swf [/color]'>"
Data1=Data1 & "<PARAM NAME=quality VALUE=high>"
Data1=Data1 & "<PARAM NAME=bgcolor VALUE=' '>"
Data1=Data1 & "<PARAM NAME=salign VALUE=center>"
Data1=Data1 & "<PARAM NAME=scale VALUE=exactfit>"
Data1=Data1 & "<PARAM NAME=wmode VALUE=transparent>"
Data1=Data1 & "<PARAM NAME=play value=true>"
b.insertAdjacentHTML "Beforeend",Data1
Data1=""
End Sub
</script>
</BODY></HTML>

Code:: <div align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="468" height="60">
<param name="movie" value="banner_16_1.swf">
<param name="play" value="true">
<param name="loop" value="true">
<param name="quality" value="high">
<embed width="468" height="60" src="animation-flash-ici.swf" play="true" loop="true" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></embed></object></div>