<% 'written by Barry Wright 'www.engine-promotion.com term = Request.QueryString("term") overturecountry = Request.QueryString("overturecountry") response.Write("

"&overturecountry&" SEARCHED

") if overturecountry = "" then overturecountry = "UK" if term <> "" and overturecountry <> "" then if overturecountry = "UK" then overtureurl = "http://inventory.uk.overture.com/d/searchinventory/suggestion/" mkt = "UK" end if if overturecountry = "USA" then overtureurl = "http://inventory.uk.overture.com/d/searchinventory/suggestion/" mkt = "US" end if if overturecountry = "FRANCE" then overtureurl = "http://inventory.fr.overture.com/d/searchinventory/suggestion/" mkt = "FR" end if if overturecountry = "GERMANY" then overtureurl = "http://inventory.de.overture.com/d/searchinventory/suggestion/" mkt = "DE" end if if overturecountry = "JAPAN" then overtureurl = "http://inventory.jp.overture.com/d/searchinventory/suggestion/" mkt = "JP" end if Dim objXMLHTTP 'Holds the XML HTTP Object 'Dim strFileContents 'Holds the reult of the meta query 'Create an XML object to query the remote url Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 'metaURL = "http://www.the-jigsaw.co.uk/test.asp" metaURL = ""&overtureurl&"?term="&term&"&mkt="&mkt 'Open a connection to the remote url objXMLHTTP.Open "GET", metaURL, False 'Send the request and return the response page objXMLHTTP.Send 'Place the whole return file into variable strFileContents = objXMLHTTP.ResponseText strFileContentsf = mid(strFileContents,InStr(1,strFileContents,"",1) + 7, (InStr(1,strFileContents,"