<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Option Explicit%> <% dim objFSO, objFolder, objFile dim clientID dim intCnt, intPos dim strID, strFilename, strSize, strDate, strExt clientID = Request.QueryString("id") set objFSO = Server.CreateObject("Scripting.FileSystemObject") set objFolder = objFSO.getfolder(Server.Mappath("../_clientFiles/"&clientID)) intCnt = 0 Response.write(""& VbCrLf) Response.write("" & VbCrLf) for each objFile in objFolder.files intCnt = intCnt + 1 intPos = instr(objFile.Name, ".") strID = intCnt strSize = objFile.Size / 1000 strDate = objFile.DateCreated strFilename = objFile.Name strExt = mid(strFilename, intPos+1, len(strFilename) - intPos) Response.write(VbTab & "" & VbCrLf) next Response.write("" & VbCrLf) %>