|
<%
Function put_url (strURL,strWHAT)
on error resume next
set o_xmlhttp = Server.CreateObject ("MSXML2.ServerXMLHTTP")
o_xmlhttp.open "POST", strURL ,False,"",""
o_xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
o_xmlhttp.send strWHAT
put_url = o_xmlhttp.responsetext
set o_xmlhttp = nothing
End Function
fuelprices= put_url("http://www.airnav.com/fuel/local.html","s=32114")
fuelprices=replace(fuelprices,"","~START~")
fuelprices=replace(fuelprices,"","~START~")
fuelprices=replace(fuelprices,"Spruce Creek Airport","~START~Spruce Creek Airport")
fuelprices=replace(fuelprices,"","~START~")
arrzzt = Split(fuelprices,"~START~")
response.write "
"
response.write ""
%>
|
