[code]<%'makesureyouhavethe6dir_*.giffiles!'yes,youcancopyoursifyawanttoo..:)'http://line9.com/img/dir_dir.gif..etc.FunctionShowImageForType(strName)strTemp=strNameIfstrTemp<>"dir"ThenstrTemp=LCase(Right(strTemp,Len(strTemp)-InStrRev(strTemp,".",-1,1)))EndIfSelectCasestrTempCase"dir"strTemp...