WhisperPhone® - Our Products Are Also Available At These Stores

<% PostalCode = Request.Form("PostalCode") Radius = Request.Form("Radius") UnitOfMeasure= Request.Form("UnitOfMeasure") MinRadius = Request.Form("MinRadius") ExtraRecords = "" MaxNumberofRecordsToReturn = 20 '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.CalculateLocationsbyRadius(Radius,PostalCode,MaxNumberofRecordsToReturn,ExtraRecords,UnitOfMeasure,MinRadius) ErrorMessage = zipLoc.ErrorString Set zipLoc = Nothing %> WhisperPhone® - Our Products Are Also Available At These Stores <% 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%>

<%=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 " target="_blank">Map
Sorry that ZIP code is not on our system, try again with zip code near you!