Function LoadMsxmlHTTP( ) if not IsObject( objSrvHTTP ) then Set objSrvHTTP = CreateObject("Msxml2.ServerXMLHTTP.3.0") end if End Function