ecco il codice:
<%
dim prima_img
scrivi_script
response.write "
"
scrivi_animazione
response.write "
"


%>

<HTML>

<HEAD>

<TITLE> MOSAICATURA </TITLE>


<script language="JavaScript1.2">
function reapply(){
setTimeout("slideit()",1500)
return true
}
window.onerror=reapply

</script>






</HEAD>



<BODY bgcolor="white" onLoad="slideit()">

<CENTER>
<img src=<%response.write prima_img%> name="slide" border=0 style="filter:blendTrans(duration=0)"></a>




</CENTER>





</body>

</html>


<%


function scrivi_script

response.write "<script language=""JavaScript1.1"">"
response.write chr(13)
response.write "<!--"
response.write chr(13)
gif_path = "gif"
i = "1"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(gif_path))
Set file3 = file2.Files
For Each file in file3
fname = file.name
strcmd = """" & gif_path & "/"& fname & """"
if i = 1 then prima_img = strcmd
response.write "var image" & i & "=new Image()"
response.write chr(13)
response.write "image" & i & ".scr=" & strcmd
response.write chr(13)
i = i +1
Next


response.write "//-->"
response.write chr(13)
response.write "</script>"
response.write chr(13)
end function
%>




<%
function scrivi_animazione
response.write "<script>"
response.write chr(13)
response.write "<!--"
response.write chr(13)
response.write "var number_of_images=8"
response.write chr(13)
response.write "var speed=3"
response.write chr(13)
response.write "var step=1"
response.write chr(13)
response.write "var whichimage=1"
response.write chr(13)
response.write "function slideit(){"
response.write chr(13)
response.write "if (!document.images)"
response.write chr(13)
response.write "return"
response.write chr(13)
response.write "if (document.all)"
response.write chr(13)
response.write "slide.filters.blendTrans.apply()"
response.write chr(13)
response.write "document.images.slide.src=eval(""image""+step+"". src"")"
response.write chr(13)
response.write "if (document.all)"
response.write chr(13)
response.write "slide.filters.blendTrans.play()"
response.write chr(13)
response.write "whichimage=step"
response.write chr(13)
response.write "if (step<number_of_images)"
response.write chr(13)
response.write "step++"
response.write chr(13)
response.write "else"
response.write chr(13)
response.write "step=1"
response.write chr(13)
response.write "if (document.all)"
response.write chr(13)
response.write "setTimeout(""slideit()"",speed*1000+3000)"
response.write chr(13)
response.write "else"
response.write chr(13)
response.write "setTimeout(""slideit()"",speed*1000)"
response.write chr(13)
response.write "}"
response.write chr(13)
response.write "//-->"
response.write chr(13)
response.write "</script>"
response.write chr(13)

end function

%>