The file was successfully transmitted by the user.

<% 'on error resume next upl.Save (sPhysicalMediaPath) If Err <> 0 Then Select Case Err Case 8 : Response.Write("Error: You Attempted To Upload A File Larger Than " & FILESIZEMAX & " bytes.
Please Reduce The Filesize And Try Again!") Response.End() End Select Else Set oFile = upl.Files("filename") '---Parses out the Content type FCONT = oFile.ContentType Select Case LCase(FCONT) Case "gif" , "image/jpeg", "image/jpg", "image/pjpeg", "" Case Else Response.Write "

" & "You are restricted to only upload gif and Jpeg files.
" Response.End End Select End If if Err <> 0 Then %> <% Else %> <% Response.Write("Upload saved successfully to " & oFile.FileName) & "
" Response.Write("The filename is now " & oFile.FileName) End If %>