Banner rutation

Jeg har lavet en system der henter banner fra en billede mappe via
FileSystemObject, den funktion virker godt men nok.

Men nu kunne jeg godt tænke mig at udbygge den til at køre et random hvor den hele tiden skifter på hver "Refreash" og max viser 4 af gangen...

Er der nogen der har nogle ideer eller hints?

Sådan ser mit lile script ud lige nu:

<%


Dim oFilesys, oFolder, oFile
Set oFilesys= CreateObject("Scripting.FileSystemObject")
Set oFolder= oFilesys.GetFolder(Server.MapPath("admin/assets/Banner Top/"))
For Each oFile in oFolder.Files

websti = replace(oFile, ".gif", "")
websti = replace(websti, "\", "")
websti = Mid(websti, 61, 100)
websti = replace(websti, ".gif", "")

Response.write "<a href=""http://"& websti &""" target=""_blank""><img src=""admin/assets/Banner Top/"& oFile.Name & """ border=""0"" class=""Topbanner""/></a>"
Response.write "<br />"
Next

Set oFolder=Nothing
Set oFilesys=Nothing
%>