preloada alla bilder i en mapp

Du får ta hjälp med någon form av serverside-script för att få reda på vilka bilder som ligger i katalogen.

<%
dim fso, folder, path, file, js
path="./"
js=""
set fso = Server.CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder(Server.MapPath(path))
for each file in folder.Files
	file=replace(file,"\","/")
	file=mid(file,instrrev(file,"/")+1)
	if lcase(right(file,3))="jpg" or lcase(right(file,3))="gif" or lcase(right(file,3))="png" or lcase(right(file,4))="jpeg" then
		if len(js&"")>0 then js=js&","
		js=js&""""&file&""""
	end if
next
%>
<script language="JavaScript" type="text/javascript">
var a=new Array(<%=js%>); var imgs=new Array();
for(var i=0;i<a.length;i++){
	imgs[i]=new Image; imgs[i].src=a[i];
}
</script>

åhh.. tusen tack.. du är "the man".. =)