<%@LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> <% Response.Expires = -1 Server.ScriptTimeout = 600 Dim uploadImagesDirVar Dim uploadDocumentsDirVar Dim SaveFileStats ' Prepare variables. Dim oFS, oFSPath Dim sServername, sServerinst, sPhyspath, sServerVersion Dim sServerIP, sRemoteIP Dim sPath, oDefSite, sDefDoc, sDocName, aDefDoc Dim bSuccess ' This value is used later to warn the user if a default document does not exist. Dim iVer ' This value is used to pass the server version number to a function. bSuccess = False iVer = 0 ' Get some server variables to help with the next task. sPhyspath = LCase(Request.ServerVariables("PATH_TRANSLATED")) sPhyspath = mid(sPhyspath, 1, instrrev(sPhyspath, "\")) uploadNewsLettersDirVar = sPhyspath & "newsletters" Function BubbleSort(arrin, num) dim arr arr = arrin for i = num - 1 To 0 Step -1 for j= 0 to i if arr(2, j) < arr(2, j+1) then temp = arr(0, j+1) temp1 = arr(1, j+1) temp2 = arr(2, j+1) arr(0, j+1) = arr(0, j) arr(1, j+1) = arr(1, j) arr(2, j+1) = arr(2, j) arr(0, j) = temp arr(1, j) = temp1 arr(2, j) = temp2 end if next next BubbleSort = arr end function function MapURL(path) dim rootPath, url 'Convert a physical file path to a URL for hypertext links. rootPath = Server.MapPath("/") url = Right(path, Len(path) - Len(rootPath)) MapURL = Replace(url, "\", "/") end function sub ListFolderContents(path) dim fs, folder, file, item, url dim FileList, SortedList dim i, j set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) i = -1 redim FileList(3, folder.Files.count) redim SortedList(3, folder.Files.count) For Each item In folder.Files i = i + 1 FileList(0, i) = item.Name FileList(1, i) = MapURL(item.path) FileList(2, i) = item.DateCreated Next ' Now we gotta sort the array SortedList = BubbleSort(FileList, folder.Files.count-1) Response.Write("") for i = 0 to folder.Files.count - 1 response.write("") response.write("") next Response.Write("
" & SortedList(0, i) & "


") end sub %> Delta Kaigan Judo Kaigan Korner Newsletters


Club Info Home bullet
About Our Club bullet
Instructor Profiles bullet
Syllabus (Grading) bullet
Fee Structure bullet
Registration Forms bullet
Kaigan Newsletters bullet
Kaigan Korner Newsletters

To view the PDF documents, you require Acrobat Reader. You can download an Acrobat Reader for free from Adobe.

<% ListFolderContents(uploadNewsLettersDirVar) %>