%@ 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
%>
|
Members in IMAC's Monitoring Programmes for Soccer Ball Industry |
( In Alphabetic Order) |
|
|
|
Sr.
|
Member Name
|
Category/Status
|
<%
For intRecord = 1 To rs.PageSize
%>
<%=rs("Serial")%>
|
<%=rs("Name")%>
|
<%=rs("Category")%>
|
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
Legend: |
A = Category 'A' , B = Category 'B' , C = Category 'C' , |
P-UP = Provisional-Under Probation , P-PB = Provisional-Performing Badly |