Plant Directory: Deciduous Shrubs

<%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%> "> <%Else%>   <%End If%>

<%If CInt(iStartAt + 4) < iNoRecs Then%> "> <%Else%>   <%End If%>