<% '########################################################### ' Infinite FX browser uploading script using ASPUpload component ' See Readme for Setting up info ' Free to distribute as long as this notice stays intact ' Copyright Robert Griffiths/Infinite FX ' Email: rob@infinitefx.co.uk ' Website: http://www.infinitefx.co.uk ' For more info about Infinite FX web design visit our site or email us! ' And finally, enjoy the script! '########################################################### Dim strPath Dim strDest Dim strFolder Server.ScriptTimeout = 500 strDest = Request.querystring("dest") strFolder = Request.querystring("dest") If strDest = "base" Then strFolder = "./" End If strPath = server.mappath(strFolder) Set Upload = Server.CreateObject("Persits.Upload.1") Count = Upload.Save(strPath) %> <% = Count %> files uploaded successfully!

Back to upload form!