<% PostalCode = Request.Form("PostalCode") NumberofRecordsToReturn = 10 FieldName = request.form("FieldName") FieldValue = request.form("FieldValue") '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) Set rs = zipLoc.CalculateLocations(PostalCode,NumberofRecordsToReturn,,,FieldName,FieldValue ) ErrorMessage = zipLoc.ErrorString Set zipLoc = Nothing %> SAMPLE RESULTS <% If NOT(PostalCode="") Then %>
<% bgcolor = "tablebgcolor2" If (ErrorMessage="") THEN 'The first record is always the user-zipcode information 'make sure to capture in variables zipCity = rs.Fields("City") zipState = rs.Fields("State") rs.MoveNext Do While Not rs.EOF bgcolor = ColorSwitch(bgcolor) %>
<% rs.MoveNext Loop rs.Close Set rs = Nothing ELSE%>
<% END IF%>

<%=NumberofRecordsToReturn%> Retailers near ZIP Code <%=PostalCode%>

" target="_blank"><%=rs.Fields("CompanyName")%>
<%=rs.Fields("Address")%>
<%=rs.Fields("City")%>, <%=rs.Fields("State")%>   <%=rs.Fields("PostalCode")%>		 phone : <%=formatphone(rs.Fields("PhoneNumber"))%>
About <%=FormatNumber(rs.Fields("Distance"),2)%> miles away

&city2=<%=rs.Fields("City")%>&stnm2=<%=rs.Fields("State")%>&cnty2=4&zipc2=<%=rs.Fields("PostalCode")%>" target="_blank">Directions

 
Sorry that ZIP code is not on our system, try again with zip code near you! state.


<%End IF%>  

Directions by  Maps by Expedia.com
www.expedia.com