<% u = "" if Request.ServerVariables("PATH_INFO")="/default.asp" then 'Подставить сюда ваш default-document u = Request.ServerVariables("SERVER_NAME") else u = Request.ServerVariables("SERVER_NAME") + Request.ServerVariables("PATH_INFO") if Request.ServerVariables("QUERY_STRING")<>"" then u = u + "?" + Request.ServerVariables("QUERY_STRING") end if end if REQUEST_STRING="http://universal.mainlink.ru/l.aspx?u="+Server.URLEncode(u) Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") xmlServerHttp.Open "GET", REQUEST_STRING, false Call xmlServerHttp.Send() respHTML = xmlServerHttp.responseTEXT Set xmlServerHttp = Nothing Response.CharSet = "windows-1251" Response.Write(respHTML) %>