<%@LANGUAGE="VBSCRIPT"%> <% if(Request.QueryString("for_id") <> "") then cmdFor_Read_Counter__varFOR_ID = Request.QueryString("for_id") %> <% if(Request.QueryString("msg_id") <> "") then cmdMsg_Read_Counter__varMSG_ID = Request.QueryString("msg_id") %> <% Dim rsMsg__varID rsMsg__varID = "83" if (Request.QueryString("msg_id") <> "") then rsMsg__varID = Request.QueryString("msg_id") %> <% set rsMsg = Server.CreateObject("ADODB.Recordset") rsMsg.ActiveConnection = MM_conn_STRING rsMsg.Source = "SELECT MSG_ID, MSG_REPLY_COUNT, MSG_DATE, MSG_AUTHOR, MSG_SUBJECT, MSG_BODY, FORUMS.FOR_NAME, FORUMS.FOR_ID, p_user, (SELECT COUNT(*) FROM MESSAGES WHERE MSG_AUTHOR = p_user) AS TOPIC_COUNT, (SELECT COUNT(*) FROM REPLIES WHERE REP_AUTHOR = MSG_AUTHOR)AS REPLY_COUNT FROM MESSAGES INNER JOIN FORUMS ON FORUMS.FOR_ID = MESSAGES.FOR_ID, p_users WHERE p_user = MSG_AUTHOR AND MSG_ID = " + Replace(rsMsg__varID, "'", "''") + "" rsMsg.CursorType = 0 rsMsg.CursorLocation = 2 rsMsg.LockType = 3 rsMsg.Open() rsMsg_numRows = 0 %> <% Dim rsReplier__MMColParam rsReplier__MMColParam = "1" if (Session("MM_Username") <> "") then rsReplier__MMColParam = Session("MM_Username") %> <% set rsReplier = Server.CreateObject("ADODB.Recordset") rsReplier.ActiveConnection = MM_conn_STRING rsReplier.Source = "SELECT * FROM p_users WHERE p_user = '" + Replace(rsReplier__MMColParam, "'", "''") + "'" rsReplier.CursorType = 0 rsReplier.CursorLocation = 2 rsReplier.LockType = 3 rsReplier.Open() rsReplier_numRows = 0 %> <% Dim rsForum__MMColParam rsForum__MMColParam = "1" if (Request.QueryString("for_id") <> "") then rsForum__MMColParam = Request.QueryString("for_id") %> <% Dim rsRep__varID rsRep__varID = "11" if (Request.QueryString("msg_id") <> "") then rsRep__varID = Request.QueryString("msg_id") %> <% set rsRep = Server.CreateObject("ADODB.Recordset") rsRep.ActiveConnection = MM_conn_STRING rsRep.Source = "SELECT REP_ID, REP_DATE, REP_AUTHOR, REP_BODY, p_user, (SELECT COUNT(*) FROM MESSAGES WHERE MSG_AUTHOR = REP_AUTHOR) AS TOPIC_COUNT, (SELECT COUNT(*) FROM REPLIES WHERE REP_AUTHOR = p_user) AS REPLY_COUNT FROM REPLIES, p_users WHERE p_user = REP_AUTHOR AND MSG_ID = " + Replace(rsRep__varID, "'", "''") + "" rsRep.CursorType = 0 rsRep.CursorLocation = 2 rsRep.LockType = 3 rsRep.Open() rsRep_numRows = 0 %> <% ' this is to increment the read counter in FORUMS table set cmdFor_Read_Counter = Server.CreateObject("ADODB.Command") cmdFor_Read_Counter.ActiveConnection = MM_conn_STRING cmdFor_Read_Counter.CommandText = "UPDATE FORUMS SET FOR_READ_COUNT = FOR_READ_COUNT + 1 WHERE FOR_ID = " + Replace(cmdFor_Read_Counter__varFOR_ID, "'", "''") + "" cmdFor_Read_Counter.CommandType = 1 cmdFor_Read_Counter.CommandTimeout = 0 cmdFor_Read_Counter.Prepared = true cmdFor_Read_Counter.Execute() %> <% ' this is to increment the read counter in MESSAGES table set cmdMsg_Read_Counter = Server.CreateObject("ADODB.Command") cmdMsg_Read_Counter.ActiveConnection = MM_conn_STRING cmdMsg_Read_Counter.CommandText = "UPDATE MESSAGES SET MSG_READ_COUNT = MSG_READ_COUNT + 1 WHERE MSG_ID = " + Replace(cmdMsg_Read_Counter__varMSG_ID, "'", "''") + "" cmdMsg_Read_Counter.CommandType = 1 cmdMsg_Read_Counter.CommandTimeout = 0 cmdMsg_Read_Counter.Prepared = true cmdMsg_Read_Counter.Execute() %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsRep_numRows = rsRep_numRows + Repeat1__numRows Function DoSpace(str) DoSpace = (Replace(str, vbCrlf, "
")) End Function %>

