<!--#include file="top_messageboard.asp" -->
<!--#include file="dbconn.asp" -->

<%
if ( Request.QueryString("LOGOUT") = "1" ) then
	sqlstr = "UPDATE tblUser SET Online = '0' where UserId = " & session("USERID")	
	db.execute sqlstr	
	session("USERNAME") = ""	
end if

catid = request.QueryString("catid")
	
	if ( catid = "" ) then
		catid = request.Form("drpcat")
	end if

	if ( catid = "" ) then
			dim rsfirstcat 			
			set rsfirstcat = server.CreateObject("ADODB.Recordset")
			'sqlstr = "select * from tblCategory order by Name" 
			sqlstr = "select tblCategory.CategoryId from tblCategory,tblTopic where  tblCategory.CategoryId = tblTopic.CategoryId order by tblCategory.Name" 
			rsfirstcat.Open  sqlstr,db,3
			if(not rsfirstcat.eof) then
				catid = rsfirstcat.fields("CategoryId")
			else
				catid = 0
			end if
			set rsfirstcat = Nothing
	end if
	
	dim rscat 			
	set rscat = server.CreateObject("ADODB.Recordset")
	sqlstr = "select * from tblCategory where CategoryId = " & catid 
	rscat.Open  sqlstr,db,3
	if(not rscat.eof) then
		catname = rscat.fields("Name")
	end if
	
	
		username = request.Form("txtuser")
		dim rsuser 			
		set rsuser = server.CreateObject("ADODB.Recordset")
		sqlstr = "select * from tblUser where Role='U' and UserName='" & username & "'"
		rsuser.Open  sqlstr,db,3
		while not rsuser.eof 
		userid =  rsuser.fields("UserId")
		rsuser.movenext
		wend
		rsuser.close
	
	dim rs 			
	set rs = server.CreateObject("ADODB.Recordset")
	
	if (request.QueryString("SORT") = "SORT") then
	 		queryaction = request.QueryString("SORT")
	end if
	
	if (request.QueryString("SEARCH") = "SEARCH") then
	 		queryaction = request.QueryString("SEARCH")
	end if
	
	dim rstopic 			
	set rstopic = server.CreateObject("ADODB.Recordset")
	sqlstr = "select distinct tblCategory.Name,tblTopic.CategoryId from tblTopic,tblCategory where tblCategory.CategoryId = tblTopic.CategoryId order by tblCategory.Name"
	rstopic.Open  sqlstr,db,3	
	
	
Select Case  queryaction	
	Case "SORT"
				orderby = request.QueryString("ORDERBY")
				if ( orderby = 1 ) then
					sqlstr = "select * from tblTopic where CategoryId = " & catid & " order by Subject"
				end if
				if ( orderby = 2 ) then
					sqlstr = "select * from tblTopic where  CategoryId = " & catid  & " order by TopicType"
				end if
				
				if ( orderby = 3 ) then
					sqlstr = "select * from tblTopic where  CategoryId = " & catid  & " order by Date"
				end if

				if ( orderby = 4 ) then
					sqlstr = "select * from tblTopic where  CategoryId = " & catid & " order by Status"
				end if
	
	Case "SEARCH"
				txttopic =  request.Form("txttopic")
				if (txttopic = "") then
					txttopic = request.QueryString("txttopic")
				end if
				txtstartdate =  request.Form("txtstartdate")
				if (txtstartdate = "") then
					txtstartdate = request.QueryString("txtstartdate")
				end if
				
				txtenddate =  request.Form("txtenddate")
				if (txtenddate = "") then
					txtenddate = request.QueryString("txtenddate")
				end if							
				
				str = "where CategoryId = " & catid & " and"
				if (txttopic <> "") then
					str = str & " Subject like '" & txttopic & "%' and" 
				end if
								
				if (username <> "")  then
					if (userid <> "") then
						str = str & " UserId=" & userid & " and" 
					else	
						str = str & " UserId = 0 and" 
					end if
				end if
				
				if (txtstartdate <> "") then
					startdate = Year(cdate(txtstartdate)) & "-" & Month(cdate(txtstartdate)) & "-" & Day(cdate(txtstartdate))
					str = str & " Date >= '"& startdate & "' and" 
				end if
				
				if (txtenddate <> "") then
					enddate = Year(cdate(txtenddate)) & "-" & Month(cdate(txtenddate)) & "-" & Day(cdate(txtenddate))
					str = str & " Date <= '" & enddate & "' and" 
				end if
				
				if (str <> "") then
					str = left(str,len(str) - 3)
					sqlstr =  "select * from tblTopic " & str & " order by Subject"
				end if
		
	Case Else 
				sqlstr ="SELECT * FROM tblTopic  where CategoryId = " & catid & " order by Subject"
