<% if session("adminuser")="" then Response.Redirect("adminpage.asp") end if set rst = server.CreateObject ("adodb.recordset") sstr = "select * from clientpostedleads" rst.Open sstr, cn,1,1 if rst.recordcount=0 then response.write("

"&" No Leads Posted by the clients "&"

") else dim thisPage, rowcount, i thisPage = Trim(Request("thisPage")) if thisPage = "" then thisPage = 1 rst.pagesize=10 rst.absolutepage=cInt(thispage) rowCount = 0 %>

<% while not rst.EOF and rowCount < rst.PageSize if trcr=1 then trcr=0 response.write("") else trcr=1 response.write("") end if %> <% state=rst("status") if (state="hold") then %> <%elseif state = "verified" then%> <%elseif state = "sent" then%> <%elseif state = "closed" then%> <%end if%> <% rowCount = rowCount + 1 'Response.Write "" rst.MoveNext wend %> <% Response.Write("

MessageId	Client Name	Client Organization	ClientEmailid	Lead Posted Date	Client Category	Client Description	Status
<%=rst("cid")%>	<%=rst("cname")%>	<%=rst("corgname")%>	<%=rst("cemailid")%>	<%=rst("cpostdate")%>	<%=rst("ccategory")%>	<%=rst("cdescription")%>

") Response.Write "
Next Page >" for i = 1 to rst.PageCount %> <%=i%> <% next response.write " Page : "&thispage&" of " response.write rst.pagecount response.write("

Total Reply Message:"&rst.recordcount&"

") end if %>