%@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 |
Add |
<%
While ((Repeat1__numRows <> 0) AND (NOT rsPlants.EOF))
%>
<%=(rsPlants.Fields.Item("CommonName").Value)%> |
<%=(rsPlants.Fields.Item("BotanicalName").Value)%> |
|
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsPlants.MoveNext()
Wend
%>
|
<%
rsPlants.Close()
Set rsPlants = Nothing
%>