m


Coral 1Coral 2Eclipse MistralParrandaLammer Law
AltaDiamanteErick, Flamingo, LettyAmbasador I
Explorer IIDelfin| • IsabelaSanta Cruz
Galapagos ToursGalapagos PicturesEcuador Travel GuideContact UsBest LinksSearch

GALAPAGOS CRUISES - Ecuador
<% 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 %>

Quick search:

Keyword:

<% end if %>


Coral 1Coral 2Eclipse MistralParrandaLammer Law
AltaDiamanteErick, Flamingo, LettyAmbasador I
Explorer IIDelfin| • IsabelaSanta Cruz
Galapagos ToursGalapagos PicturesEcuador Travel GuideContact UsBest Links

--------------------------------------------------------------------------------
Copyright 2001 - 2003 Galapagos-Cruises.com - All Rights Reserved

--------------------------------------------------------------------------------