HOME


·Galapagos Pictures·TOUR OPERATOR·Contact Us·Best Links·Search·
Galapagos Islands Map & Information
<% 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 %>


·Galapagos Pictures·TOUR OPERATOR·Contact Us·Best Links·



Copyright 2001 -2004 Galapagos-Diving.com - All Rights Reserved