End Select 	

'response.Write(sqlstr)
'response.End()

rs.Open  sqlstr,db,3
'TotalRec = rs.RecordCount	
	
	
	if (request.QueryString("ERRCODE") = "DELSUCC") then
		msg = "Records have been deleted successfully"
	end if
	if (request.QueryString("ERRCODE") = "UPDSUCC") then
		msg = "Records have been updated successfully"
	end if

%>
<script language="javascript" src="Javascript/VALIDATE.js" type="text/javascript">
</script>
<script language="javascript" type="text/javascript">
function Search()
		{
			if (CheckDate(document.topic_list.txtstartdate)== false)
			{
				alert("Please Enter Valid Date in mm/dd/yyyy format");
				document.topic_list.txtstartdate.select();
				document.topic_list.txtstartdate.focus();
				return false;
			}
			if (CheckDate(document.topic_list.txtenddate)== false)
			{
				alert("Please Enter Valid Date in mm/dd/yyyy format");
				document.topic_list.txtenddate.select();
				document.topic_list.txtenddate.focus();
				return false;
			}
			
			stdate = new Date(document.topic_list.txtstartdate.value);
			enddate = new Date(document.topic_list.txtenddate.value);
		
			if( stdate  > enddate)
			{
				alert("Post Date To must occur after Post Date From");
				return false;
			}			
			
			topic_list.action = "topic_list.asp?SEARCH=SEARCH";
			topic_list.submit ();
		}
		
