' (SS,27/7/17) added s to http, HF now HTTPS (at line 13, LURL =)' (SS,28/09/12) review requests run at a scheduled time (see Control Panel for actual schedule)
' (SS,24/10/14) added www.castironradiatorcentre.co.uk
' (SS,04/09/15) added www.expressmusicstore.co.uk
' (SS,04/09/15) added www.vintagedoorknobs.co.uk
' (SS,11/12/15) changed www.vintagedoorknobs.co.uk from http to https
' (SS,18/12/15) changed www.castironradiatorcentre.co.uk from http to https
' (SS,16/12/16) removed galleon, modified clifton and express music to new domains with https
' (SS,21/12/16) removed express music, hasn't run since 26/9/16 (I think), no longer required due to Trustpilot invitations now being used.
' (SS,27/07/17) changed www.hyperflight.co.uk from http to https
' (SS,24/08/18) changed www.coventry-demolition.co.uk from http to https
' (SS,05/08/22) removed www.cliftonsjewellery.co.uk (should have been removed before when site was stopped)

AddLog ""
' (SS,11/12/15) added http:// or https:// prefix because it can know be a secure site
' (SS,16/12/16) removed following
' Call SendReviewRequests("http://www.galleonsupplies.co.uk")
' Call SendReviewRequests("https://www.expressmusic.co.uk") ' (SS,4/9/15), (SS,16/12/16) replaced http://www.expressmusicstore.co.uk with https://www.expressmusic.co.uk
' Call SendReviewRequests("https://www.cliftonsjewellery.co.uk") ' (SS,4/10/12) ' (SS,16/12/16) replaced http://www.cliftoncollectables.co.uk with https://www.cliftonsjewellery.co.uk 

Call SendReviewRequests("https://www.coventry-demolition.co.uk")
Call SendReviewRequests("https://www.hyperflight.co.uk") ' (SS,2/10/12) (SS,27/7/17) now https
' Call SendReviewRequests("https://www.castironradiatorcentre.co.uk") ' (SS,24/10/14), (SS,18/12/15) changed from http to https, removed for CIRC
Call SendReviewRequests("https://www.vintagedoorknobs.co.uk") ' (SS,4/9/15), (SS,11/12/15) changed from http to https


Sub SendReviewRequests(AWebsite) 
  On Error Resume Next

  Dim objRequest
  Dim LURL

  Set objRequest = CreateObject("Microsoft.XMLHTTP")
  ' (SS,11/12/15) removed "http://" prefix because URL now contains it
  LURL = AWebsite + "/review-requests.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\Review Requests\ReviewRequestsLog.txt", 8, True)
	f.WriteLine(Now & " - " & AMessage)
	f.Close
	Set f = Nothing
	Set fs = Nothing
End Sub