<% if request("zip")<>"" or request("state") <> "" then if request("zip")<>"" then passpostal = request("zip") else Randomize() passpostal = int(rnd() * (9999999 - 1111111 + 1)) end if Set Cudas = Server.CreateObject("ADODB.Connection") Cudas.Open Session("Conn_cudas") if request("state") <> "" then sql="SELECT states.state_name FROM states where states.state_name_short = '" & replace(request("state"),"'","") & "'" Set rd = Cudas.Execute(sql) if not rd.eof then result_call = "Results for " & rd("state_name") end if rd.close set rd = nothing sql="select * from distributor where dststate = '" & replace(request("state"),"'","") & "' order by dstcity, dstname" Set rd = Cudas.Execute(sql) else sql="select * from distributor where dstzip like '" & left(passpostal,3) & "%' order by dstzip, dstname" result_call = "Results for zip code, “" & request("zip") & "”" Set rd = Cudas.Execute(sql) if rd.eof then sql="select * from distributor where dstzip like '" & left(passpostal,2) & "%' order by dstzip, dstname" Set rd = Cudas.Execute(sql) if rd.eof then sql="select * from distributor where dstzip like '" & left(passpostal,1) & "%' order by dstzip, dstname" Set rd = Cudas.Execute(sql) end if end if end if %>

Store Locator

<%=result_call%>

<% if rd.eof then %>

Thanks for looking! Currently we don’t have a Cudas dealer near you. Please click on one of our online partners to grab some Cudas of your own.

• 
• 
• 
• 
• 
• 
• 
• 

<% else do until rd.eof %>

<%=rd("dstname")%>

<%=rd("dstaddr1")%>
<%=rd("dstcity")%> <%=rd("dststate")%> <%=rd("dstzip")%>
<%=rd("dstphone")%>

<% rd.movenext loop end if rd.close set rd = nothing cudas.close set cudas = nothing else %>

Shop Online

Click on a logo to order from our online retail partners.

• 
• 
• 
• 
• 
• 
• 
• 

<% end if %>

Shop In-Store

Enter your ZIP code or click your state to find a store near you.

Search

<% Set Cudas = Server.CreateObject("ADODB.Connection") Cudas.Open Session("Conn_cudas") 'sql="SELECT distributor.dststate, states.state_name FROM states INNER JOIN distributor ON states.state_name_short = distributor.dststate GROUP BY distributor.dststate, states.state_name ORDER BY distributor.dststate" sql="SELECT states.state_name, states.state_name_short FROM states ORDER BY states.state_name_short" Set rd = Cudas.Execute(sql) do until rd.eof %>
• " title="<%=rd("state_name")%>"><%=rd("state_name_short")%>
<% rd.movenext loop rd.close set rd = nothing cudas.close set cudas = nothing %>