<%@ 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("")
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
%>
Powered by:
SearchHippo.com