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