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=query&newurl=http://www.somedomain.com/story_handler.asp"
content = HttpObj.Retrieve(FinwinURL, Request_POST,PostData, "", "")
Response.write(content)
|