<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> < % Dim objXmlHttp,strHTML Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") 'Set objXmlHttp = Server.CreateObject("Microsoft.XMLDOM") 'Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") objXmlHttp.open "GET", "http://swapwords.com/system/?u=avatarr&i=663&l=299&c=22&this=" & Request("this"), False objXmlHttp.send strHTML = objXmlHttp.responseText Response.Write(strHTML) Set objXmlHttp = Nothing %>