Random af billeder, skal have en bestemt størrelse

Hey..

Jeg har brug for noget hjælp!! Jeg har et random script der fungere, men det bruger den originale billedestørrelse, det vil jeg gerne havde lavet om i random scriptet..

Det henter billederne fra en mappe..

<%
dim image_directory, Image_Array, count_image, randomfile, directory, allfiles, image
image_directory = "/images/xXx/"

Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath(image_directory))

For each image in allfiles.files
  Image_Array = Image_Array + image.Name & ","

  count_image = count_image + 1
Next

Image_Array = split(Image_Array,",")

randomize
randomfile = int(rnd*count_image)

response.write "<img src="""& image_directory &"/"&Image_Array(randomfile)&""" />"
%>

Håber der er nogle der kan hjælpe mig!!