Hi All,
I just created a zipradius component that I would like to share, if any one
is interested. I was tasked to develop code to query records within a radius
of a zip code. I figure this can be useful to someone. I make use of Rob
Gonda SQL component for record selection.
Check this out.
<cfcomponent extends="sql">
<cffunction name="zipRadius" returntype="query">
<cfargument name="zip" required="Yes" type="numeric">
<cfargument name="radius" required="Yes" type="numeric">
<cfset getData =
tblselect("zipcodes","zipcode,latitude,longitude","zipcode =
#arguments.zip#","","","1")>
<cfset getDataZip = tblselect("zipcodes","zipcode, latitude,
longitude, statename, city, 3963 * (ACOS((SIN(#getData.latitude#/57.2958) *
SIN(latitude/57.2958)) +(COS(#getData.latitude#/57.2958) *
COS(latitude/57.2958) *COS(longitude/57.2958 -
#getData.longitude#/57.2958)))) AS distance","3963 *
(ACOS((SIN(#getData.latitude#/57.2958) * SIN(latitude/57.2958)) +
(COS(#getData.latitude#/57.2958) * COS(latitude/57.2958) *
COS(longitude/57.2958 - #getData.longitude#/57.2958)))) <=
#arguments.radius#","","","")>
<cfreturn getDataZip>
</cffunction>
</cfcomponent>
Email me if you want the scripts.
Thanks
Sophek
_______________________________________________
Reply to DFWCFUG:
[email protected]
Subscribe/Unsubscribe:
http://lists1.safesecureweb.com/mailman/listinfo/list
List Archives:
http://www.mail-archive.com/list%40list.dfwcfug.org/
http://www.mail-archive.com/list%40dfwcfug.org/
DFWCFUG Sponsors:
www.instantspot.com/
www.teksystems.com/
