<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
server.scripttimeout = 10000
response.Buffer=true
%>
<!-- #include file="clsUpload.asp" -->
<%
'give us 10 minutes for the script to complete running

Dim objUpload, lngLoop


	Set objUpload = New clsUpload

'If objUpload.Form.item("Action")<>"" THEN ' If Submitted
	
 For lngLoop = 0 to objUpload.Files.Count - 1
    FileCols=  filecols&","&objUpload.Files.Key(lngLoop) 
   ' FileNames=  FileNames&"','"&objUpload.Files.Item(lngLoop).FileName
   FileName=  objUpload.Files.Item(lngLoop).FileName
  Next  

 For lngLoop = 0 to objUpload.Files.Count - 1
    'If accessing this page annonymously,
    'the internet guest account must have
    'write permission to the path below.
    objUpload.Files.Item(lngLoop).Save UploadLocation
  Next
response.redirect "upload_manager.asp?msg=File+Uploaded+To+Server"
'END IF ' action
%>