<%@ language="VBScript"%> <% response.buffer=true %> Members <% If Request.QueryString("data") = "false" Then Response.Write "
Sorry! No member found
" End If %> <% ' Table embedding 'dim rs, con set con=server.createobject("adodb.connection") con.provider="microsoft.jet.oledb.4.0" con.open(server.mappath("db/members.mdb")) ' con="dsn=apna-302" set rs=server.createobject("adodb.recordset") Rs.Open "Select * from Manufacturers order by name asc",con,3,3,adcmdtable rs.PageSize = 12 intPageCount = rs.PageCount Select Case Request("Action") case "<<" intpage = 1 case "<" intpage = Request("intpage")-1 if intpage < 1 then intpage = 1 case ">" intpage = Request("intpage")+1 if intpage > intPageCount then intpage = IntPageCount Case ">>" intpage = intPageCount case else intpage = 1 end select rs.AbsolutePage = intPage %>
  <% For intRecord = 1 To rs.PageSize %> <% rs.MoveNext If rs.EOF Then Exit For Next %>
 
Members in IMAC's Monitoring Programmes for Soccer Ball Industry
( In Alphabetic Order)
     
Sr.
Member Name
Category/Status
<%=rs("Serial")%> <%=rs("Name")%>
<%=rs("Category")%>
Page: <%=Intpage & " of " & intpagecount%>
Legend:
A = Category 'A' , B = Category 'B' , C = Category 'C' ,  
P-UP = Provisional-Under Probation , P-PB = Provisional-Performing Badly