<% FieldName = request.form("FieldName") FieldValue = request.form("FieldValue") OrderBy = request.form("OrderBy") '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.ResultsbyStringField(FieldName,FieldValue, OrderBy) ErrorMessage = zipLoc.ErrorString Set zipLoc = Nothing %>
<% If (ErrorMessage="") THEN do while not rs.eof count = count + 1 bgcolor = ColorSwitch(bgcolor) %> <% rs.movenext loop rs.Close Set rs = Nothing ELSE%> <% END IF%>

Retailers Where <%=FieldName & " = " & FieldValue %>

<%=rs.fields("CompanyName")%>
<%=rs.fields("Address")%>
<%=rs.fields("City")%>, <%=rs.fields("State")%>   <%=rs.fields("PostalCode")%> 		phone : <%=formatphone(rs.fields("PhoneNumber"))%>

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

 
Sorry there are no retailers in this state.

<%=count%> store(s) found

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