Function LoadMsxmlHTTP( )

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

End Function