Try updating this line:
set UPS_objSrvHTTP = Server.CreateObject ("MSXML2.ServerXMLHTTP")
set UPS_objSrvHTTP = Server.CreateObject ("MSXML2.ServerXMLHTTP.6.0")
I did a google search and it suggested this updated is needed for TLS 1.2
Your friends over here at WebAssist! These Dreamweaver extensions will assist you in building unlimited, custom websites.
These out-of-the-box solutions provide you proven, tested applications that can be up and running now. Build a store, a gallery, or a web-based email solution.