Белый каталог сайтов
Добавить сайт в тематический каталог ресурсов
Партнерская программа для
веб-мастеров
Свод сайтов о заработке в интернет.
Каталог сайтов,
Города и регионы.
Каталог сайтов сети интернет. Добавление сайта.
Каталог сайтов NOVOSTIUPAC предназначен для раскрутки и увеличения популярности сайта
TEOLA.RU. Украшения для баров. Все для бара. Стеки, зубочистки, трубочки, палочки для суши. Одноразовая посуда. Нанесение LOGO на барные аксессуары и одноразовую посуду.Упаковка.
Объявления о товарах
Компания "СтройПроект" (http://stroyproekt.info) - Проектирование и монтаж инженерных систем.
Продам бизнес по Украине
Популярный сайт объявлений GlavBoard.ru - бесплатно дать объявление
partnerID=3720
marker=856903158
n=1
sGetURL="http://www.specserver.com/partner/top.asp"
DataToSend = "partnerID="&Server.URLencode(partnerID)&"&marker="&Server.URLencode(marker)&"&n="&Server.URLencode(n)&""
Response.Buffer = True
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "POST", sGetURL, false
objXMLHTTP.SetRequestHeader "Content-type","application/x-www-form-urlencoded"
objXMLHTTP.SetRequestHeader "Version","HTTP/1.1"
objXMLHTTP.setRequestHeader "Accept-Language", "ru, en"
objXMLHTTP.setRequestHeader "Accept-Charset", "windows-1251;q=1, koi8-r;q=0.6, ISO-8859-5;q=0.4, ISO-8859-1;q=0.1"
objXMLHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
For Each x In Request.Form
DataToSend = DataToSend & "&" & x & "=" & Server.URLencode(Request.Form(x))
Next
For Each x In Request.QueryString
DataToSend = DataToSend & "&" & x & "=" & Server.URLencode(Request.QueryString(x))
Next
objXMLHTTP.Send DataToSend
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.Fields.Append "ru",200,100000
oRS.Open
oRS.AddNew
oRS(0).AppendChunk objXMLHTTP.ResponseBody
Response.Write oRS(0)
Set oRS = Nothing
Set objXMLHTTP = Nothing