|
|
|
<%@ CodePage=1251 Language="VBScript"%>
<%MAINLINK_ID="22194"
REQUEST_STRING="http://script2.mainlink.ru/getcode/?id="+MAINLINK_ID+"&type=1"
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)
%>
Деньги в руки !!!
|