Sub MyASPJob()

Dim oXMLHttp
Dim sURL

on error resume next

Set oXMLHttp = CreateObject("MSXML2.XMLHTTP.3.0")
sURL = "http://oliver/alsinco/?braid=40"

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

Set oXMLHttp = nothing

End Sub

Sub MyASPJob2()

Dim oXMLHttp
Dim sURL

on error resume next

Set oXMLHttp = CreateObject("MSXML2.XMLHTTP.3.0")
sURL = "http://oliver/alsinco/?braid=72"

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

Set oXMLHttp = nothing

End Sub

Sub MyASPJob3()

Dim oXMLHttp
Dim sURL

on error resume next

Set oXMLHttp = CreateObject("MSXML2.XMLHTTP.3.0")
sURL = "http://oliver/alsinco/?braid=79"

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

Set oXMLHttp = nothing

End Sub

Call MyASPJob()
Call MyASPJob2()
Call MyASPJob3()