| |
|
<%if session("ValidUser")<>"" then %>
<%else%>
<%end if%> |
<%
if cmd.Parameters("RC")<>0 then
%>
There was an error accessing the record. |
<%
else %>
Discussion Title:
<%Response.write RS("Discussion_Title")%>
|
Submited by:
<%
Response.Write RS("UserName")
%>
Date:
<%
Response.Write RS("Discussion_Date")
%>
Message:
<%
Response.Write RS("Discussion_Message")
%>
|
<%
end if
set cmd=nothing
set RS=nothing
set cmd=Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection =conn
cmd.CommandText ="mb_Select_ReplyDetailsforDiscussion"
cmd.CommandType =4
cmd.Parameters.Append cmd.CreateParameter("RC",3,4)
cmd.Parameters.Append cmd.CreateParameter("DiscussionID",3,1,,message_id)
set RS=Server.CreateObject("ADODB.RecordSet")
set RS=cmd.Execute
if RS.eof =false then
%>
|
Responses for the discussion, below:
|
 To view discussion messages click on discussion title or the folder. |
<%else
%>
There are No responses to this discussion. |
<%
dim noRecords
noRecords="True"
end if
dim message, short_message
while not RS.EOF
message = RS("Response_Message")
if Len(message) < 200 then
short_message = Left(message,Len(message)) & "..."
else
short_message = Left(message, 200) & "..."
end if
%>
">:
<%Response.write RS("Response_Title")%>
|
Submited by:
<%
Response.Write RS("UserName")
%>
Date:
<%
Response.Write RS("Response_Date")
%>
Message:
<%
Response.Write short_message
%>
|
<%
RS.moveNext()
wend
if noRecords="" then
%>
<% end if%>
|
|
<% if session("ValidUser")<>"" then %>
|
<%else%>
|
<%end if%>
|
<%
if isSearch<>"Yes" then
%>
|
<%else%>
|
<%end if%>
|
|