Bitly v 3 + xml + asp clasicc 'msxml3.dll error '80072f7d' 'An error occurred in the secure channel support

[Roberto Ernesto López]

Since a week ago I stopped working version 2.0.1 of the Bitly library. Update to version 3 but it is generating the following error:
(msxml3.dll error '80072f7d' An error occurred in the secure channel support). How is it possible to solve?

I am implementing a library published in Classic ASP in the Blog

http://programwitch.com/blog.aspx?id=2580.


Function GetBitly(strInLink)

DIM strInLink= "www.xxxx.pdf"
DIM oAuthCode=xxxxxxxx
DIM APIAddress="https://api-ssl.bitly.com/v3/shorten?"           
DIM USERNAME=xxxxxxx
DIM APIKEY=xxxxxxxx
DIM strOutLink
DIM strURL
DIM objHttp
DIM objXML
      strOutLink = ""              
      strURL = APIAddress              
        strURL = strURL & "access_token=" & oAuthCode                    
      strURL = strURL & "&format=xml"  
      strURL = strURL & "&longUrl=" & Server.URLEncode(strInLink)
      set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
                
      if err.number <> 0 then set objHttp = Server.CreateObject("Microsoft.XMLHTTP")    
      objHttp.open "POST", strURL, false
      objHttp.Send
    
      'ERROR
      'msxml3.dll error '80072f7d'
      'An error occurred in the secure channel support
    
    
      if objHttp.status <> 200 then
         // If error just return original link
         strOutLink = strInLink
      else
         SET objXML = Server.CreateObject("Microsoft.XMLDOM")        
         objXML.loadxml(objHTTP.responseText)
         strOutLink = objXML.selectSingleNode("/bitly/results/nodeKeyVal/shortUrl").Text                
         SET objXML = Nothing
      end if
      set objHttp = nothing
      GetBitly = strOutLink
End Function


Thank you.

Roberto