Plant Directory: Deciduous Shrubs


Plant Search " size="20">
A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z

<%sFile = "plants" Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "Driver={MySQL}; DATABASE=colinstdb; uid=colinst; pwd=marmaduke" If Request("l") <> "" Then sSQL = "SELECT distinct latin, identifier, planttype, commonname, imagethumb FROM plants WHERE planttype like 'deciduous shrub'ORDER BY latin ASC" Else sSQL = "SELECT distinct latin, identifier, commonname, planttype, imagethumb FROM plants WHERE planttype like 'deciduous shrub'ORDER BY latin ASC" End If Set rsMain = Server.CreateObject("ADODB.Recordset") rsMain.Open sSQL, Connection,1,2 iNoRecs = rsMain.RecordCount 'iNoRecs = 160 If Request("StartAt") <> "" Then iStartAt = CInt(Request("StartAt")) Else iStartAt = 0 End If iNotoList = 4 If iStartAt > 0 Then For i = 1 to iStartAt rsMain.MoveNext Next End If If Not rsMain.EOF Then i = 0 Do While Not rsMain.EOF i = i + 1 %> <%rsMain.MoveNext If i = iNotoList then Exit do End If loop End If%>
<%=rsMain("imagethumb")%>

"><%=rsMain("latin")%>
<%=rsMain("commonname")%>
<%If iStartAt > 0 Then%> ">Previous <%Else%>   <%End If%>
<%If CInt(iStartAt + 4) < iNoRecs Then%> ">Next <%Else%>   <%End If%>