' (SS,24/08/18) New for creating image caches for shopping websites, currently only for CIRC
' (SS,04/04/19) Added HyperFlight and VDK
' (SS,11/05/20) Added www.groundscrewcentre.co.uk

AddLog ""

Call CreateImageCache("https://www.castironradiatorcentre.co.uk")
Call CreateImageCache("https://www.hyperflight.co.uk")  ' (SS,4/4/19)
Call CreateImageCache("https://www.vintagedoorknobs.co.uk")  ' (SS,4/4/19)
Call CreateImageCache("https://www.groundscrewcentre.co.uk")  ' (SS,11/5/20)

Sub CreateImageCache(AWebsite) 
  On Error Resume Next

  Dim objRequest
  Dim LURL

  Set objRequest = CreateObject("Microsoft.XMLHTTP")

  LURL = AWebsite + "/create-image-cache.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\Create Image Cache\CreateImageCacheLog.txt", 8, True)
	f.WriteLine(Now & " - " & AMessage)
	f.Close
	Set f = Nothing
	Set fs = Nothing
End Sub