Sub MyASPJob()

Dim oXMLHttp
Dim sURL

on error resume next

Set oXMLHttp = CreateObject("MSXML2.XMLHTTP.3.0")
sURL = "http://localhost/kmstats/upload.php"

oXMLHttp.open "GET", sURL, false
oXMLHttp.send()

Set oXMLHttp = nothing

End Sub

Call MyASPJob()