<%
your_cx_number = "009669188426815167219:y87xrys-eew"
Dim qterm
qterm = Request.QueryString("q")
if not (qterm = "") then
response.Write "
Query Terms: " + qterm + "
"
qterm = Server.URLEncode(qterm)
set xmlDoc = createObject("MSXML2.DOMDocument")
xmlDoc.async = False
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load("http://www.google.com/cse?cx=" + your_cx_number + "&=google-csbe&output=xml_no_dtd&q=" + qterm)
// response.write xmlDoc.selectSingleNode("//GSP/RES/").Attributes.GetNamedItem("code").Text
//Estimated results should *not* be used
estimated_results = xmlDoc.selectSingleNode("//GSP/RES/M").Text
response.write "estimated Results:" + estimated_results + ""
Set nl_result = xmlDoc.selectNodes("//GSP/RES/R")
For Each n_result In nl_result
title = n_result.getElementsByTagName("T").item(0).text
url = n_result.getElementsByTagName("U").item(0).text
snippet = n_result.getElementsByTagName("S").item(0).text
response.Write "" + title + "
" + snippet + "
"
Next
end if
%>