<%
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%>
Add
Entry into Guestbook
<%
set rsguest1 = Nothing
set Rsguest = Nothing
closeConn()%>
|
