<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%session("url")="/doctors/doc_discussionForum.asp"%> <% set rs=server.CreateObject("adodb.recordset") set conn=server.CreateObject("adodb.connection") conn.open g_strConnectionString rs.open "select * from tm_banner where isDeleted='N' and isArchived='N' and placement=17 and bannerdateupto>=getdate()",conn,3,3 if rs.recordcount<>0 then url=rs("url") imagepath=rs("imagepath") imagename=rs("imagename") end if rs.close set rsTopic=server.CreateObject("adodb.recordset") set rsComment=server.CreateObject("adodb.recordset") FromDate=request("FromDate") '& "-" & request("cmbFromMonth")& "-" & request("cmbFromYear") ToDate=request("ToDate") Category=request("Category") Topic=request("Topic") if FromDate="" or FromDate="--" then FromDate="1900-01-01" end if if ToDate="" or ToDate="--" then ToDate="9999-12-31" end if if Category="" then Category=-1 end if if Topic="" then Topic=-1 end if response.Write("" & chr(13))%> National Liver Foundation - Doctors Section - Discussion Forum
Welcome <%=session("LoginName")%>   
 
<%=session("Message")%>
  DISCUSSION FORUM
SEARCH FOR

Search For *
From*  /   / 
To*  /   / 
 

   
Click on the folder icon to view the topics within that category. Click on the topic description to view / add comments for that topic.
<%strSql="select category_id,category_name from tm_category where isDeleted='N'" 'if cint(Category)<>-1 then ' strSql=strSql & " and category_id=" & Category 'end if rs.open strSql,conn,3,3%> <%if rs.recordcount<>0 then%> <%while not rs.eof%> <%if cint(Category)<>-1 then%> <%if cint(Category)=cint(rs("category_id")) then%> <%strSql="select topic_id,topic_name from tm_topic where isDeleted='N' and category_id=" & rs("category_id") ' if cint(Topic)<>-1 then 'strSql=strSql & " and topic_id=" & Topic ' end if rsTopic.open strSql,conn,3,3%> <%while not rsTopic.eof%> <%if cint(Topic)<>-1 then%> <%if cint(Topic)=cint(rsTopic("topic_id")) then%> <%rsComment.open "select * from tm_comment where isDeleted='N' and topic_id=" & rsTopic("topic_id") & _ " and Convert(datetime,replace(convert(varchar(11),creationdate,106),' ','-'),106) between '" & FromDate & "' and '" & ToDate & "'",conn,3,3%> <%while not rsComment.eof%> <%rsComment.movenext wend rsComment.close%> <%end if%> <%end if%> <%rsTopic.movenext wend rsTopic.close%> <%end if end if%> <%rs.movenext wend%> <%else%> <%end if%>
);"> <%if cint(rs("category_id"))=cint(Category) then%> <%else%> <%end if%> <%=replace(rs("category_name"),"`","'")%> " class="redText"> Add New Topic
  ,<%=rsTopic("topic_id")%>);" class="grayUnderline"><%=replace(rsTopic("topic_name"),"`","'")%> ,<%=rs("category_id")%>);" class="grayUnderline">Add Comment 
  <%=replace(rsComment("comment_desc"),"`","'")%>
   
No Category Found.
<%if imagepath<>"" then%> > <%end if%>
<%session("Message")=""%> <%session("url")=""%>