HOME

Regions

Natural

Art & Culture

Things to Do

Services

Safety & Health

Map Center

Useful Links

  Search EcuadorToursOnLineEcuador Tours Ecuador PicturesEcuador-Pictures About  Ecuador-Travel-GuideAbout Us Contact UsContact Us
Visas
Economy
Money Matter
What Things Cost in Ecuador
Travelling in Ecuador
Packing List

 

<% dim objXMLHTTP id=request("id") mode=request("mode") query=request("query") lang=request("lang") fr=request("fr") pageid=request("pageid") 'Map map=request("map") page=request("page") if (id <> "") then dim URL dim VLCadena dim urlReplace urlReplace="http://search.freefind.com/find.html" URL = "http://search.freefind.com/find.html?pageid=" & pageid & "&id="& id &"&mode="& mode &"&query="& query &"&lang=" & lang &"&fr="& fr Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", URL, false objXMLHTTP.Send VlCadena=objXMLHTTP.responseText vlcadena=replace(vlcadena,urlReplace,"search.asp") vlcadena =replace(vlcadena,"search tips","") vlcadena =replace(vlcadena,"site map","") pos1= instr(Vlcadena,"")+7 vlcadena=mid(vlcadena,1,pos2) Response.Write vlcadena Set objXMLHTTP = Nothing else %>
Keyword: New Refine Web
<% end if %>

© 2001-2004 Ecuador-Travel-Guide.org. All rights reserved.
This site is a contribution of EcuadorToursOnLine.com