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). Can someone help me solve it?
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