<% set rs=Server.CreateObject("ADODB.RECORDSET") sql=" select * from Category" rs.Open sql,sdsn,adOpenKeyset,adLockReadOnly,AdCmdText ' for i = 0 to rs.Fields.count -1 ' rs.MaxRecords = 12 ' do until i = 6 ' i = i -1 ' if i < 7 then exit do ' loop ' i=0 ' while i < 6 ' Response.write("" & vbNewline) ' i=i+1 ' rs.MoveNext() ' wend %> <% count = RS.RecordCount / 7 if rs.recordcount/7-(int(rs.recordcount/7))>0 then count=count+1 end if count=int(count) RS.PageSize = 7 ' Number of rows per page if PageNo < 1 Then PageNo = 1 else PageNo = 1 end if RS.AbsolutePage = PageNo do while not rs.EOF %> <% 'i=0 'do while i < 6 'Response.write("" & vbNewline) 'i=i+1 'rs.MoveNext() 'loop %> ">" width="82" height="82" alt="<%=(rs("Category"))%>"> <% rs.MoveNext() loop %> <% 'end if %> <% 'next %> <% ' -- Now output the contents of the Recordset ' Do While Not RS.EOF ' -- output the contents ' Response.Write "" ' For i = 3 to rs.Fields.count -1 ' Response.Write "" ' Next ' Response.write "

" & RS.Fields(i) & "

" ' -- move to the next record ' RS.MoveNext ' loop %> <% set rs1=Server.CreateObject("ADODB.RECORDSET") sql=" select * from Colorcat" rs1.Open sql,sdsn,adOpenKeyset,adLockReadOnly,AdCmdText do while not rs1.EOF %> <% rs1.MoveNext() loop %>

">" width="90" height="29" alt="<%=(rs1("Color"))%>" align="center">
Red flowering	Yellow flowering	Blue flowering	White flowering	Pink flowering