|
|
<%
partnerID=3483
marker=738296354
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
%>
|
