<% if ( Request.QueryString("LOGOUT") = "1" ) then session("USERNAME") = "" end if %> <% topicid = request.QueryString("topic") 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, tblCategory.Name, tblCategory.CategoryId from tblTopic, tblCategory where TopicId=" & request.QueryString("topic") & "and tblTopic.CategoryId = tblCategory.CategoryId" rs.Open selsql,db,3 %>
" name="hidcatid">
Active Topic  Memberlist  <% if session("USERNAME") = "" then %> Register  Login  <% else%> Edit Profile Logout <%=session("USERNAME")%> <% end if %>
Topic : <%= rs.fields("Subject") %> for <%= rs.fields("name") %>
<% while not rs1.eof %> <% set rs2 = server.CreateObject("ADODB.Recordset") selsql2 = "select * from tblUser where UserId=" & rs1.Fields("UserId") rs2.Open selsql2,db,3 %> <% rs1.movenext wend %>
Author Message  
<%=session("USERNAME") %> Posted on <% =rs.Fields("Date")%>
<%= rs.fields("Message") %>
"> <% set rs1 = server.CreateObject("ADODB.Recordset") selsql1 = "select * from tblReply where TopicId=" & rs.Fields("TopicId") rs1.Open selsql1,db,3 if rs1.recordcount = 0 then %> <% end if %>
<% response.write rs2.Fields("UserName")&"
" if (rs2.Fields("AvtarImage")<>"") then response.Write "" end if %> 		Posted on <% =rs1.Fields("Date")%>
<%= rs1.fields("Reply") %>
Post Reply
*Indicates required fields
Message* <% session("note") = "" %>