<%
Function GetHtmlPageSource(ByVal URL)
Dim objHTTP
Set objhttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
If Left(URL, 7) <> "http://" Then URL = "http://" & URL
objHTTP.open "GET", URL, False
objHTTP.send
If objHTTP.Status = "200" Then
GetHtmlPageSource = objHTTP.responseText
End If
End Function
%>
<%= GetHtmlPageSource("http://www.delhionline.in/common-right.htm")%>
|
