<% '----------------------------------------------------------- '-- TITLE: FILE FUNCTIONS '-- AUTHOR: MALCOLM ELSWORTH [malcolm@electricputty.co.uk] '-- LAST MODIFIED: 07-05-05 '-- (C) ELECTRIC PUTTY LIMITED '----------------------------------------------------------- '----------------------------------------------------------- '-- WRITE OUR ALL FILES '----------------------------------------------------------- function viewAllFiles() if len(confirmMsg) > 0 then response.write("

" & confirmMsg & "

") else response.write("

" & VbCrLf) end if response.write("" & VbCrLf) response.write("" & VbCrLf) response.write(" " & VbCrLf) response.write(" " & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write(" " & VbCrLf) response.write(" " & VbCrLf) response.write("" & VbCrLf) response.write("

Folder name	Edit
" & writePageTitle(this_page_id) & "

") dim thisFileID dim thisFileName rowClass = "odd" strSQL = ""&_ "Select * from files where ia_parentid = " & this_page_id & " order by file_title" Set rs = LoadRSFromDB(strSQL) if not rs.EOF then response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) Do While not rs.EOF thisFileID = rs("file_id") thisFileName = rs("file_title") response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) if rowClass = "odd" then rowClass = "even" else rowClass = "odd" end if rs.movenext Loop response.write("

File name	Edit	Delete
" & thisFileName & "

") else response.write("

There are currently no files in this folder

") end if set rs = nothing response.write("" & VbCrLf) end function '----------------------------------------------------------- '-- FUNCTION TO ADD/EDIT FILE DETAILS '----------------------------------------------------------- function addEditFile(file_id) dim this_process dim this_screenTitle if len(file_id) > 0 then strSQL = "Select * from files where file_id = " & file_id Set rs = LoadRSFromDB(strSQL) if not rs.EOF then this_id = file_id this_process = "update" this_formAction = "Update file" this_title = rs("file_title") this_file_src = rs("file_src") this_file_desc = rs("file_desc") this_file_publication_date = rs("file_publication_date") this_file_author = rs("file_author") this_file_categories = rs("file_categories") this_file_openNodes = rs("file_openNodes") end if set rs = nothing this_screenTitle = "Edit file into" else this_process = "add" this_formAction = "Add file" this_id = "" this_title = "" this_file_src = "" this_file_desc = "" this_file_publication_date = "" this_file_author = "" this_file_categories = "" this_file_openNodes = "" this_screenTitle = "Add file to '" & writePageTitle(this_page_id) & "' folder" end if response.write("

" & this_screenTitle & "

" & VbCrLf) response.write("

" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("File title:" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) if this_process = "add" then response.write("" & VbCrLf) else response.write("File folder:" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) end if response.write("File source:" & VbCrLf) response.write("

" & VbCrLf) if len(this_file_src) > 0 then dim fileExtension fileExtension = lcase(right(this_file_src,3)) select case fileExtension case "pdf" FileIcon = "icon_filePDF.gif" case "doc" FileIcon = "icon_fileWord.gif" case else FileIcon = "icon_fileWord.gif" end select response.write("

" & this_file_src & "

") end if response.write("" & VbCrLf) response.write("

" & VbCrLf) response.write("

" & VbCrLf) response.write("File description:" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) response.write("Date" & VbCrLf) if len(this_file_publication_date) > 0 then thisYear = year(this_file_publication_date) thisMonth = month(this_file_publication_date) thisDay = day(this_file_publication_date) else thisYear = year(Date) thisMonth = month(Date) thisDay = day(Date) end if call writeDateDropdowns("filePubDay","",thisDay,1,32,"") call writeDateDropdowns("filePubMonth","",thisMonth,1,13,"") call writeDateDropdowns("filePubYear","",thisyear,2000,2021,"") response.write("

" & VbCrLf) response.write("File author:" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write(" " & VbCrLf) response.write("

" & VbCrLf) response.write("

" & VbCrLf) response.write("" & VbCrLf) response.write("" & VbCrLf) response.write("

" & VbCrLf) response.write("

" & VbCrLf) end function function renameFilesFolder() response.write("

Rename folder

" & VbCrLf) response.write("" & VbCrLf) end function %>