<%
IMAGE_DIRECTORY = "../images/headers/" 
Randomize	'#Initialize the random number generator
Dim FileArray	'#Will hold each file in the directory
Dim tempString	
tempString = ""
Dim RandomNumber
Dim File, Folder, fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(Server.MapPath(IMAGE_DIRECTORY))) Then
	Set Folder = fso.GetFolder(Server.MapPath(IMAGE_DIRECTORY))
	For Each File In Folder.Files
		tempString = tempString & File.Name & ","
	Next
	tempString = tempString & ","
	tempString = StrReverse(tempString)
	tempString = Replace(tempString, ",,", "", 1)
	tempString = StrReverse(tempString)
	FileArray = Split(tempString, ",")
	RandomNumber = Cint((UBound(FileArray) - LBound(FileArray)) * Rnd + LBound(FileArray))
  	Set File = Server.CreateObject("ADODB.Stream")
  	File.Type = 1
  	File.Open
  	File.LoadFromFile (Server.MapPath(IMAGE_DIRECTORY & FileArray(RandomNumber)))
	If (CBool(InStr(FileArray(RandomNumber),".gif"))) Then
		Response.ContentType = "image/gif"
	ElseIf (CBool(InStr(FileArray(RandomNumber),".jpg"))) Then
		Response.ContentType = "image/jpeg"
	ElseIf (CBool(InStr(FileArray(RandomNumber),".jpeg"))) Then
		Response.ContentType = "image/jpeg"
	End If
    allo = File.Read
	File.Close
End If
Set File = Nothing
Set Folder = Nothing
Set fso = Nothing
Response.BinaryWrite allo
%>