Tradução Online com Babylon em ASP

Com este código é possível utilizar o tradutor on-line Babylon em qualquer página web, no entanto o servidor de hospedagem precisa ter suporte a tecnologia ASP.

<% Response.Charset="ISO-8859-1" %>

<%
Function BinaryToString(strBinary)
Dim intCount, xBinaryToString
xBinaryToString =""
For intCount = 1 to LenB(strBinary)
xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))
Next
BinaryToString = xBinaryToString
End Function 

function pega(p,para)
  if Not (p = "") then
	Set XMLHttp = Server.CreateObject("MSXML2.XMLHTTP")
	XMLHttp.open "GET","https://online.babylon.com/cgi-bin/trans.cgi?layout=uol.txt&lang="&para&"&word="&p&"", false
	XMLHttp.send()
	pega = BinaryToString(XMLHttp.responseBody)  'ResponseText

	pegaa = split(pega,chr(10))
	for i = 5 to UBound(pegaa)
	    pegaa(i) = replace(pegaa(i),"  ","")
	    	    pegaa(i) = replace(pegaa(i),"""","'")
	    
	    if i = 5 then pegaa(i) = ""&pegaa(i)&""
	    
		if instr(pegaa(i),""
        end if
	next
	response.write "
"&ba&"
"
  end if
end function
%>
<% Call pega( request.QueryString("traducao"),request.QueryString("para")) %>

Tradutor online – Babylon.zip