DOWNLOAD THE THEME SONG!

<% Dim objRS2 Set objRS2 = Server.CreateObject("ADODB.Recordset") SQLString = "SELECT * FROM tblPlants WHERE boolActive=true" 'Generate a query Set objRS2 = objConn.Execute (SQLString) %> <% While Not objRS2.EOF %>

Plant of the week

<% Response.Write("
") Response.Write("" & objRS2.Fields("txtPlant_Name").Value & "

") Response.Write("Exposure: " & objRS2.Fields("txtExposure").Value & "
") Response.Write("Drainage: " & objRS2.Fields("DDLDrainage").Value & "
") Response.Write("Soil: " & objRS2.Fields("DDLSoil").Value & "
") Response.Write("Fertilization: " & objRS2.Fields("DDLFertilization").Value & "
") Response.Write("Pruning: " & objRS2.Fields("DDLPruning").Value & "
") Response.Write("Flowering: " & objRS2.Fields("DDLFlowering").Value) %> <% objRS2.MoveNext Wend %>
 
  sponsored by:
The Garden Barn
228 West Street,
Vernon, CT
860-872-6446