Members

<%@ language="VBScript"%> <% response.buffer=true %> Members <% If Request.QueryString("data") = "false" Then Response.Write " Sorry! No member found" End If %>

---/ Admin /---

Members in IMAC's Monitoring Programmes for Soccer Ball Industry

	1. Members in Category - A

	2. Members in Category - B

	3. Members in Category - C

	4. Provisional Members
		4(a). Provisional Members Under Probation
		4(b). Provisional Members Performing Badly

	5. Members Stricken Out Due to Serious Violations

	6. Members Stricken Out Due to Non Payment

	Members list in alphabetic order (View List)

<% If Request.Form("Cat") <> "" Then Category = Request.Form("Cat") End If If Request.QueryString("cat") <> "" Then Category = Request.QueryString("cat") End If If Category <> "" Then ' 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 List Where Category Like '"& Category &"'",con,3,3,adcmdtable If Rs.Eof Then Response.Redirect "members.asp?data=false" End If 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 %> List of <%=UCase(Category)%> class members <% For intRecord = 1 To rs.PageSize %> <% rs.MoveNext If rs.EOF Then Exit For Next %>

Sr. Member Name
<%=Rs("S/N")%> <%=rs("Company_Name")%>

Page: <%=Intpage & " of " & intpagecount%>
<% End IF %>