<% if ( Request.QueryString("LOGOUT") = "1" ) then session("USERNAME") = "" end if %> <% if( request.QueryString("ERRCODE") = "SUCCEMAIL") then msg = "Topic has been emailed successfully to your friend" end if topicid = request.QueryString("topic") if request.QueryString("flag") = "T" then set rs = server.CreateObject("ADODB.Recordset") hidtipicid = request.querystring("topic") selsql = " select * from tblTopic where TopicId=" & topicid rs.Open selsql,db,3 views = rs.fields("NoOfViews") rs.close totviews = cint(views) + 1 updsql = "update tblTopic set NoOfViews=" & totviews & " where TopicId=" & topicid db.execute(updsql) end if %> <% set rs = server.CreateObject("ADODB.Recordset") 'selsql = "select * from tblTopic where TopicId=" & request.QueryString("topic") selsql = "select tblTopic.TopicId,tblTopic.CategoryId, tblTopic.Subject, tblTopic.Message, tblTopic.Date, tblTopic.UserId, tblCategory.Name, tblCategory.CategoryId from tblTopic, tblCategory where TopicId=" & request.QueryString("topic") & " and tblTopic.CategoryId = tblCategory.CategoryId" rs.Open selsql,db,3 %>
" name="hidtipicid"> <% if (session("USERNAME") <> "") then%> <% end if %> <% set rs1 = server.CreateObject("ADODB.Recordset") selsql1 = "select * from tblUser where UserId=" & rs.Fields("UserId") rs1.Open selsql1,db,3 %>
<% set rs2 = server.CreateObject("ADODB.Recordset") selsql2 = "select * from tblReply where TopicId=" & rs.Fields("TopicId") rs2.Open selsql2,db,3 set rstot = server.CreateObject("ADODB.Recordset") selsqltot = "select count(*) from tblReply where TopicId=" & rs.Fields("TopicId") rstot.Open selsqltot,db,3 TotalRec = rstot.fields(0) %> <% end if %>
<% 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 %>
Author Message
<% response.write rs1.Fields("UserName") %>
<% response.Write "" %>
Posted on <% =rs.Fields("Date")%>
<% if rs1.fields("AttachSign") = 1 then %> <% end if %>
<%= rs.fields("Subject") %>
<%= rs.fields("Message") %>
<% response.write "
" & rs1.Fields("Signature") & "
" %>
" class="msbtext" > <% if (TotalRec = 0) and (session("USERNAME") = rs1.Fields("UserName")) then %> ">
<% if TotalRec = 0 then %> <% end if %> <% if Not rs2.EOF then rs2.move(strec) For i = strec to (edrec - 1) STEP 1 %> <% rs2.MoveNext if i <> (edrec - 1) then %> <% end if %> <% next end if %>
Author Reply for this Topic
Records not Found !!
<% set rs3 = server.CreateObject("ADODB.Recordset") selsql3 = "select * from tblUser where UserId=" & rs2.Fields("UserId") rs3.Open selsql3,db,3 %>
<% response.write rs3.Fields("UserName") %>
<% if (rs3.Fields("AvtarImage")<>"") then response.Write "" end if %>
Replied on <% =rs2.Fields("Date")%>
<%= rs2.fields("Reply") %>
<% if (prevflag) then %> &START=<%=prevlnk %>&PGNO=<%=( start - 1 ) %>">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 %> &START=<%=start %>&PGNO=<%=i %>"><%=pg %> <% end if pg = pg + 1 next %> <% if (nextflag) then %>  &START=<%=end1 %>&PGNO=<%=end1 %>">Next <% else response.Write(" ") end if %>