<% 'Write this form to db on error resume next path = "download/" & year(nowcalibrate) & "-" & month(nowcalibrate) & "-" & day(nowcalibrate) & "/" uploadpath = "../" & path localpath = server.mappath(uploadpath) & "\" 'response.write localpath Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.folderexists(localpath) then fso.createfolder(localpath) end if if not fso.folderexists(localpath) then response.write "Sorry, folder creation fail! (" & localpath & ")" response.end end if set fso = nothing Set Upload = Server.CreateObject("Persits.Upload") ' We must call Upload.Save or SaveToMemory before we can use Upload.Form! Upload.SetMaxSize 1024000, True '1MB = 1024000 Upload.OverwriteFiles = false tmpuplcount = Upload.SaveVirtual(uploadpath) If Err.Number = 8 Then Response.Write "Your file is too large. Please try again." else 'Request Data sdl_name = Upload.form("sdl_name") band_id = Upload.form("band_id") if err then ErrMSG = err.description err.clear else if tmpuplcount > 0 then ErrMsg = "Upload OK.
" For Each File in Upload.Files 'response.write "http://www." & Request.ServerVariables("SERVER_NAME") & "/" & path & File.ExtractFileName 'response.write "

" 'Check the file extension. If not GIF, JPG, BMP, or PNG do not display size Ext = UCase(Right(File.ExtractFileName, 3)) If Ext = "PDF" Then ErrMsg =ErrMsg & uploadpath & File.ExtractFileName & " (" & File.ImageWidth & " x " & File.ImageHeight & ")
" 'ADD RECORD qryimg ="INSERT INTO sdl(sdl_name, sdl_url, band_id) VALUES('"& encode(sdl_name) &"', '" & encode(path & File.ExtractFileName) & "', " & band_id & ")" response.write qryimg 'response.end Set rsImg = conn.execute(qryimg) Else ErrMsg =ErrMsg & uploadpath & File.ExtractFileName & " is not an file.
" End If Next end if response.write ErrMsg set rsnoImg = nothing set rsImg = nothing set rsIcon = nothing set Upload = nothing 'response.end end if response.write "" end if %>