<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Friends of Telegraph Hill Park <% Dim objFSO ' prepare the sql statement sqlSelect = "SELECT * FROM tblTrees WHERE strPark='Upper'" 'create recordset set rstTrees = myconn.execute(sqlSelect) %> Telegraph Hill Park: trees
Upper Park
Map Lower park
<% if not rstTrees.eof then ' there are results... %> <% 'Set objFSO = CreateObject("Scripting.FileSystemObject") %> <% CellCount = 0 %> <% While not rstTrees.eof %> <% if CellCount = 8 then %> <% CellCount = 0 %> <% End if %> <% CellCount = CellCount + 1 %> <% rstTrees.Movenext %> <% Wend %> <% end if%>
<% 'strFileName="images/trees/thumbnails/" & rstTrees("strTreeID") & ".jpg" %> <% 'If objFSO.FileExists(strFileName) then %> <% If rstTrees("ysnImage") = True then %> &image=<% =rstTrees("strTreeID") %>">.jpg" border="0">
<% Else %> <% If rstTrees("strRequirement") = " Fell" then %> &image=deadtree">
<% Else %> &image=noimage">
<% End if %> <% End if %>
<% =rstTrees("strTreeID") %>: <% =rstTrees("strSpecies") %>
<% Set objFSO = Nothing %> <% Set rstTrees = Nothing %> <% myconn.close %> <% Set myconn = nothing %>