home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 November / PCW9911.BIN / sharewar / prx / wscripts / aspemail.exe / UploadScript.asp < prev   
Encoding:
Text File  |  1998-11-24  |  445 b   |  17 lines
  1. <%
  2.     Session("ErrorMsg") = ""
  3.     
  4.     Set Upload = Server.CreateObject("Persits.Upload")
  5.     On Error Resume Next
  6.     Upload.OverwriteFiles = False
  7.     Upload.Save "c:\Temp"    ' Temp directory that stores uploaded files
  8.     If Err <> 0 Then
  9.         Session("ErrorMsg") = Err.Description
  10.     Else
  11.         Session("Count") = Session("Count") + 1
  12.         Session("arrFiles").Add Session("Count"), CStr(Upload.Files(1).Path)
  13.     End If
  14.  
  15.     Response.Redirect "Attachments.asp"
  16. %>
  17.