Godkänna certifikat med MSXML2.SERVERXMLHTTP

Hej.
Jag har denna koden.

dim xh,s
set s = server.createobject("FileMgr.Folder.1")
set xh = server.createobject("MSXML2.SERVERXMLHTTP")
v_file = server.MapPath("dbfiles") & "\" & getname()
v_url = "https://www.adresstillaccessdatabas.com/db.mdb"
getfile v_url
function getname()
	getname = replace(replace(replace(replace(replace(now(),":",""),"-",""),"/",""),"\","")," ","") & ".mdb"
end function
Sub getfile(url)
	on error resume next
	xh.open "GET", url, False
	[B]xh.send[/B]
	if xh.status = "200" and err.number=0 then
		set c = s.CreateBinaryFile (v_file,true)
		c.write xh.responseBody
		c.close
		set c = nothing
	end if
	on error goto 0
End Sub

Och jag får detta felet på markerad rad.

Error Type:
msxml3.dll (0x80072F05) The date in the certificate is invalid or has expired.

Går det på något sätt att uppdatera/godkänna certifikatet med msxml?

Jag kan inte hämta databasen utan att använda https.