caricamento random di file swf

[bernabaus]

Avevo bisogno che una pagina mi caricasse 3 filmati swf in maniera random...

Grazie a un semplice tutorial sulla generazione di numeri random ho scritto queste semplicissime 3 righe di codice per servirmene:

<%
Dim Limite
Dim Casuale
Limite = 3
Randomize()
Casuale = CInt((Limite - 1)*Rnd() + 1 )
Response.Write Casuale

if Casuale = 1 then
Response.Write "slogan1.swf"
else
if Casuale = 2 then
Response.Write "slogan2.swf"
else
Response.Write "slogan3.swf"
end if
end if
%>

A questo punto però, data lamia scarsa conoscenza di ASP ho delle difficoltà magiori a integrare questo script nel codice per caricare un filmato flash all'interno di una pagina web... usando i tag object e embed ilcodice per caricare il filmato flash è il seguente:

<object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0">
<param name="movie" value="slogan1.swf">
<param name="quality" value="high">
<embed src="slogan1.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed></object>

A questo punto nel primo codice ho provato a sostituire
slogan1.swf virgolettato con l'intero tag object ma ovviamente essendo provvisto anche quest'ultimo di virgolette... mi da errore...

Ho fatto varie prove, utilizzando anche \" ma alla fine mi da sempre errore: UNEXPECTED END OF STATEMENT...

Ehm... cìè qlc animapia disposta ad aiutarmi?

Ringrazio anticipatamente... :P

[Roby_72]

Devi assegnare il nome del file ad una variabile e poi stampare quella.

if Casuale = 1 then 
file = "slogan1.swf" 
elseif Casuale = 2 then 
file = "slogan2.swf" 
else 
file = "slogan3.swf" 
end if

Nella parte in cui prima compariva il nome del filmato scriverai

<%=file%>

Roby

[F84]

fare così?

<%
Dim Limite
Dim Casuale
Limite = 3
Randomize()
Casuale = CInt((Limite - 1)*Rnd() + 1 )
Response.Write Casuale

%> 
<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="120" height="60">
  <param name="movie" value="slogan<%=Casuale%>.swf">
  <param name="quality" value="high">
  <embed src="slogan<%=Casuale%>.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="120" height="60"></embed>
</object>

[bernabaus]

Ziiiiiiiiiii... funziona alla grande...

Grazie Roby ^^

[Roby_72]

[bernabaus]

Anche così va F84...grazie pure a te... preferisco il primo metodo perchè il primo file si chiama proprio in un modo diverso...

Ovviamente io per semplicita di spiegazione nell'esempio postato ho messo i nomi simili...

Cmq prendo atto di entrambi i sistemi e immagazzino nel mio DB cerebrale... E' solo che in quest'ultimo qlc ha inserito una funzione che cancella record random... :P

[F84]

ah okkk