<% 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)
%>