Here is updated code for www.SearchHippo.com's "web search for your site".
-Updated html ref and meta tags to make more search engine friendly
-Made a default term for when no search made
-added external search locations that use search terms on other engines
-added a search form at top
-made links open new window (search will open same window)
Here is what is still a problem as of Feb. 25, 2004
-still hafta fix "no results found" error to make a message instead
*Name the file hippo.asp
http://www.SpareSomeChange.com/Search/Hippo.asp
DO NOT MODIFY THIS FILE FOR OTHER SITES! I WAS THREATENED
TO BE SUED FOR USING IT ON SHOUTCAST.COM! SearchHippo allows this,
see page http://www.searchhippo.com/webservices.php for the original
(unupdated) ASP script (also available in PHP and XML).
----------------------- YOUR ASP/HTML CODE BELOW --------------------------
<%@ Language=VBScript %>
<%
termz = Request.QueryString("q") 'added by www.SpareSomeChange.com
if termz = "" then
termz = "Homeless" 'change this, its default search phrase
end if 'added by www.SpareSomeChange.com
%><%=ucase(termz)%> On "HIP" Search! Looking For <%=termz%>es And Sites About <%=termz%>ing And <%=termz%>er. (<%=termz%>s/<%=termz%>)
, <%=termz%>s, <%=replace(termz, " ", "")%>, <%=termz%>ing, <%=termz%>est, <%=termz%>ies, <%=replace(termz, " ", "-")%>, <%=termz%>r, <%=termz%>es, <%=termz%>er">
<%
response.write ucase(termz) & " LINKS" 'added by www.SpareSomeChange.com
'Load XML Parser and get Source
Dim objDoc, objAsp
set objDoc = CreateObject("Microsoft.XMLDom")
set objAsp = CreateObject("Microsoft.XMLHTTP")
if request("q") = "" then 'added by www.SpareSomeChange.com
objAsp.open "GET", "http://www.searchhippo.com/qxml.php?q=" & termz, false 'added by www.SpareSomeChange.com
else 'added by www.SpareSomeChange.com
objAsp.open "GET", "http://www.searchhippo.com/qxml.php?q="& Request("q") &"&c="& Request("c") &"&i="& Request("i"), false
end if 'added by www.SpareSomeChange.com
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("")
If Len(objResults.selectSingleNode("//SEARCHHIPPO/RESULTS/@PREVURL").text) > 0 Then
' Modify slightly for the 'local' page: Using Replace
Response.Write ("[ Prev ]")
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 ("[ Next ]")
End If
Response.Write("")
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 &". "& item.selectSingleNode("TITLE").text &"
")
Else
Response.Write (""& item.selectSingleNode("@NUM").text &". "& item.selectSingleNode("DISPURL").text &"
")
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("
")
Next
'*******************************************************/
Else
Response.Write("Sorry, no results available for """& Request("q") &"""")
End If
'*******************************************************/
'End Script
Set objDoc = Nothing
Set objAsp = Nothing
Set objResults = Nothing
%>
Also try these searchers: <%=termz%>:
" target="_blank">Mega Meta Search,
" target="_blank">Google.com,
" target="_blank">Jayde Search Engine,
" target="_blank">Canuckster.com,
" target="_blank">Power Searcher,
" target="_blank">DMOZ (ODP),
" target="_blank">Books & Magazines,
" target="_blank">United States (only),
&e.SearchResults.nodeId=2556732" target="_blank">EveryOne.net,
" target="_blank">Hot Plugin,
" target="_blank">Government Links,
" target="_blank">Organization Links,
" target="_blank">Military Links,
" target="_blank">Spanish Links,
" target="_blank">French Links,
" target="_blank">Friendly Canadian,
" target="_blank">Grey/Bruce,
" target="_blank">Low-Income" target="_blank"> Portal,
" target="_blank">MyCity.com,
" target="_blank">Limited Search,
Links to " target="_blank"><%=replace(termz, " ", "+")%>,
" target="_blank">HIV/" target="_blank">AIDS
Powered by:
and 
