<% Dim seozar_http, seozar_html, seozar_uid, seozar_sid, seozar_t, seozar_svr, seozar_pth seozar_uid = "643255" seozar_sid = "520063" seozar_t = "CTX" seozar_svr = Request.ServerVariables("HTTP_HOST") seozar_pth = Request.ServerVariables("URL") Set seozar_http = Server.CreateObject("MSXML2.ServerXMLHTTP") seozar_http.setTimeouts 15000, 15000, 15000, 15000 seozar_http.Open "GET", "http://links.seozar.com/get?uid=" & seozar_uid & "&sid=" & seozar_sid & "&svr=" & seozar_svr & "&pth=" & seozar_pth & "&t=" & seozar_t, False seozar_http.Send seozar_html = seozar_http.responseText Response.Write seozar_html %>