<% 'body { scrollbar-face-color: "#DBE1E3"; 'scrollbar-highlight-color: #000000; 'scrollbar-shadow-color: #FFFFFF; 'scrollbar-3dlight-color: #FFFFFF; 'scrollbar-arrow-color: #000000; 'scrollbar-track-color: #EBF1F3; 'scrollbar-darkshadow-color: #777777; 'overflow:auto} %> <% ShowSub = Session("ShowSub") If ShowPic > " " then ShowPic = Replace(ShowPic, " ", "%20") Response.Write "

Go Back" Else %> <% strPhysicalPath = Server.MapPath(".\" & ShowSub) If ShowSub > " " then ShowSub = Replace(ShowSub, " ", "%20") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath) Set objFolderContents = objFolder.Files For Each objFileItem in objFolderContents If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN ShowPic = Replace(objFileItem.Name, " ", "%20") Response.write "" End if Next Set objFSO = Nothing End if end if %>

" Response.Write(" ") Response.write "