<%
'-----------------------------------------------------
'Função: EncurtaUrl(ByVal Url)
'Sinopse: Encurta URL utilizando a API do Pra.La
'O formato de retorno da API para esta função é o
'PLAIN, que é o padrão.
'Parametro:
'	Url: URL Original (longa)
'Retorno: String (Url Encurtada)
'	      Caso o retorno seja "" (vazio) a URL não pode
'		  ser encurtada.
'-----------------------------------------------------
Function EncurtaUrl(ByVal Url)
	'Declarações
	Dim objXmlHttp
	Dim Retorno
	Dim User
	Dim Key
	Dim UrlPraLa

	'*************************************
	'Variáveis opcionais a serem alteradas
	'para trackeamento
	'*************************************
	User	= ""
	Key	= ""
	'*************************************

	Set objXmlHttp	= Server.CreateObject("MSXML2.XMLHTTP")

	UrlPraLa	= "http://pra.la/api?url=[URL]&user=[USER]&key=[KEY]"
	UrlPraLa	= Replace(UrlPraLa, "[URL]", Url)
	UrlPraLa	= Replace(UrlPraLa, "[USER]", User)
	UrlPraLa	= Replace(UrlPraLa, "[KEY]", Key)

	objXMLHttp.Open "GET", UrlPraLa, False
    	Call objXMLHttp.Send()
	Retorno	= objXmlHttp.responseText

	If Lcase(Retorno) = "http://pra.la/nok" Then
		Retorno = ""
	End If

	'Retorno
	EncurtaUrl = Retorno

	'Destruição das variáveis
	Set objXmlHttp	= Nothing
End Function



'-----------------------------------------------------
'EXEMPLO DE UTILIZAÇÃO
'-----------------------------------------------------
Dim Url
Dim UrlCurta
Url		= "http://www.minhaurllonga.com.br/index.php?param1=valor1&param2=valor2&param3=valor3"
UrlCurta	= EncurtaUrl(Url)
Response.Write "Minha URL Curta agora é: " & UrlCurta
%>