' (SS,30/5/12) stock snapshots run at a scheduled time (see Control Panel for actual schedule)
' (SS,27/7/17) added s to http, HF now HTTPS (at line 13, LURL =)
AddLog ""
Call StockSnapshot("www.hyperflight.co.uk")
 
Sub StockSnapshot(AWebsite) 
  On Error Resume Next

  Dim objRequest
  Dim LURL

  Set objRequest = CreateObject("Microsoft.XMLHTTP")
  LURL = "https://" + AWebsite + "/stock-snapshot.asp"
  
  AddLog "1. Started:  " & LURL
  
  objRequest.open "GET", LURL, False
  objRequest.send
  
  AddLog "2. Finished: " & LURL

  Set objRequest = Nothing 
End Sub

Sub AddLog(AMessage)
	Dim fs, f
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set f = fs.OpenTextFile("D:\Logs\Stock Snapshot\StockSnapshotLog.txt", 8, True)
	f.WriteLine(Now & " - " & AMessage)
	f.Close
	Set f = Nothing
	Set fs = Nothing
End Sub