<% 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 %> Home Picture (#<%=ID%>)
 Wooden It Be Nice! Portfolio
  Custom-Made Furniture Photo Gallery Close Window 
To print, press CTRL-P
<%IF Int(Pic) = 1 THEN%> <%ELSE%> <%END IF%>
 << Previous  << Previous 
Picture #<%=Pic%> of <%=PicNum-1%>
<%IF Int(Pic) = Int(PicNum)-1 THEN%> <%ELSE%> <%END IF%>
 Next >>  Next >> 
<%=HomeImages(Pic)%>