' (SS,08/12/20) New

AddLog ""

Call SendTrustpilotReviewInvitations("https://www.castironradiatorcentre.co.uk")
Call SendTrustpilotReviewInvitations("https://www.vintagedoorknobs.co.uk")


Sub SendTrustpilotReviewInvitations(AWebsite) 
  On Error Resume Next

  Dim objRequest
  Dim LURL

  Set objRequest = CreateObject("Microsoft.XMLHTTP")
  LURL = AWebsite + "/trustpilot-review-invitations.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\TrustpilotReviewInvitations.txt", 8, True)
	f.WriteLine(Now & " - " & AMessage)
	f.Close
	Set f = Nothing
	Set fs = Nothing
End Sub