Vis det nye billede

Jeg har dette lille simple script, som lister alle billederne fra en bestemt mappe op.

<%
Dim Path

set fs = CreateObject("Scripting.FileSystemObject")
set Path = fs.GetFolder(Server.MapPath("billeder"))

set Visfiler = Path.files
for each fil in Visfiler

response.write "<img src=" & fil.Name & "> <br>"
next
%>

Kan man ikke lave en funktion så, der kun vises et billede ad gangen, og der så skiftes billede når et nyt billede bliver lagt i mappen, dvs den hele tiden viser det nyeste billede