<% 'Response.Buffer = True dim x,xdate,ydate , varfld 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") %> Updates from President.............www.kutchggf.org

<% currPage = Trim(Request.QueryString("currPage")) if currPage = "" then currPage = 1 end if rs.Open "Select * from member_master where category='President' and 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 memocolumn = rs("comments") %> <% varFld = Replace(comments, vbCrLf, "
") response.write varfld %> <% sr=sr+1 rs.MoveNext Loop End If %>

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

Update from President

Date

Subject

Description

<% =rs("edate") %>

<% =rs("fname") %>

<% response.write(replace(memocolumn, CHR(10), CHR(10) & "
")) %>

<% 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 %>

Copyright © 2013 Godhara Graduate Forum All Rights Reserved.

Powered By