<% 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 %>
 
<% 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 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 %>