</script>
<!--#include file="totalRec.asp" -->
<!--#include file="paging.asp" -->
<form name="topic_list" method="post" action="">
 <tr>
    <td>
      <table width="100%" border="0" align="center" class="msbtext">
       <!--#include file="top2_messageboard.asp" -->
		<tr>
			<td height="40">
		  <img src="images/activetopic_header.jpg" width="554" height="28">
		  </td>
		</tr>
		<% if (session("USERNAME") <> "") then %>
		
        <tr>
          <td> <div align="right"><a href="post_message.asp">
		  <img src="images/newtopiciconbutton.jpg" width="106" height="29" border="0"></a></div></td>
          </tr>
		  <% end if %>
        <tr>
          <td>
		  
		  <table width="100%" border="0">
            <tr align="center" valign="middle">
              <td height="30" colspan="7"><div align="center"></div>
                <div align="center">
                  <table width="95%" border="0">
                    <tr class="msbtext">
                      <td height="30"><span class="Normaltext">Topic : </span></td>
                      <td height="30"><input name="txttopic" type="text" id="txttopic" class="textBoxCss" value="<%=txttopic %>" /></td>
                      <td height="30"><span class="Normaltext">Category : </span></td>
                      <td height="30"><span class="text">
                        <select name="drpcat" id="drpcat" class="textboxCss">
                          <% while not rstopic.eof  %>
                          <option value="<%=rstopic("CategoryId")%>" <% if (cint(rstopic("CategoryId")) = cint(catid)) then %> selected<%end if %> ><%= Left(rstopic("Name"),24) %>...</option>
                          <%  
								rstopic.movenext
								wend %>
                        </select>
                      </span></td>
                      <td height="30">&nbsp;</td>
                    </tr>
                    <tr class="msbtext">
                      <td height="30">User : </td>
                      <td height="30"><span class="text">
                        <input name="txtuser" type="text" id="txtuser" class="textBoxCss" value="<%=username %>" />
                      </span></td>
                      <td height="30">&nbsp;</td>
                      <td height="30">&nbsp;</td>
                      <td height="30">&nbsp;</td>
                    </tr>
                    <tr class="msbtext">
                      <td height="30"><span class="Normaltext">Post Date&nbsp;From&nbsp;:<br>
                        (mm/dd/yyyy)</span></td>
                      <td height="30"><input name="txtstartdate" type="text" class="TextboxCss"  id="txtstartdate" value="<%=txtstartdate %>" size="20" maxlength="10" /></td>
                      <td height="30"><span class="Normaltext">Post Date&nbsp;To :<br>
                        (mm/dd/yyyy)</span></td>
                      <td height="30"><input name="txtenddate" type="text" class="TextboxCss" id="txtenddate" value="<%=txtenddate %>" size="20" maxlength="10" /></td>
                      <td height="30">
				<input name="btnSearch" type="image" onClick="return Search();" src="images/search.jpg" alt="" width="62" height="21" border="0" /></td>
                    </tr>
                  </table>
                </div></td>
            </tr>
            <tr class="msgerrortext">
              <td height="25" colspan="7"><div align="center">
                    <% if request.QueryString("msg") = "Add" then
			  			response.Write("Your topic has been posted successfully")
			  			elseif request.QueryString("msg") = "Edit" then
			  			response.Write("Your topic has been updated successfully")
						elseif request.QueryString("LOGOUT") = 1 then
						response.Write("You have been successfully logged out")
						elseif request.QueryString("msg") = "AddReply" then
			  			response.Write("Your reply has been posted successfully")						
			  			end if
			  %>
              </div></td>
            </tr>
            <tr class="msbtitle">
              <td width="10%" >&nbsp;</td>
              <td width="40%" ><a href="topic_list.asp?SORT=SORT&ORDERBY=1&catid=<%=catid%>" class="msbtitle" >Topic</a></td>
              <td width="15%" ><a href="topic_list.asp?SORT=SORT&ORDERBY=3&catid=<%=catid%>" class="msbtitle">Date</a></td>
              <td width="10%" ><div align="center" background="images/listbg.jpg" style="background-repeat:repeat-x ">Replies</div></td>
              <td width="10%" ><div align="center">Views</div></td>
              <td width="15%" colspan="2" ><div align="center">Last Post </div></td>
            </tr>
			<% if rs.eof then	 %>
			  <tr class="msbtext">
			    <td height="30" colspan="7"><div align="center">Records not Found</div></td>
			    </tr>
				<% end if %>			
			   <% if not rs.EOF then							
					rs.move(strec)					
					For i = strec to (edrec - 1) STEP 1
			  %>
            <tr valign="top" class="msbtext">
           <td width="10%" height="25" align="center"><% if rs.Fields("TopicType") = "Hot" then 
		   response.write("<img src='images/hot_topic_no_new_posts_icon.gif' width='18' height='15'>")
		   elseif rs.Fields("TopicType") = "Sticky" then
		   response.write("<img src='images/pinned_topic_icon.gif' width='18' height='15'>")
		   else 
		   response.write("<img src='images/no_new_posts_icon.gif' width='18' height='15'>")
		   end if  %></td>			
		   <% 
					subject = rs.Fields("Subject")
					if len(subject) > 40 then
					subject =left (subject,40) & " ..."
					end if			
					
		 		set rstopics = server.CreateObject("ADODB.Recordset")		
				sqlstr = "select max(Date),count(TopicId) from tblReply where TopicId=" & rs.Fields("TopicId")
				rstopics.open sqlstr,db,3 
			 %>    
              <td width="40%" height="25"><a href="forum_posts.asp?flag=T&topic=<% =rs.Fields("TopicId")%>">
              </a><a href="forum_posts.asp?flag=T&topic=<% =rs.Fields("TopicId")%>">
              <% =subject %>
              </a></td>
              <td width="15%" height="25"><div align="center">
                <% =rs.Fields("Date")%>
              </div></td>
              <td width="10%" height="25"><div align="center">
                <% =rstopics.Fields(1)%>
              </div></td>			  
              <td width="10%" height="25"><div align="center">
                <% =rs.Fields("NoOfViews")%>
