<% dim pagecount,page,Spage,Epage,recordcount,i page = request.querystring("page") if page = "" or IsNull(page) then page = 1 if not IsNumeric(page) then page = 1 page = Cint(page) set rs = server.CreateObject ("Adodb.recordset") ProduceTypeId = request.querystring("ProduceTypeId") If ProduceTypeId = "" Or IsNull(ProduceTypeId) then sql="SELECT ProduceInfo.*, ProduceType.ProduceTypeName FROM ProduceInfo left JOIN ProduceType ON ProduceInfo.ProduceTypeId = ProduceType.ProduceTypeId order by ProduceInfo.producename desc " Else sql="SELECT ProduceInfo.*, ProduceType.ProduceTypeName FROM ProduceInfo left JOIN ProduceType ON ProduceInfo.ProduceTypeId = ProduceType.ProduceTypeId where ProduceInfo.ProduceTypeId = " & ProduceTypeId & " order by ProduceInfo.producename desc " End If rs.open sql,conn,1,1 recordcount = RS.RecordCount RS.PageSize = PAGESIZE pagecount = RS.PageCount if page < 1 then page = 1 elseif page > pagecount then page = pagecount end if %>
<% if Not RS.EOF then if recordcount > 0 then RS.AbsolutePage = page j = 1 %> <% for i = 1 to PAGESIZE %> <% if (j mod 3) = 2 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <% elseif (j mod 3) = 1 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <%else%> <% If Not RS.Eof Then %> <% Else %> <%End If %> <% If j < PAGESIZE Then %> <%End If %> <% end if j = j + 1 If Not RS.EOF then RS.MoveNext() End If next end if %>
    POP 10070
 
    POP 10071
 
    POP 10072
 

<% if Not RS.EOF then if recordcount > 0 then RS.AbsolutePage = page j = 1 %> <% for i = 1 to PAGESIZE %> <% if (j mod 3) = 2 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <% elseif (j mod 3) = 1 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <%else%> <% If Not RS.Eof Then %> <% Else %> <%End If %> <% If j < PAGESIZE Then %> <%End If %> <% end if j = j + 1 If Not RS.EOF then RS.MoveNext() End If next end if %>
    POP 10073
 
    POP 10074
 
    POP 10075
 

<% if Not RS.EOF then if recordcount > 0 then RS.AbsolutePage = page j = 1 %> <% for i = 1 to PAGESIZE %> <% if (j mod 3) = 2 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <% elseif (j mod 3) = 1 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <%else%> <% If Not RS.Eof Then %> <% Else %> <%End If %> <% If j < PAGESIZE Then %> <%End If %> <% end if j = j + 1 If Not RS.EOF then RS.MoveNext() End If next end if %>
    POP 10076
 
    POP 10077
 
    POP 10078
 
<<< 1 2 3 4 5 6 7 8 9 10 >>>