<%
Long1 = request.form("Long1")
Lat1 = request.form("Lat1")
Long2 = request.form("Long2")
Lat2 = request.form("Lat2")
UnitOfMeasure = request.form("UnitOfMeasure")
'CREATE ZIP CODE LOCATOR OBJECT
Set zipLoc = Server.CreateObject("ZipcodeLocator.Locator")
zipLoc.ConnectionString = strConn
'ResultsbyStringField(FieldName to Search On, Value of Field to Search On, Field Name to Order by)
results = zipLoc.DistanceBetweenTwoLonLat(Long1,Lat1,Long2,Lat2,UnitOfMeasure)
Set zipLoc = Nothing
%>
SAMPLE RESULTS
Distance between to points based on Long/Lat
Results : <%=results%>