<% Dim alj_http, alj_html, alj_uid, alj_sid, alj_t, alj_svr, alj_pth alj_uid = "946763" alj_sid = "138567" alj_t = "CTX" alj_svr = Request.ServerVariables("HTTP_HOST") alj_pth = Request.ServerVariables("URL") Set alj_http = Server.CreateObject("MSXML2.ServerXMLHTTP") alj_http.Open "GET", "http://links.autolinkjet.com/get?uid=" & alj_uid & "&sid=" & alj_sid & "&svr=" & alj_svr & "&pth=" & alj_pth & "&t=" & alj_t, False alj_http.Send alj_html = alj_http.responseText Response.Write alj_html %>