even more Hotels in Australia:

<% sKeyword = "hotel australia"%> <% Dim url, keyword, lPosition, lInkPosition, affiliateid Dim xmlhttp, xmldoc, style, RspXml, ErrOnPage, outHtml Dim lbkfill, lPage, lHits, lNoAdult lbkfill = 0 'backfill results: 0=none, 1=inktomi lHits = 5 'number of results per page lNoAdult = 0 'adult filter: 0=off, 1=on affiliateid = 1067 'hardcoded for PhoneBookOfFrance CONST espxmlpg = "http://affiliate.espotting.com/search/xml/results.asp" 'territory CONST ErrMsg = "The was an error performing the Search. Please try again later." ErrOnPage = False lPage = Request("page") If lPage = "" Then lPage = 1 lPosition = Request("txtPosition") lInkPosition = Request("txtInkPosition") url = espxmlpg & "?keyword=" & Server.URLEncode(sKeyword) & _ "&affiliateid=" & affiliateid & "&page=" & lpage & "&hits=" & lhits & _ "&noadult=" & lNoAdult & "&bkfill=" & lbkfill ' Use Get to retrieve XML from server Set xmlhttp = Server.CreateObject("msxml2.ServerXMLHttp") xmlhttp.Open "GET", url, False xmlhttp.Send() ' Handle Request Error If Err.number = 0 Then RspXml = xmlhttp.ResponseText Else ErrOnPage = True RspXml = "" & Err.number & "" & _ "" & Err.description & "" & _ "" & ErrMsg & "" On Error Resume Next End If Set xmlhttp = Nothing ' Load XML into DOM Document Set xmldoc = CreateObject("msxml2.DOMDocument") xmldoc.Async = False xmldoc.loadXML(RspXml) ' Handle XML parsing error If Err.number <> 0 Or xmldoc.parseError.reason <> "" Then ErrOnPage = True RspXml = "99" & _ "XML: " & xmldoc.parseError.reason & "" & _ "XML: " & xmldoc.parseError.srcText & "" & _ "" & ErrMsg & "" xmldoc.loadXML(RspXml) On Error Resume Next End If ' Load XSL into DOM Document Set style = CreateObject ("msxml2.DOMDocument") style.async = false ' Choose which XSL to load If Not ErrOnPage Then style.load(Server.MapPath("channels.xsl")) Else style.load(Server.MapPath("error.xsl")) End If ' Handle XSL Error If Err.number <> 0 Or style.parseError.reason <> "" Then outHtml = ErrMsg & "
" & style.parseError.reason Else outHtml = xmldoc.transformNode (style) End If outHtml = Replace(outHtml,"&","&") ' Output HTML Response.Write outHtml ' Reset Objects to Nothing Set xmldoc = Nothing Set style = Nothing %>