I have asked to support to change the directory write permissions... but it's like this is not the main problem ?
(ticket 14745)
here is the piece of code:
CODE
dim upl1
Set upl1 = Server.CreateObject("ASPSimpleUpload.Upload")
dim fs1
set fs1 = Server.CreateObject("Scripting.FileSystemObject")
archivoSubir="noticias_"&news
extArchivoSubir=fs1.GetExtensionName(request.form("upl_img"))
linkSubir= "/media/arch_noticias/" & archivoSubir &"."&extArchivoSubir
' Delete the file...
if fs1.FileExists(server.mappath(linkSubir))=true then
' Delete...
fs1.DeleteFile server.mappath(linkSubir),true
end if
' Upload the file...
If upl1.SaveToWeb("upl_img", linkSubir) =false Then
response.Write("The file "+linkSubir+" can't be uploaded, please try again..."&server.mappath(linkSubir))
response.End()
End If
Set upl1 = Server.CreateObject("ASPSimpleUpload.Upload")
dim fs1
set fs1 = Server.CreateObject("Scripting.FileSystemObject")
archivoSubir="noticias_"&news
extArchivoSubir=fs1.GetExtensionName(request.form("upl_img"))
linkSubir= "/media/arch_noticias/" & archivoSubir &"."&extArchivoSubir
' Delete the file...
if fs1.FileExists(server.mappath(linkSubir))=true then
' Delete...
fs1.DeleteFile server.mappath(linkSubir),true
end if
' Upload the file...
If upl1.SaveToWeb("upl_img", linkSubir) =false Then
response.Write("The file "+linkSubir+" can't be uploaded, please try again..."&server.mappath(linkSubir))
response.End()
End If