<% '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 Rs=Server.CreateObject("Adodb.Recordset")
Sql = "Select * from photo order by id "
Rs.Open Sql,cn,1,2
path1="photos\"
Rs.Pagesize=5
name=Request.QueryString("first_name")
Rs.absoluteposition=i
Rs.AbsolutePage=cINT(currentPage)
rowCount=0
%>
NGO Safrg : Workshops Photo Gallery
