chrishirst — Wed, 16 Nov 2005 08:19:04 +0000

you will need to use the XMLHTTP Object to get the page content with ASP;
This will return the page source if it gets a 200 response otherwise it will return the error code.

function GetPageCode(strURL)
 Response.Buffer = True
  Dim  xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  
 	xml.Open "GET", strURL, False
	xml.setRequestHeader "User-Agent", ' insert your own user agent string here
	xml.Send
	if xml.status = 200 then
	GetPageCode = xml.responseText
	else
	GetPageCode = cstr(xml.status) & " (" & xml.StatusText & ")"
	end if
  Set xml = Nothing
end function

Abhishek Reddy — Wed, 16 Nov 2005 07:12:55 +0000

Probably your biggest challenge here is finding ASP/VB analogues of the PHP curl bindings, and maybe also using that bit of Perl regex. I do not recall if and how ASP/VB supports either of these; curl packages are available for Win32, but does ASP/VB ship with it?

Time to hit Google.

(Let me know if the above didn't make any sense, I'm not sure how confident you are with this.)

bja888 — Wed, 16 Nov 2005 00:47:14 +0000

Im a asp guru but I know not VB. I'm quite curious though... Why would you want to go from php to asp?