Back

<%
'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