<% 'Response.Buffer = True dim x,xdate,ydate Dim adoCon 'Holds the Database Connection Object Dim rs 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database Session.lcid = 2057 Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("std.mdb") Set rs = Server.CreateObject("ADODB.Recordset") %> Donation.............www.kutchggf.org
<% currPage = Trim(Request.QueryString("currPage")) if currPage = "" then currPage = 1 end if rs.Open "Select * from member_master where status='Y' ",adocon,1,3 %>
<% If Request.QueryString("Type") <> "" Then %> <% End if %> <% totalRecords = rs.RecordCount rs.PageSize = 6 pageSize = rs.PageSize if rs.RecordCount > 0 then rs.AbsolutePage = cint(currPage) if rs.RecordCount <> 0 Then Dim intCount,srno,sr intCount = 0 srno = 0 sr=0 Do While Not rs.EOF and sr < pagesize intCount = intCount + 1 srno=srno+1%> <% 'response.write rs("edate") %> <% sr=sr+1 rs.MoveNext Loop End If %>
 

Home About Us Committee Activities Search Photo
Gallery
Download
Forms
Feedback Contact Us

Add your Comments

 

Donation List

Date  Name  Mobile  Email  Detail 
<% =rs("edate") %>  <% =rs("fname") %>  <% =rs("lname") %>  <% =rs("email") %>  <% =rs("comments") %> 
<% iStart = (((currPage - 1)*pageSize) + 1) iEnd = currPage * pageSize if iEnd < totalRecords then iEnd = iEnd else iEnd = totalRecords end if For i = 1 to rs.PageCount if i =cint(currPage) then %> <%response.write("Page : " )%><%response.write(" "&i)%> <% else %> Page : <%=i%> <% end if Next %>  
 
Powered By