<% qStore = preparefordb(Request.QueryString("store")) qPostcode = preparefordb(Request.QueryString("postcode")) qState = preparefordb(Request.QueryString("state")) %>

Search by state

Simply click a state on the right to list all stockists.

Search by store

Already have a store in mind? If you already know of a stockist and would like to locate them, enter the stockist's name below.

Find a store by nearest postcode

Select State
<% If qStore<>"" Or qState<>"" Or qPostcode<>"" Then If qStore<>"" Then title = "Search Results: " & qStore sql="SELECT * FROM stores WHERE StoreName LIKE '%" & qStore & "%' OR Suburb LIKE '%" & qStore & "%'" & " ORDER BY StoreName ASC" msg = "Sorry, no stores could be found matching your criteria. Please try again, or try searching by state." ElseIf qState<>"" Then title = "Brew Cellar Stockists in " & qState sql="SELECT * FROM stores WHERE State='" & qState & "'" & " ORDER BY StoreName ASC" msg = "Sorry, no stores could be found in your selected state. Please try selecting a nearby state." ElseIf qPostcode<>"" Then qp1 = Int(qPostcode)-20 qp2 = Int(qPostcode)+20 title = "Postcode Search Results: " & qPostcode sql="SELECT * FROM stores WHERE Postcode>=" & qp1 & " AND Postcode <=" & qp2 & " ORDER BY Postcode ASC" msg = "Sorry, no stores could be found in your selected postcode. Please try another nearby postcode or searching by state." Else title = "All Stores" sql="SELECT * FROM stores" & " ORDER BY StoreName ASC" msg = "Our Store Locations system is currently undergoing maintennance. Please check back shortly." End If %>

<%=title%>

<% connection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("stores/stores.mdb") set conn=server.createobject("ADODB.Connection") conn.open connection 'Response.Write sql Set rs2=conn.execute(sql) If rs2.eof Then Response.Write "

" & msg & "

" & vbcrlf Else %> <% Do Until rs2.eof fName = Replace(rs2("StoreName")," "," ") fPhone = Replace(rs2("Phone")," "," ") fMapAddress = rs2("Address") & " " & rs2("Suburb") & " " & rs2("State") fPostcode = rs2("Postcode") If fPostcode="0" Then fPostcode="" fMapAddress = Server.URLEncode(fMapAddress) If rs2("Address")<>"" Then fMapLink = "Map" Else fMapLink = " " End If If rs2("Website")<>"" AND rs2("Website")<>"www.brewcellar.com.au" Then fName = fName & "
visit website" End If %> <% rs2.movenext Loop %>
Store NameAddressSuburbPostcodeStatePhoneMap
<%=fName%><%=rs2("Address")%><%=rs2("Suburb")%><%=fPostcode%><%=rs2("State")%><%=fPhone%><%=fMapLink%>
<% End If rs2.close Set rs2=nothing conn.close set conn=nothing End If function preparefordb(what) a=what a=replace(a,"'","''") a=replace(a,"<","<") a=replace(a,">",">") preparefordb=a end function %>
Home Brewing
New to home brewing?
Here's how to get started.
Brew Recipes
Brew beer like an expert.
Let Brew Guru show you how.
Free Newsletter
Join to learn about brewing and receive our promotions.
Search
Search our product range.