Sample ASP Code

Note: This documentation is for an old version of Webinator. The latest documentaion is here.

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
%>