Boca Grande - Elaine Sherer

<% ' ' MoFuse Premium API ' Mobile Detect & Redirect ' DIM sMofuseSiteID sMofuseSiteID = "d75cb806892b89662154d9e131d03f67" DIM sMofuseSiteURL sMofuseSiteURL = "http://m.RealtyInTheSun.com/" DIM sMofuseParams MofuseSetParams sMofuseParams, "a", "mobile_detect" MofuseSetParams sMofuseParams, "v", "0.2.5" MofuseSetParams sMofuseParams, "s", sMofuseSiteID MofuseSetParams sMofuseParams, "m", sMofuseSiteURL MofuseSetParams sMofuseParams, "u", Request.ServerVariables("HTTP_USER_AGENT") IF Request.ServerVariables("SERVER_PORT") = "80" THEN MofuseSetParams sMofuseParams, "h", Request.ServerVariables("SERVER_NAME") ELSE MofuseSetParams sMofuseParams, "h", Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") END IF MofuseSetParams sMofuseParams, "r", Request.ServerVariables("SCRIPT_NAME") MofuseSetParams sMofuseParams, "i", Request.ServerVariables("REMOTE_ADDR") Sub MofuseSetParams(ByRef sParams, sKey, sVal) IF sVal <> "" THEN IF sParams <> "" THEN sParams = sParams & "&" & Server.URLEncode(sKey) & "=" & Server.URLEncode(sVal) ELSE sParams = sParams & "?" & Server.URLEncode(sKey) & "=" & Server.URLEncode(sVal) END IF END IF End Sub FUNCTION MofuseMobileDetectRequest(sParams) DIM sMofuseMobile sMofuseMobile = getHTML("http://api.mofusepremium.com/" & sParams) 'Response.Write sMofuseMobile IF sMofuseMobile <> "" THEN MofuseMobileDetectRequest = Left(sMofuseMobile, 25) ELSE MofuseMobileDetectRequest = "0" END IF END FUNCTION FUNCTION getHTML (strUrl) 'Response.Write strUrl Set xmlHttp = Server.Createobject("MSXML2.ServerXMLHTTP") xmlHttp.Open "GET", strUrl, False xmlHttp.setRequestHeader "User-Agent", "asp httprequest" xmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded" xmlHttp.Send getHTML = xmlHttp.responseText xmlHttp.abort() set xmlHttp = Nothing END FUNCTION SUB MofuseMobileDetect(sParams) DIM isMobile isMobile = MofuseMobileDetectRequest(sParams) 'Response.Write isMobile DIM sMofuseParams sMofuseParams = "" IF Request.ServerVariables("SERVER_PORT") = "80" THEN MofuseSetParams sMofuseParams, "h", Request.ServerVariables("SERVER_NAME") ELSE MofuseSetParams sMofuseParams, "h", Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") END IF MofuseSetParams sMofuseParams, "r", Request.ServerVariables("SCRIPT_NAME") IF isMobile = 1 THEN Response.Redirect(sMofuseSiteURL & sMofuseParams) END IF END SUB IF Request.QueryString("nomobile") <> "1" THEN MofuseMobileDetect(sMofuseParams) END IF ' ' END OF MoFuse Premium API ' %>

Elaine Sherer Ft.Myers/Cape Coral Real Estate

Think Big

Boca Grande

Boca Grande back to Area Info

Known as the "Tarpon Capital of the World," some of the most famous fishing waters in the country surround Pine Island and Boca Grande on the southern tip of Gasparilla Island.

Just a short boat ride from Pine Island is Boca Grande, a quaint little fishing village with boutiques, art galleries and cozy restaurants. This charming village offers island and waterside accommodations, unspoiled beaches plus a historic wooden lighthouse museum.

Whether you arrive at these islands by car or by boat, you are sure to be enchanted by the unique and colorful communities of Pine Island and Boca Grande.

Content brought to you by http://www.leeislandcost.com
"The official travel site of the Lee County Visitor & Convention Bureau"

Real Estate Marketing & Listing Syndication By Point2
Search Homes for Sale With Point2