<%
ColorID=Request("ColorID")
set rs=Server.CreateObject("ADODB.RECORDSET")
' if you forget if the file is Text or Number you have to enter the Singile Quetes
'sql=" select * from Plants where ColorID='" & Request("ColorID") & "'"
sql=" select * from Plants where ColorID=" & Request("ColorID")
'response.write sql
'response.end()
rs.Open sql,sdsn,adOpenKeyset,adLockReadOnly,AdCmdText
%>
<%=(rs("Color"))%>
<%=(rs("Color"))%>s
Move cursor over picture to see the plant name
Click on a picture to see more details
<%
count = RS.RecordCount / 100
if rs.recordcount/100 then
count=count+1
end if
count=int(count)
RS.PageSize = 100 ' Number of rows per page
'if PageNo < 1 Then
' PageNo = 1
'else
'PageNo = 1
'end if
'RS.AbsolutePage = PageNo
do while not rs.EOF
%>
">
" width="65" height="48" alt="<%=(rs("PlantName"))%>">
<% rs.MoveNext()
loop
%>