Pues muy fácil, esto es un caso práctico de cómo podemos aprovechar el xmlhttp.
Código:
<%
if request("traducir") = "yes" then
set http_obj = createObject("Microsoft.XMLHTTP")
cadena2 = "http://babelfish.altavista.com/babelfish/tr?doit=done&intl=1&tt=urltext&urltext="&request("palabra")&"&lp=es_en"
http_obj.Open "GET",cadena2,false
http_obj.Send()
codigo = Server.HTMLEncode(http_obj.responseText)
pos = instr(codigo, "10px;>")
codigo = mid(codigo,pos+9,len(codigo))
pos2 = instr(codigo ,"&")
codigo = mid(codigo,1,pos2-1)
end if
%>
<form action="babel.asp" method="get">
<textarea name="palabra" cols="40" rows="10"><%=request("palabra")%></textarea><br>
<input type="hidden" name="traducir" value="yes">
<input type="submit"><br>
</form>
<%=codigo%>
Copiamos el código en un página asp que se llame babel.asp.
¿Cómo funciona?
Pues muy fácil, enviamos la palabra que queremos traducir a nuestra própia página, ésta lo que hace es ver el código fuente de la página de babelfish con nuestra frase ya traducida, busca dónde se encuentra la traducción y listo, la metemos en la variable "codigo" y la mostramos.
Es una pequeña demostración del poder que tiene el objeto Microsoft.XMLHTTP
Nota: Editado por Al Zuwaga para colocar el código entre etiquetas CODE en vez de QUOTE debido a que desforma las tablas