<% 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.UserId,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">

<% set rs1 = server.CreateObject("ADODB.Recordset") selsql1 = "select * from tblUser where UserId=" & rs.Fields("UserId") rs1.Open selsql1,db,3 %>

Author

Message

<% response.write rs1.Fields("UserName") %>

<% response.Write "

" %>

Posted on <% =rs.Fields("Date")%>

<%= rs.fields("Subject") %>

<%= rs.fields("Message") %>

Post Reply

Fields marked with * are required

Message*	<% session("note") = "" %>