subir imagenes al servidor

[Zippo3000]

Con el componente SAFileUp
Hola a quien sea, tengo un problema con este componente, lo reviso y reviso, llamo a la empresa, pregunto y nada .
El problema es que intento hacer un upload a traves de un formulario y despues de un rato me tira este error

HTTP 500 - Error interno del servidor

sin embargo todas las demas paginas funcionan perfectamente

el codigo es que qu se saca de internet y es muy simple, faltará algo?

<%
Dim Upload ' definimos la variable a utilizar

' creamos el objeto SAFileUp para poder subir el archivo
Set Upload = Server.CreateObject("SoftArtisans.FileUp")

' Indicamos la ruta donde queremos que se guarde el archivo
Upload.Path = Server.MapPath("pics/fotos")

' comprobamos que el formulario no se envíe vacío
if not Upload.IsEmpty Then

' si el formulario no esta vacío, subimos el archivo.
' en ruta establecida anteriormente se guardara el archivo
Upload.Save

'comprobamos que no haya errores
if Err <> 0 Then
Response.Write("Ocurrió un error al intentar subir el archivo.")
else
Response.Write("Se guardo correctamente el archivo: " & 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
%>