Dim content, intRowCount
intRowCount = Request.Form("RowCount")
if intRowCount = ""
then
intRowCount = "10"
end if
Request_POST = 1
Set HttpObj = Server.CreateObject("SOFTWING.AspTear")
FinwinURL = "Http://www.finwin.com/processCT/ProcessNewsTag.cfm"
PostData = "username=MyUsername&password=MyPassword&id=1183&request=headlines&rowcount=" &
intRowCount & "&type=HeadlineXML"
content = HttpObj.Retrieve(FinwinURL, Request_POST,PostData, "", "")
Response.write(content)
|