SearchHippo Results

- ASP Source Code! -

- ASP Developers! -
Damon Rieusset (damon@euroa-gazette.com.au) created an ASP file to use the searchhippo results. Save this to a file and you should be able to invoke it (pass in 'q' for the query string to search for!)
<%@ Language=VBScript %> <% 'Load XML Parser and get Source Dim objDoc, objAsp set objDoc = CreateObject("Microsoft.XMLDom") set objAsp = CreateObject("Microsoft.XMLHTTP") objAsp.open "GET", "http://www.searchhippo.com/qxml.php?q="& Request("q") &"&c="& Request("c") &"&i="& Request("i"), false objAsp.send() objDoc.async = true set objDoc=objAsp.responseXML Set objResults = objDoc.documentElement 'Debug If objDoc.parseError.errorCode > 0 Then Response.Write ("can't get xml parser!") Response.End End If 'Time to display all the Next, Prev URLS as well as results count If (objResults.selectSingleNode("//SEARCHHIPPO/@VERSION").text <> "1.0") Then Response.Write ("") End If If Len(objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@COUNT").text) > 0 Then Response.Write("<center>") If Len(objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@PREVURL").text) > 0 Then ' Modify slightly for the 'local' page: Using Replace Response.Write ("[ <A HREF="""& Replace(objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@PREVURL").text,"http://www.searchhippo.com/qxml.php","searchhippo.asp") &""">Prev</A> ]") End If Response.Write (" Results "& objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@HEAD").text &" - "& objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@TAIL").text &" of "& objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@COUNT").text) If Len(objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@NEXTURL").text) > 0 Then ' Modify slightly for the 'local' page: Using Replace Response.Write ("[ <A HREF="""& Replace(objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@NEXTURL").text,"http://www.searchhippo.com/qxml.php","searchhippo.asp") &""">Next</A> ]") End If Response.Write("</CENTER>") End If ' Outputting some HTML below '*******************************************************/ If Len(objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@COUNT").text) > 0 Then For Each item in objResults.SelectNodes("//SEARCHHIPPO/RESULTS/RECORD") If Len(item.SelectSingleNode("TITLE").text) > 0 Then Response.Write (""& item.selectSingleNode("@NUM").text &". <A HREF="""& item.selectSingleNode("URL").text &""">"& item.selectSingleNode("TITLE").text &"</A> ") Else Response.Write (""& item.selectSingleNode("@NUM").text &". <A HREF="""& item.selectSingleNode("URL").text &""">"& item.selectSingleNode("DISPURL").text &"</A> ") End If If (Len(item.selectSingleNode("DESCR").text) > 0) Then Response.Write (""& item.selectSingleNode("DESCR").text &" "& item.selectSingleNode("DISPURL").text &" ") Else Response.Write (""& item.selectSingleNode("DISPURL").text &" ") End If Response.Write("<HR>") Next '*******************************************************/ Else Response.Write("<CENTER>Sorry, no results available for """& Request("q") &"""</CENTER>") End If '*******************************************************/ 'End Script Set objDoc = Nothing Set objAsp = Nothing Set objResults = Nothing %> <CENTER> <IMG SRC="http://pics.searchhippo.com/pics/hippo_25.gif" HEIGHT="25" WIDTH="27"> Powered by: <A HREF="http://www.searchhippo.com/"> SearchHippo.com</A> <IMG SRC="http://pics.searchhippo.com/pics/hippo_25.gif" HEIGHT="25" WIDTH="27"> </CENTER>
Alternatively, you can save this link (or view source and save) for the same stuff.

While not required, we would appreciate hearing where you integrate this feed (i.e. email us the url!) This can also help us better serve you and keep you informed of updates and changes (particularily to things like the DTD for example)!

If you are interested in something new or have any suggestions, please send email to: info@searchhippo.com!

About - Submit/Modify URL - Partnerships - Help! - Privacy - FAQ - New Search
Query Spy - Highlighter Proxy - FREE Web Services
Copyright (c) 2001-2008, SearchHippo.com (TM)