<%@LANGUAGE="VBSCRIPT"%> <% Dim rsPlants Dim rsPlants_numRows InitialLetter = Request.QueryString("InitialLetter") Set rsPlants = Server.CreateObject("ADODB.Recordset") rsPlants.ActiveConnection = MM_connPlants_STRING rsPlants.Source = "SELECT * FROM Plants WHERE CommonName LIKE '" & InitialLetter & "%' ORDER BY CommonName ASC" rsPlants.CursorType = 0 rsPlants.CursorLocation = 2 rsPlants.LockType = 1 rsPlants.Open() rsPlants_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsPlants_numRows = rsPlants_numRows + Repeat1__numRows %> Pro Growers, Inc.

Common Name

Botanical Name
Plants name containing:
<% While ((Repeat1__numRows <> 0) AND (NOT rsPlants.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsPlants.MoveNext() Wend %>
Common Name Botanical Name Add
<%=(rsPlants.Fields.Item("CommonName").Value)%> <%=(rsPlants.Fields.Item("BotanicalName").Value)%>
"> "> ">
<% rsPlants.Close() Set rsPlants = Nothing %>