Inagural Sufi Art Festival 2009 at Mehfil Khana Dargah Ajmer Shariff-24th Feb

<% set rsguest1= Server.CreateObject ("ADODB.Recordset") sql="select count(*) from gb " rsguest1.open sql, Conn totrecs=rsguest1(0) rsguest1.close Dim Rsguest,currentpage,rowcount,i currentpage = TRIM (Request("currentpage")) if currentpage = "" then currentpage=1 set Rsguest = Server.CreateObject ("ADODB.Recordset") sql ="select * from gb order by guestid desc" Rsguest.Open Sql,Conn,1,2 'Rsguest.PageSize = 5 'Rsguest.AbsolutePage = cInt(currentpage) recsperpage=5 ctr=0 lastpage=cint(totrecs/recsperpage) i=1 while i<((recsperpage*(currentpage-1))+1) and not rsguest.EOF rsguest.movenext i=i+1 wend 'rowcount = 0 while not rsguest.EOF and ctr < recsperpage %>

<%=Rsguest("name")%>

> <%=Rsguest("email")%>

<%=Rsguest("city")%>, <%=Rsguest("country")%>

<%=Rsguest("comments")%>

<%=formatdatetime(Rsguest("date"),vblongdate)%>

<% Rsguest.movenext ctr = ctr + 1 wend %>

Total Guests : <%=totrecs %>.

Page : <%for i=1 to cint(totrecs/recsperpage)+1 %> <%=i%> <%next%>

Email your entries to salmanchishty@hotmail.com

<% set rsguest1 = Nothing set Rsguest = Nothing closeConn()%>