[Resolvido] Encurtando Url Com Goo.gl

[Patrique 0]

<%

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

' Autor da Função: Patrique André (O gostosão)

' Perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

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

Function google(link)

Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")

URLAPI = "http://goo.gl/api/shorten?url="& link &""

objXMLHTTP.Open "POST", URLAPI, FALSE

objXMLHTTP.send()

resultado = objXMLHTTP.responseText

separa = Split(resultado,"""")

urlcriada = separa(3)

Response.Write urlcriada

Set objXMLHTTP = nothing

End Function

 

call google("http://forum.imasters.com.br/index.php?/topic/411696-encurtando-url-com-goo-gl/")

%>