Gisborne OnLine

<% Dim connection, rs memid=request("memid") Fcat = request("cat") set connection=server.createobject("adodb.connection") connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("/databases/membersx.mdb") SQL = "SELECT members.*, Categories.*" &_ " FROM Categories INNER JOIN (members INNER JOIN catlink ON"&_ " members.MemId = catlink.MemId) ON Categories.CatId = catlink.CatId"&_ " WHERE members.memid="&memid&" AND Categories.CatId="&Fcat set rs = connection.Execute(SQL) set ps = connection.execute("SELECT about FROM descript WHERE memid="& memid) %> Gisborne OnLine

This Project is a joint initiative of the Victorian Government's StreetLife program in conjunction with the Gisborne community and Macedon Ranges Shire Council.

<% do while not rs.eof %>

" width="100" height="75" border="2">

<%=rs("name")%>
<%=rs("address")%>
<%=rs("city")%>, Victoria, <%=rs("postcode")%>

<%if rs("mlvl")<>"Basic" OR rs("category")="Attractions" OR rs("category")="Community Organisations" then%> <%end if%> <%if rs("mlvl")<> "Basic" OR rs("category")="Attractions" OR rs("category")="Community Organisations" then%> <%end if%> <%if rs("category")<>"Attractions" AND rs("category")<>"Community Organisations" then%> <%if rs("memb")=false then%> <%end if%> <%end if%>

<%=rs("owners")%>

<%=rs("phone")%> <%if rs("mobile") <> "" and rs("memb")=true then%>

<%=rs("mobile")%>
<%end if%> <%if rs("fax") <> "" and rs("memb")=true then %>

<%=rs("fax")%> <% end if %>

"><%=rs("email")%>
<%if rs("mlvl")="Enhanced Plus" OR rs("category")="Attractions" OR rs("category")="Community Organisations" then%>

" target="_blank"><%=rs("url")%> <%end if%>

<%=ps("about")%>

This business is not a member of the Gisborne District Business and Tourism Association.
No further information is available.

<% rs.movenext %> <%loop%>