<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%getStore(request("theID"))%> Walton

Welcome to The Heart of Walton

<%=getstorepic(request("theid"))%>
<%if request("theid") ="" then response.write "1" else response.write request("theid")%>.gif" alt="" width="412" height="281" border="0" usemap="#Map" />
<%listAllUnits%>

Welcome to <%=replace(rsStore("store"),"''","'")%>

<%thedescription = rsStore("description") if thedescription <> "" then 'thedescription = replace(thedescription,chr(10),"
") thedescription = replace(thedescription,"''","'") end if %> <%=trim(thedescription)%>

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

<%if rsStore("unit") <> "Sainsburys" and rsStore("unit") <> "johnson" then%> UNIT <%end if%> <% if rsStore("unit") = "johnson" then response.write "Johnsons Shoes" else response.write rsStore("unit") end if %> tel: <%=rsStore("telephone")%>
<%=rsStore("address1")%>  
<%=rsStore("address2")%> "><%=rsStore("email")%>
<%=rsStore("address3")%> " target="_blank"><%=rsStore("website")%>

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
<%if request("theid") ="" then response.write "1" else response.write request("theid")%>.gif" alt="storpic" width="288" height="156" />