' (SS,6/12/12) order reminders run at a scheduled time (see Control Panel for actual schedule)
AddLog ""
' (SS,16/12/16) removed following
' Call SendOrderReminders("www.galleonsupplies.co.uk")


Sub SendOrderReminders(AWebsite) 
  On Error Resume Next

  Dim objRequest
  Dim LURL

  Set objRequest = CreateObject("Microsoft.XMLHTTP")
  LURL = "http://" + AWebsite + "/order-reminders.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\Order Reminders\OrderRemindersLog.txt", 8, True)
	f.WriteLine(Now & " - " & AMessage)
	f.Close
	Set f = Nothing
	Set fs = Nothing
End Sub