Sample ASP Code

The following ASP code demonstrates sending an http GET command to Webinator and receiving XML search results from it.

<%
 on error resume next
 dim objSrvHTTP
 dim objXMLSend
 dim objXMLReceive
 
 set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
 set objXMLSend = Server.CreateObject("MSXML2.DOMDocument.4.0")
 set objXMLReceive = Server.CreateObject("MSXML2.DOMDocument.4.0")
 
  if err.number <> 0 then
      Response.Write err.description
      Response.Write "First error in code."
    end if
    err.clear

 objXMLSend.async = false
 objXMLSend.loadXML ("<msg><id>2</id></msg>")
 objSrvHTTP.open
"GET","http://HOSTNAME/texis/search/main.xml?dropXSL=1&
pr=test&prox=page&rorder=500&rprox=500&rdfreq=500&rwfreq=500&
rlead=500&sufs=0&query=test&submit=Submit",false
 
  if err.number <> 0 then
      Response.Write err.description
      Response.Write "Second error in code."
    end if
    err.clear

 objSrvHTTP.send objXMLSend
 set objXMLReceive = objSrvHTTP.responseXML
 Response.ContentType = "text/xml"
 Response.Write objXMLReceive.xml
 
  if err.number <> 0 then
      Response.Write err.description
      Response.Write "Third error in code."
    end if
    err.clear
%>