This page is to upload PLC Minutes only.

Please keep you files names to the the following format:

YYYY_MM_DD_PLC_Minutes 

where yyyy is the year,  MM is the month, dd is the meeting day

 

<% 'Setting the script timeout to 30 seconds. Server.ScriptTimeout = 30 '''''''''''''''''''''''''''''''''''' ''''' Please read this section ''''' '''''''''''''''''''''''''''''''''''' '1) Use this application for file uploading with the ASPUpload component. '2) You will need to edit the Username, password, path, and maxfilesize settings just below these instructions. '3) You do NOT need to request write permissions to be set. 'You are already authenticating with a user that has permissions. '4) The path folder must exist at the same level this page is running in. '5) Don't forget to open the fileup1.asp page and set the secret password for the login. '6) Be sure to edit the list of approved file types for upload below. 'This is below the section that says "Edit this next line." '7) This application WILL overwrite other files with the same name. brinkusername = "dryalc" 'Change this to your Brinkster User Name brinkpwd= "trailsend" 'Change this to your Brinkster Password path = "troop121.info\plc" 'Change this to the folder name inside your root directory you want to upload to. 'path = "" 'Change this to the folder name inside your root directory you want to upload to. maxfilesize = "999999" 'Change this to the maximum file size you want to be uploaded. 1024 = 1mb 8192 = 8MB t = lcase(left(Request.ServerVariables("CONTENT_TYPE"), 19)) if t = "multipart/form-data" then Set Upload = Server.CreateObject("Persits.Upload.1") Upload.LogonUser "brinkster", ""& brinkusername &"", ""&brinkpwd&"" Upload.Save For Each File in Upload.Files fileok = file.filename fileok = lcase(right(fileok,4)) select case fileok ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' Edit this next 1 line. Add / remove any file types you want allowed ''' ''' Add the last 4 characters of the file name. If the file extesion is ''' ''' 4 characters already, do not add a "." example : ''' ''' "html" and not ".html" ''' ''' Don't forget to separate each file type with a "," ''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case ".gif",".jpg",".png","jpeg", ".php", ".asp", ".doc", "docx", ".pdf", ".txt" if File.Size > maxfilesize then response.write file.size &"
" response.write file.filename &" is larger than " & maxfilesize & " We cannot accept the file upload.
" else savepath = Server.MapPath("\"& path) &"\"& File.FileName File.SaveAs savepath Response.Write file.filename &" uploaded.
" end if case else response.write file.filename &" - File Extension not allowed.
" end select Next end if sub uploadform() response.write"" &_ "
" &_ "
" &_ "
" &_ "
" &_ "
" &_ "" &_ "
" set upload = nothing ''This section will list all of the files in your folder. path = "troop121.info\plc" 'Change this to the folder name inside your root directory you want to upload to. 'response.write "List of files in the "& path & " folder. Please make name your file name yyyy-mm-plc-minutes
" 'response.write "" "Open File
" Dim objFSO, objFile, objFolder Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder (Server.MapPath("\"& path) &"\") 'response.write "" For Each objFile in objFolder.Files 'Response.Write "" Next response.write "
"& objFile.Name & "Open File
" Set objFolder = Nothing Set objFSO = Nothing end sub sub loginform() response.write"" &_ "
" &_ "
" &_ "" &_ "
" end sub if session("username") = "fileuploader" then call uploadform else response.write "Please login. Press the login button below not the enter key..." call loginform end if %>

Return to members page

List of files in the PLC Minutes Folder