Lehigh Acres - 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

Lehigh Acres Info

Lehigh Acres back to Area Info

Comfortably away from the pace of everyday life, Lehigh Acres gives one the quiet of the Florida countryside coupled with family activities, easy access to the area's International Airport and excellent shopping excursions.

Lehigh Acres is the perfect place to enjoy miles of freshwater canals, great fishing, tennis, horseback riding, and 15 miles of hiking and biking trails.

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

Lehigh Acres Info