<% 'If session("allow") = False Then Response.Redirect "signin.htm" %>
<%' userid=Request.Form(session("user_id")) %> <%userid=session("user_id")%>
<%
Dim currentPage,rowCount,i,pagecount
if not i= "" then
i=cINT(Request.QueryString("currentPage"))
else
i = 1
end if
currentPage=TRIM(Request("currentPage"))
if currentPage="" then
currentPage=1
end if
on error resume next
Set rst1 = Server.CreateObject ("ADODB.Recordset")
rst1.Open "Select count(*) FROM calender_event",cn,1,2
Number=rst1(0)
Set Rs=Server.CreateObject("Adodb.Recordset")
Sql = "Select * from calender_event order by Event_id "
Rs.Open Sql,cn,1,2
Rs.Pagesize=20
name=Request.QueryString("first_name")
Rs.absoluteposition=i
Rs.AbsolutePage=cINT(currentPage)
rowCount=0
%>
NGO Safrg : Calendars Event