<% Option Explicit %> <% If Request.QueryString("Submit") = "Submit" Then Dim city, stateRegion, postalCode, radius, latitude, longitude, message city = Replace(Request.QueryString("city"), "'", "''") stateRegion = Replace(Request.QueryString("stateRegion"), "'", "''") postalCode = Replace(Request.QueryString("postalCode"), "'", "''") radius = Replace(Request.QueryString("radius"), "'", "''") latitude = "" longitude = "" message = "" Dim conn Set conn = Server.CreateObject("ADODB.Connection") With conn .ConnectionString = strConn .CursorLocation = adUseClient End With conn.Open() If city <> "" and stateRegion <> "" Then Dim commCityStateRegion, rsCityStateRegion Set commCityStateRegion = Server.CreateObject("ADODB.Command") With commCityStateRegion .ActiveConnection = conn .CommandType = adCmdStoredProc .CommandText = "geocodeGetAverageForCityStateRegion" .Parameters.Append( .CreateParameter ("city", adVarchar, adParamInput, 50, city ) ) .Parameters.Append( .CreateParameter ("stateRegion", adVarchar, adParamInput, 50, stateRegion ) ) End With Set rsCityStateRegion = commCityStateRegion.Execute If NOT rsCityStateRegion.EOF Then latitude = rsCityStateRegion("latitude") longitude = rsCityStateRegion("longitude") Else message = "This was an invalid City/State Combination" End If rsCityStateRegion.Close Set rsCityStateRegion = Nothing Set commCityStateRegion.ActiveConnection = Nothing Set commCityStateRegion = Nothing ElseIf postalCode <> "" Then Dim commPostalCode, rsPostalCode Set commPostalCode = Server.CreateObject("ADODB.Command") With commPostalCode .ActiveConnection = conn .CommandType = adCmdStoredProc .CommandText = "geocodeGetAverageForPostalCode" .Parameters.Append( .CreateParameter ("postalCode", adVarchar, adParamInput, 50, postalCode ) ) End With Set rsPostalCode = commPostalCode.Execute If NOT rsPostalCode.EOF Then latitude = rsPostalCode("latitude") longitude = rsPostalCode("longitude") Else message = "This was an invalid Zip Code." End If rsPostalCode.Close Set rsPostalCode = Nothing Set commPostalCode.ActiveConnection = Nothing Set commPostalCode = Nothing Else message = "Please enter in a City and State or Zip Code." End If If latitude <> "" and longitude <> "" Then Dim comm, rs Set comm = Server.CreateObject("ADODB.Command") With comm .ActiveConnection = conn .CommandType = adCmdStoredProc .CommandText = "dealerRadiusSearch" .Parameters.Append( .CreateParameter ("latitude", adSingle, adParamInput, 4, latitude ) ) .Parameters.Append( .CreateParameter ("longitude", adSingle, adParamInput, 4, longitude ) ) .Parameters.Append( .CreateParameter ("radius", adVarchar, adParamInput, 4, radius ) ) End With Set rs = comm.Execute Set comm.ActiveConnection = Nothing Set comm = Nothing End If End If %> Home
" method="get" name="formRadiusSearch" id="formRadiusSearch">
Find a Service Center in your area

Please enter the city and state or enter the zip code for Wen Products service centers.
City :
State :
  -or-
Your Zip Code : " size="6" maxlength="50">
Within Miles :
<%If message <> "" Then%>

<%=message%>

<%Else%> <%If Request.QueryString("Submit") = "Submit" Then%>

Search Results:

<% Do While NOT rs.EOF %> <% rs.movenext Loop %>
<%=FormatNumber(rs("distance"), 1)%> Miles   <%=rs("Dealer_BusinessName")%>   <%=rs("Dealer_Address1")%>
<%=rs("Dealer_City")%> <%=rs("Dealer_State")%>, <%=rs("Dealer_Zip")%>		   <%=rs("Dealer_Phone")%>  
 
Maps
" />" />" />" />
,+<%=rs("Dealer_City")%>,+<%=rs("Dealer_State")%>+<%=rs("Dealer_Zip")%>+&ie=UTF8&z=15&om=1&iwloc=A" target="_blank">
<%End If%> <%End If%>
© 2010 WEN. All Rights Reserved.
How Can We Help You?
For parts relating to product built or sold prior to 2001:
Pre 2001 WEN Parts
1324 S. 1275E
Akron, IN 46910
Phone (574) 598-2203
Fax: (574) 893-7330
parts@wenproducts.com

Grabbed on 03:12, Wed, Feb 24, 2010

 <% If Request.QueryString("Submit") = "Submit" Then If latitude <> "" and longitude <> "" Then rs.Close() Set rs = Nothing conn.Close() Set conn = Nothing End If End If %>