View Single Post
  #3 (permalink)  
Old September 20th, 2004, 07:45 AM
realgone_ realgone_ is offline
Authorized User
 
Join Date: Sep 2004
Location: , , .
Posts: 22
Thanks: 0
Thanked 0 Times in 0 Posts
Default

I was able to get this working after some sweating this week end:

<%
Dim PostData
Dim xml
Dim objXMLHTTP

PostData = PostData & "&requestid="
PostData = PostData & "&originzip=08075"
PostData = PostData & "&destzip=08648"
PostData = PostData & "&ltldd="
PostData = PostData & "&payment="

set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.open "POST", "https://www.myyellow.com/dynamic/services/servlet?CONTROLLER=com.yell.ec.inter.yfsratequote. http.controller.RateQuoteAPIController", False, _
"user","pwd"
xml.send "& PostData &"
strStatus = xml.Status
strRetval = xml.responseText
set xml = nothing
%>