<% Dim ds As dataservice ds = New dataservice() Dim pg As String Dim pgsize As Integer pg = Request.QueryString("pg") If pg = "" Then pg = "0" End If pgsize = 10 ds.setPg(CInt(pg)) ds.setPgSize(pgsize) Dim rs As ArrayList rs = ds.getRows("comment order by dt desc") 'Response.Write(ds.getMsg()) Dim i As Integer While i < rs.Count / ds.getCols() %>

<%=rs.Item(i * ds.getCols() + 4)%>
Posted By:<%=rs.Item(i * ds.getCols() + 1)%>	Email:<%=rs.Item(i * ds.getCols() + 3)%>	Location:<%=rs.Item(i * ds.getCols() + 2)%>	Date:<%=rs.Item(i * ds.getCols() + 5)%>

<% i = i + 1 End While%>

disabled="disabled"<% end if %>/> disabled="disabled"<% end if %> onclick="location.href='guestbook.aspx?pg=<% = cint(pg) -1 %>';" /> disabled="disabled"<% end if %> onclick="location.href='guestbook.aspx?pg=<% = cint(pg) + 1 %>'" /> disabled="disabled"<% end if %>/>

Top

Website Designed by: Holidaygoa Enterprises