Avoir des problèmes avec un téléchargeur d'image sur un site Web ASP

Question

J'ai un téléchargeur d'image intégré dans un site pour les propriétés et il fonctionnait bien et maintenant chaque fois que j'utilise le téléchargeur d'images, il me donne un message d'erreur interne du serveur 500.

Mon journal des erreurs ressemble à ceci, est-ce que quelqu'un sait comment donner un sens à ce qu'il me dit?

ERREUR FICHIER LOG - https://pastebin.com/QtenvubM

CODE UPLOADER:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include virtual="/connection_includes/prop_search_conn_str.asp" --> 
<% 

Fkey = request.QueryString("Fkey") 
property_ID = request.QueryString("property_ID") 

uploadpath = "/palm_group/property_images/prop_no_" & property_ID 

'------------------------------------------------------------ 

Set fs=Server.CreateObject("Scripting.FileSystemObject") 

If fs.FolderExists(server.MapPath(uploadpath)) = true Then 
     folder_exists = "yes" 
Else 
     folder_exists = "no" 
End If 

'response.write uploadpath 
'response.write folder_exists 
'response.write server.MapPath(uploadpath) 

'------------------------------------------------------------ 

if folder_exists = "no" then 

     fs.createfolder(server.MapPath(uploadpath)) 

end if 

'------------------------------------------------------------- 

Sub ImageUpload() 
Server.ScriptTimeout = 555 '[Two Minute Timeout (this will allow upto 2 minutes of activity before ending)] 
Set Upload = Server.CreateObject("Persits.Upload") 
Count = Upload.Save(Server.MapPath(uploadpath)) 

     For Each File in Upload.Files 
       LOCAL_LOC = File.Path 
       REMOTE_LOC = RootDir & replace(file.path, Server.mappath(uploadpath) + "\", "") 
       FILE_SIZE = File.Size 
       session("file") = File.filename 
     Next 

Set Upload = Nothing 
End Sub 

'------------------------------------------------------------- 
Call ImageUpload() 
'------------------------------------------------------------- 
if session("file") = "" then 
     set fname=nothing 
     set fs=nothing 
     response.redirect "/CMS_ADMIN_FILES/edit_property.asp?error=nofile&unique_ID=" & property_ID & "&Fkey=" & Fkey 
end if 
'------------------------------------------------------------- 


file_extension = lcase(right(session("file"),4)) 
file_is_image = "false" 

if file_extension = "jpeg" then file_extension = ".jpg" 

     if file_extension = ".jpg" then file_is_image = "true" 
     if file_extension = ".png" then file_is_image = "true" 
     if file_extension = ".gif" then file_is_image = "true" 

if file_is_image <> "true" then 

     If fs.FileExists(server.MapPath(uploadpath & "\" & session("file"))) = true Then 
       fs.DeleteFile(server.MapPath(uploadpath & "\" & session("file"))) 
     end if 

     set fname=nothing 
     set fs=nothing 

     response.redirect "/CMS_ADMIN_FILES/edit_property.asp?error=notimage&unique_ID=" & property_ID & "&Fkey=" & Fkey 

else 

'  response.write file_extension 
'  response.write "<br>" 
'  response.write server.MapPath(uploadpath & "\" & session("file")) 

if instr(session("file"),",") then response.Redirect "/CMS_ADMIN_FILES/edit_property.asp?error=illegalchar&unique_ID=" & property_ID & "&Fkey=" & Fkey 

old_file = server.MapPath(uploadpath & "\" & session("file")) 

file_counter = 1 
stop_this_loop = "go" 
session.Contents.Remove("file") 

     do while stop_this_loop = "go" 

         if file_counter < 10 then 
           new_file = "0" & file_counter & file_extension 
         else 
           new_file = file_counter & file_extension 
         end if 
     response.write "<br>" & new_file 

       If fs.FileExists(server.MapPath(uploadpath & "\" & new_file)) = true Then 

         file_counter = file_counter + 1 

       else 

         stop_this_loop = "stop" 

       end if 

         if file_counter < 10 then 
           new_file = "0" & file_counter & file_extension 
         else 
           new_file = file_counter & file_extension 
         end if 

     loop 

         fs.CopyFile old_file,server.MapPath(uploadpath & "\" & new_file) 
         fs.DeleteFile(old_file) 

end if 

set fname=nothing 
set fs=nothing 


' GET THE LAST LARGEST IMAGE ORDER NUMBER AND ADD ONE TO IT 

Set order_images = Server.CreateObject("ADODB.Recordset") 
order_images.ActiveConnection = CONN_property_search_images 
order_images.Source = "SELECT TOP 1 img_order FROM property_images WHERE img_property_ID='" & session("ID") & "' ORDER BY img_order DESC" 
order_images.CursorType = 0 
order_images.CursorLocation = 2 
order_images.LockType = 2 
order_images.Open() 

     if order_images.eof then 
       new_order_number = 1 
     else 
       new_order_number = order_images("img_order") + 1 
     end if 

order_images.close 
set order_images = nothing 

' NOW STICK IT IN THE DATABASE AND HAVE DONE WITH IT 


     Set DBCmd_content = Server.CreateObject("ADODB.Command") 
     DBCmd_content.ActiveConnection = CONN_property_search_images 
     DBCmd_content.CommandText = "INSERT INTO property_images(img_decription,img_property_ID,img_url,img_order) VALUES('','" & property_ID & "','" & uploadpath & "/" & new_file & "','" & new_order_number & "')" 
     DBCmd_content.Execute 
     DBCmd_content.ActiveConnection.Close 

     response.Redirect "/CMS_ADMIN_FILES/edit_property.asp?action=addok&unique_ID=" & property_ID & "&Fkey=" & Fkey 

%> 

Answer 1

Vous devez vérifier l'enregistrement de la DLL Persits Télécharger. Voir ici:

Server object error 'ASP 0177 : 800401f3' Server.CreateObject Failed