<%
check_security(2)
%>
<%
dim folder
dim file
dim uploader_form_sql
sub request_uploader_form
''' request form inputs from this form
folder = request("folder")
file = request("file")
end sub
sub validate_uploader_form
''' request and validate data entered from this form
folder = trim(request("folder"))
file = trim(request("file"))
end sub
sub db_select_uploader_form
end sub
sub db_insert_uploader_form
sql = ""
'response.write sql
on error resume next
cn.Execute(sql)
if err.Number <> 0 then
b_error = true
else
end if
on error goto 0
end sub
sub db_update_uploader_form
sql = ""
'response.write sql
on error resume next
cn.execute(sql)
if err.number <> 0 then
b_error = true
end if
on error goto 0
end sub
sub db_delete_uploader_form
sql = ""
'response.write sql
on error resume next
cn.Execute(sql)
if err.number <> 0 then
b_error = true
end if
on error goto 0
end sub
do_search = request("do_search")
''' request form keys and inputs
file = request("file")
folder = request("folder")
''' request action
action = lcase(request("action"))
''' action case handler
select case action
case "select_uploader_form"
' select the requested key record from database
if file <> "" then
db_select_uploader_form
else
b_error = true
error_list.add "edit_uploader_form", "Specify record to select."
end if
case "insert_uploader_form"
' request form data and insert a new record into database
validate_uploader_form
if not b_error then
db_insert_uploader_form
end if
case "update_uploader_form"
' request form data and update an existing database record
validate_uploader_form
if not b_error then
if file <> "" then
db_update_uploader_form
else
b_error = true
error_list.add "update_uploader_form", "Specify record to update."
end if
end if
case "delete_uploader_form"
' delete the requested key database record
if file <> "" then
db_delete_uploader_form
response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
else
b_error = true
error_list.add "delete_uploader_form", "Specify record to delete."
end if
case "upload"
dim last_filename
ret_form = request("ret_form")
ret_field = request("ret_field")
folder = request("folder")
retv = upload_files(server.mappath(folder), "")
if retv = 1 then
if ret_field <> "" then
':: return filename to opener window
response.redirect "pu_upload.asp?msg=File+uploaded...+click+here+to+close."
else
':: refresh opener window
response.redirect "pu_upload.asp?msg=File+uploaded...+click+here+to+close."
end if
else
response.redirect "pu_upload.asp?msg=Upload+failed.+Make+sure+the+folder+exists+with+write+permissions."
end if
end select
':: handle the default case(s) for each form (separate from action= parameter)
folder = request("folder")
if action = "" then
':: display uploader form
':: request form name and input name so that
':: filename can be returned to opener page.
ret_form = request.querystring("ret_form")
ret_field = request.querystring("ret_field")
end if
%>
File Uploader - WorkSource Seattle King County
<%
display_errs
display_msg
%>
<%
':: check if hide form var was set
if not b_hide_uploader_form then
%>
Upload File
<%
':: end hide form if
end if
%>
<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>