<% 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("consult order by dt desc") 'Response.Write(ds.getMsg()) Dim i As Integer While i < rs.Count / ds.getCols() %> <% If rs.Item(i * ds.getCols() + 6) <> "" Then%> <% End If%>

Q:<%=rs.Item(i * ds.getCols() + 4)%>
Question 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)%>
Advice:<%=rs.Item(i * ds.getCols() + 6)%>
Replied On:<%=rs.Item(i * ds.getCols() + 7)%>

<% i = i + 1 End While %>

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

Top

Website Designed by: Holidaygoa Enterprises