<% 'Const adOpenStatic = 3 'Const adOpenDynamic=2 'Const adLockOptimistic = 3 'Const adUseClient = 3 'Dim cnn 'A variable that references the connection 'object 'Dim rs 'Dim str, DBConnect 'A variable that references the connection 'string 'Dim SQLstring, strSQL 'Dim recordCount 'Dim id, displayOrder, image, thumb, title, designer, story, credits 'Dim lngRecsAffected, iRecordID 'Dim SCRIPT_NAME 'SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME") 'Dim BACK_TO_LIST_TEXT 'BACK_TO_LIST_TEXT = "

Click " _ '& "here to go back to record list.

" 'DBConnect = "Driver={MySQL ODBC 3.51 Driver}; Server= localhost; Database=datacollector; User Id=root; Password=s@monbay;" 'Set cnn = CreateObject("ADODB.Connection") 'Set rs = CreateObject("ADODB.Recordset") 'cnn.ConnectionString = DBConnect 'cnn.open() 'SQLstring = "SELECT thumb, title, id FROM archive WHERE archive.show = 'NW' AND archive.showyear = '2007' ORDER BY displayOrder;" 'rs.Open SQLstring, cnn, adOpenStatic, adLockOptimistic %>

We are in the process of updating this page.

 
<% 'recordCount=1 'Do while not rs.EOF %> <% 'if recordCount mod 3 = 0 then %> <%'end if 'recordCount= recordCount+1 'rs.MoveNext 'Loop 'if recordCount mod 3 = 1 then %> <% 'elseif recordCount mod 3 = 2 then %> <% 'end if 'rs.close %> <% 'SQLstring = "SELECT id, designer, image, title FROM archive WHERE archive.show = 'NW' AND archive.showyear = '2007' ORDER BY designer;" 'rs.Open SQLstring, cnn, adOpenStatic, adLockOptimistic 'while not rs.EOF %> <% 'rs.MoveNext 'Wend 'rs.close %>

 

GARDEN ARCHIVES

2007 Display Garden Creators
Click an image to enlarge and read a description of any garden.
Photos by Michael Walmsley

 

" target="_blank">" height="125" width="125"/>
<% 'rs.Fields("title").value %>

 

  
 
" target="_blank"><% 'rs.Fields("designer").value %>
<% 'rs.Fields("title").value %>
<% 'Close the connection 'cnn.Close %>