|
Displaying Source Code(s)
|
|
Get Remote File (Get File From Remote Server)
--------------------------------------------------------------------------------
<%
Dim sSource
Dim oHTTP
Dim sPageData
sSource = "http://www.srh.noaa.gov/data/MIA/CWF/MIACWFTBW.1.txt"
Set oHTTP = Server.CreateObject ("MSXML2.ServerXMLHTTP.4.0")
Call oHTTP.open("GET", sSource, false)
Call oHTTP.send
sPageData = oSrvHTTP.responseText
%>
|
|
|