listo u_goldman! Aquí les dejo el codigo básico y funcionando.
Demás está decir que podría ser optimizado mucho más, pero por algo se empieza
<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
'--aqui un ejemplo con is.gd
' xml.Open "GET", "http://is.gd/api.php?longurl=http://www.forosdelweb.com", False
'--y aqui un ejemplo con tinyurl
xml.Open "GET", "http://tinyurl.com/api-create.php?url=http://www.forosdelweb.com", False
xml.Send
Response.Write "<h1>La URL acortada es</h1>" & xml.responseText
Set xml = Nothing
%>
Saludos!
