<% msgid = request.QueryString("errmsg") member = request.QueryString("txtmember") if (member = "") then member = request.Form("txtmember") end if action = request.QueryString("SEARCH") if ( action = "SEARCH") then selsql = "select * from tblUser where Role='U' and UserNAme like '" & member & "%' " else selsql = "select * from tblUser where Role='U'" end if set rs = server.CreateObject("ADODB.Recordset") rs.Open selsql,db,3 'TotalRec = rs.RecordCount %>
<% if msgid = 4 then msg= "Your profile has been updated" end if %> <% if (msg <> "") then %> <% end if %> <% if rs.EOF then %> <% else rs.move(strec) For i = strec to (edrec - 1) STEP 1 %> <% set rs1 = server.CreateObject("ADODB.Recordset") selsql1 = "select count(*) from tblTopic where UserId=" & rs.Fields("UserId") rs1.Open selsql1,db,3 TotalRec1 = rs1.fields(0) rs1.close %> <% set rs2 = server.CreateObject("ADODB.Recordset") selsql2 = "select count(*) from tblReply where UserId=" & rs.Fields("UserId") rs2.Open selsql2,db,3 TotalRec2 = rs2.fields(0) rs2.close %> <% rs.MoveNext next end if %>
Member Search :
<% = msg %>
Username Email
Posts
Replies
Registered
Records not Found
<% =rs.Fields("UserName")%> <% =rs.Fields("Email")%>
<% =TotalRec1 %>
<% =TotalRec2 %>
<% =rs.Fields("JoinDate")%>
 
<% if (prevflag) then %> Previous  <% else response.Write(" ") end if %> <% pg= start + 1 For i = start to ( end1 - 1 ) STEP 1 if (Cint(activelnk) = i ) then response.Write( ""& pg & "" ) else %> <%=pg %> <% end if pg = pg + 1 next %> <% if (nextflag) then %>  Next <% else response.Write(" ") end if %>