AYURVEDA

HEALTH ARTICLES

Our Links

www.bambuswald.de

www.asia-buddha-art.de

Online Consultation


<% 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 %>/>

Website Designed by: Holidaygoa Enterprises