Problema con Métodos del componente SAFileUp

[trasgukabi]

Código:

<%
Dim Upload ' definimos la variable a utilizar
Set Upload = Server.CreateObject("SoftArtisans.FileUp")
Upload.Path = Server.MapPath("/uploads")
if not Upload.IsEmpty Then
Upload.Save
if Err <> 0 Then
Response.Write("Ocurrió un error al intentar subir el archivo.")
else
Response.Write("Archivo subido: " & Upload.ShortFilename)
   end if
else
   ' si se envía el formulario vacío mostramos este mensaje
   Response.Write("Por favor, seleccione un archivo para realizar el upload")
end If

' destruimos el objeto
Set Upload = Nothing
%>