MESSAGES BOARDS > "><%= UCase((rsMsg.Fields.Item("FOR_NAME").Value)) %> > <%= UCase(Server.HTMLEncode((rsMsg.Fields.Item("MSG_SUBJECT")).Value)) %>

TOPIC

"><%=(rsMsg.Fields.Item("MSG_AUTHOR").Value)%>

<%=(rsMsg.Fields.Item("TOPIC_COUNT").Value)%> topics

<%=(rsMsg.Fields.Item("REPLY_COUNT").Value)%> replies

Posted by <%=(rsMsg.Fields.Item("MSG_AUTHOR").Value)%> on <%=(rsMsg.Fields.Item("MSG_DATE").Value)%> with <%=(rsMsg.Fields.Item("MSG_REPLY_COUNT").Value)%> replies<% If NOT rsSession.EOF Or NOT rsSession.BOF Then %><% if rsSession("p_access") = "admin" OR rsSession("p_access") = "admin2" Then %>">Edit Topic &forumdelete=message&MSG_ID=<% = request("msg_id") %>&rep_count=<%=(rsMsg.Fields.Item("MSG_REPLY_COUNT").Value)%>">Delete Topic<% end if %><% end if %>

<%= DoSpace(Server.HTMLEncode((rsMsg.Fields.Item("MSG_BODY").Value))) %>

REPLIES

<% While ((Repeat1__numRows <> 0) AND (NOT rsRep.EOF)) %>

"><%=(rsRep.Fields.Item("REP_AUTHOR").Value)%>

<%=(rsRep.Fields.Item("TOPIC_COUNT").Value)%> topics

<%=(rsRep.Fields.Item("REPLY_COUNT").Value)%> replies

Replied by <%=(rsRep.Fields.Item("REP_AUTHOR").Value)%> on <%=(rsRep.Fields.Item("REP_DATE").Value)%><% If NOT rsSession.EOF Or NOT rsSession.BOF Then %><% if rsSession("p_access") = "admin" OR rsSession("p_access") = "admin2" Then %>">Edit Reply &MSG_ID2=<% = request("msg_id") %>&MSG_ID=<% = rsRep("REP_ID") %>">Delete Reply<% end if %><% end if %>

<%= DoSpace(Server.HTMLEncode((rsRep.Fields.Item("REP_BODY").Value))) %>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsRep.MoveNext() Wend %>

REPLY THIS TOPIC

Replier:	<% If Not rsReplier.EOF Or Not rsReplier.BOF Then %> "> <%=(rsReplier.Fields.Item("p_user").Value)%> <% Else %> To reply, please login or register first. <% End If ' end Not rsReplier.EOF Or NOT rsReplier.BOF %>
Forum:	"><%=(rsMsg("FOR_NAME"))%>
Re:	<%= Server.HTMLEncode((rsMsg("MSG_SUBJECT"))) %>
Message:
Message:
	E-mail me when someone posts a new reply.
"> ">	<% If Not rsReplier.EOF Or Not rsReplier.BOF Then %> <% End If %>

<% rsMsg.Close() %> <% rsReplier.Close() %> <% rsRep.Close() %>