%
ID = Request.QueryString("ID")
PIC = Request.QueryString("PIC")
Filepath = Request.ServerVariables("PATH_TRANSLATED")
Filepath = Replace(filepath,"picture.asp","")
DIM HomeImages(80)
PicNum = 1
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolder=MyFileObject.GetFolder(filepath&ID&"\large")
FOR EACH thing in MyFolder.Files
mystring=REPLACE(UCASE(thing),UCASE(filepath&ID&"\large\"),"")
HomeImages(PicNum) = mystring
PicNum = PicNum + 1
NEXT
%>