View Single Post
  #3 (permalink)  
Old October 12th, 2004, 08:56 PM
RobinR RobinR is offline
Authorized User
 
Join Date: Jul 2003
Location: , New Jersey, .
Posts: 14
Thanks: 0
Thanked 0 Times in 0 Posts
Default

pgtips,

Thanks for responding. A post on www.webmasterworld.com put me in the right direction.

Here is the corrected code.

Robin
*********************


<%Function SendXMLFiletoUSPS()%>
<%

  Dim RateType
  Dim USPSURL
  Dim objSrvHTTP

  RateType = "API=Rate&XML="

  USPSURL = "http://testing.shippingapis.com/ShippingAPITest.dll?"
  strXML = RateType & strMessage

  Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
  objSrvHTTP.open "POST", USPSURL, false
  objSrvHTTP.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
  objSrvHTTP.send (strXML)
  strResponseMessage = objSrvHTTP.responseText
  intHTTPStatusCode = objSrvHTTP.status
  strHTTPStatusText = objSrvHTTP.statusText
  %>
<%End Function%>