<%
ZIPCode1 = request.form("ZIPCode1")
ZIPCode2 = request.form("ZIPCode2")
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.DistanceBetweenTwoZips(ZIPCode1,ZIPCode2,UnitOfMeasure)
Set zipLoc = Nothing
%>
SAMPLE RESULTS
Distance Between
Two Zip Codes
Results : <%=results%>