<%
dim action
action = Request.QueryString("action")

message = Request.Form("msg")
ForumID = Request.QueryString("FORUM_ID")
TopicID = Request.QueryString("TOPIC_ID")
TopicTitle = Request.QueryString("TOPIC_TITLE")
ReplyID = Request.QueryString("REPLY_ID")
CatID = Request.QueryString("CAT_ID")
ReporterID = Request.QueryString("ReporterID")
IsTopic = Request.QueryString("IsTopic")


if action ="SAVE" then
	call SaveMessage
else
%>

<center>

<A href="topic.asp?TOPIC_ID=<%=TopicID%>&FORUM_ID=<%=ForumID%>&CAT_ID=<%=CatID%>" ><%=TopicTitle%></A>
<br><TABLE WIDTH="50%" BORDER=0 CELLSPACING=1 CELLPADDING=1 style="HEIGHT: 99px; WIDTH: 433px">
	<TR>
		<TD>
			<P><STRONG>Report spam and inappropriate posts only, 
      please help us keep this forum as clean as we 
      can.                              
      </STRONG>           
			</P>
			<P><STRONG>Thank You</STRONG> ,</P>
		</TD>
	</TR>
</TABLE>

<FORM action="complaint_to_moderator.asp?IsTopic=<%=IsTopic%>&action=SAVE&FORUM_ID=<%=ForumID%>&TOPIC_ID=<%=TopicID%>&CAT_ID=<%=CatID%>&ReporterID=<%=ReporterID%>&REPLY_ID=<%=ReplyID%>" id=FORM method=post name=FORM>
	<TABLE WIDTH="50%" BORDER=1 CELLSPACING=0 CELLPADDING=0 style="HEIGHT: 171px; WIDTH: 434px" align=center>
		<TR>
			<TD bgcolor="<% =strForumFirstCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Message To Moderator</font></TD>
		</TR>
  <TR>
    <TD align=middle><TEXTAREA cols=40 name=msg rows=7 style="HEIGHT: 118px; WIDTH: 432px"></TEXTAREA></TD></TR>
		<TR>
			<TD align="middle">
				<input type="submit" name="Submit" value="Submit">
				<input type="reset" name="Reset" value="Reset">
			</TD>
		</TR>
	</TABLE></FORM>
	<br><br>
<%
end if
writefooter

function SaveMessage
	dim RS
	dim SQL
	if ReplyID = "" then ReplyID = 0
	SQL = "INSERT INTO "& strTablePrefix & "COMPLAINTS(ForumID, TopicID, CatID, Message, ReporterID, IsTopic, ReplyID, Solved)"
	SQL = SQL &  " VALUES(" & ForumID & ", " & TopicID & ", " & CatID & ", '" & message & "', " & ReporterID & ", " & IsTopic & ", " & ReplyID & ", " & 0 & ")"
	'Response.Write SQL
	my_Conn.execute SQL
	
	Response.Write "<center><b>Thank you for keeping this forum clean....... <br><br> Back to Forum" & _
	"<meta http-equiv='refresh' content='3;url=default.asp'>" 
end function
%>
</center></BODY></HTML>

<%
if mlev=0 Then
	Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem</font></p>" & vbNewLine & _
			"      <table align=""center"" border=""0"">" & vbNewLine & _
			"        <tr>" & vbNewLine & _
			"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>You Must Be Registered And Logged In To View This Page.</font></td>" & vbNewLine & _
			"        </tr>" & vbNewLine & _
			"      </table>" & vbNewLine & _

			Response.End
end if
%>