Back

<!--#INCLUDE file="clsUpload.asp"-->
<%
Dim objUpload
Dim strSystemFileName
Dim strPath

' Instantiate Upload Class
Set objUpload = New clsUpload

' Grab the file name
strSystemFileName = objUpload.Fields("File1").FileName
Session("SystemSavedFile") = strSystemFileName

' Compile path to save file to
strPath = Server.MapPath("Uploads") & "\" & strSystemFileName

' Save the binary data to the file system
objUpload("File1").SaveAs strPath

' Release upload object from memory
Set objUpload = Nothing
%>
File has been saved in file system.<BR>
<BR>
View this file:<BR>
<BR>
<A href="Uploads\<%=strSystemFileName%>"><%=strSystemFileName%></A>

Back