</div></td>
			
              <td width="15%" height="25" colspan="2"><div align="center">
                <% =rstopics.Fields(0)%>
              </div></td>
            </tr>
			<%
					rs.MoveNext					
					next
					end if 
			%>
			
			
			                     <tr class="msbtext">
                       <td colspan="7" class="msbtext">&nbsp;</td>
                     </tr>
                     <tr class="msbtext">
                       <td colspan="7" class="msbtitle"><% 	if (prevflag) then	%>
                         <%	if (queryaction = "SEARCH") then %>
                         <a href="topic_list.asp?START=<%=prevlnk %>&PGNO=<%=( start - 1 ) %>&SEARCH=SEARCH&catid=<%=catid%>&txttopic=<%=txttopic %>&txtstartdate=<%=txtstartdate %>&txtenddate=<%=txtenddate %>">Previous</a>&nbsp;
                         <%
					 elseif (queryaction = "SORT") then %>
                         <a href="topic_list.asp?START=<%=prevlnk %>&PGNO=<%=( start - 1 ) %>&SORT=SORT&catid=<%=catid%>&ORDERBY=<%=orderby %>">Previous</a>&nbsp;
                         <%else %>
                         <a href="topic_list.asp?START=<%=prevlnk %>&PGNO=<%=( start - 1 ) %>&catid=<%=catid%>">Previous</a>&nbsp;
                         <% end if
					
					
				else					
					response.Write("&nbsp;&nbsp;&nbsp;")	
								
				end if %>
                         <%	pg= start + 1
						For i = start to  ( end1 - 1 )  STEP 1
							if (activelnk = i ) then
								response.Write( "<u>"& pg & "</u>" )	
							elseif (queryaction = "SEARCH") then
							%>
                         <a href="topic_list.asp?START=<%=start %>&PGNO=<%=i %>&SEARCH=SEARCH&catid=<%=catid%>&txttopic=<%=txttopic %>&txtstartdate=<%=txtstartdate %>&txtenddate=<%=txtenddate %>"><%=pg %></a>
                         <%
							elseif (queryaction = "SORT") then
				%>
                         <a href="topic_list.asp?START=<%=start %>&PGNO=<%=i %>&SORT=SORT&ORDERBY=<%=orderby %>&catid=<%=catid%>"><%=pg %></a>
                         <%			
							else %>
                         <a href="topic_list.asp?START=<%=start %>&PGNO=<%=i %>&catid=<%=catid%>"><%=pg %></a>
                         <%
							end if
							pg = pg + 1	
							next
				if (nextflag) then
					if (queryaction = "SEARCH") then
							%>
&nbsp;<a href="topic_list.asp?START=<%=end1 %>&PGNO=<%=end1 %>&SEARCH=SEARCH&catid=<%=catid%>&txttopic=<%=txttopic %>&txtstartdate=<%=txtstartdate %>&txtenddate=<%=txtenddate %>">Next</a>
<%	elseif (queryaction = "SORT") then %>
&nbsp;<a href="topic_list.asp?START=<%=end1 %>&PGNO=<%=end1 %>&SORT=SORT&catid=<%=catid%>&ORDERBY=<%=orderby %>">Next</a>
<%		else %>
&nbsp; <a href="topic_list.asp?START=<%=end1 %>&PGNO=<%=end1 %>&catid=<%=catid%>">Next</a>
<%		end if
				else
						response.Write("&nbsp;")
								end if
				%></td>
                     </tr>		  
                     <tr align="center" valign="middle">
                       <td height="50" colspan="7"><table width="65%" border="0">
                         <tr class="msbtext">
                           <td width="5%"><img src="images/hot_topic_no_new_posts_icon.gif" width="18" height="15">&nbsp;</td>
                           <td width="28%">Hot Topic</td>
                           <td width="5%"><img src="images/pinned_topic_icon.gif" width="18" height="16">&nbsp;</td>
                           <td width="28%">Sticky Topic</td>
                           <td width="5%"><div align="center"><img src="images/no_new_posts_icon.gif" width="18" height="15">&nbsp;</div></td>
                           <td width="29%">Normal Topic</td>
                         </tr>
                       </table>
                         <div align="center"></div>
                         <div align="center"></div></td>
                     </tr>
                     <tr>
                       <td colspan="7">&nbsp;</td>
                     </tr>
          </table></td>
        </tr>
      </table>
    
	</td>
  </tr>
 </form>
<!--#include file="bottom_messageboard.asp" -->