<%@ Language=VBScript %>
<%
'' This code is absolute freeware. you can do with it as you please. 
'' There are no restrictions what so ever, but the code is AS IS, no warrenty or liabilty
'' Please leave these commentlines intact
'' Netherlands, February 2004
'' M.Blokdijk
'' maarten@blokdijk.com
'' V 1.0
%>
<!-- #include file="UploadClass.asp" -->
<%
foldername=session("foldername")
' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader
' This starts the upload process
Uploader.Upload()
' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
	Response.Write "Arquivo(s) não enviado(s)."
Else
	' Loop through the uploaded files
	For Each File In Uploader.Files.Items
		
		' Check where the user wants to save the file
			
			' Save the file
			File.SaveToDisk (server.mappath(foldername))
	Next
End If
Response.redirect("filemanager.asp?Action=viewfolder&path="&foldername&"")
%>