<%
'################################################################################
'## Snitz Forums 2000 v3.4.06
'################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
set rs = Server.CreateObject("ADODB.RecordSet")

	err_Msg = ""
	ok = ""
	txtMessage = ChkString(Request.Form("Message"),"message")
	txtSubject = ChkString(Request.Form("Subject"),"display")

	if txtMessage = " " then
		Go_Result "You must post a bug description!", 0
		WriteFooter
		Response.End
	end if

	if txtSubject = " " then
		Go_Result "Vous devez entrer l'emplacement du bogue! (Nom Page)", 0
		WriteFooter
		Response.End
	end if

	sendto = intAdminMemberID
	sendfrom = MEMBERID

	if strDBNTUserName = "" then
		strDBNTUserName="Unregistered"
		sendfrom = intAdminMemberID
	end if

	rmail = "0"
	title = "[Bug From " & strDBNTUserName & "]"

	bugDesc = "<b>User Name:</b> " & strDBNTUserName & "<br> "
	bugDesc = bugDesc & "<b>OS Info:</b> " & ChkString(Request.Form("OSinfo"),"hidden") &"<br> "
	bugDesc = bugDesc & "<b>Adresse IP:</b> " & ChkString(Request.Form("userIp"),"hidden") &"<br> "
	bugDesc = bugDesc & "<b>Nom Page :</b> " & ChkString(Request.Form("Subject"),"hidden") &"<br> "
	bugDesc = bugDesc & "<b>Bogue Description:</b><br>" & ChkString(Request.Form("Message"),"message")

	strSql = "INSERT INTO " & strTablePrefix & "PM ("
	strSql = strSql & "M_SUBJECT"
	strSql = strSql & ", M_MESSAGE"
	strSql = strSql & ", M_TO"
	strSql = strSql & ", M_FROM"
	strSql = strSql & ", M_SENT"
	strSql = strSql & ", M_MAIL"
	strSql = strSql & ", M_READ"
	strSql = strSql & ", M_OUTBOX"
	strSql = strSql & ") VALUES ("
	strSql = strSql & "'" & title & "'"
	strSql = strSql & ", '" & bugDesc & "'"
	strSql = strSql & ", " & sendto
	strSql = strSql & ", " & sendfrom
	strSql = strSql & ", '" & DateToStr(strForumTimeAdjust) & "'"
	strSql = strSql & ", 0"
	strSql = strSql & ", 0"
	strSql = strSql & ", 1)"
	my_Conn.Execute (strSql)
	Response.Write	"<table width=""50%"" border=""1"" align=""center"">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td align=""center"" bgcolor=""" & strHeadCellColor & """ width=""100%"">" & vbNewLine & _
		"			<font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Merci de nous signaler les bogues!" & vbNewLine & _
		"			</font>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td align=""center"" bgcolor=""" & strForumCellColor & """ width=""100%"">" & vbNewLine & _
		"			<font color=""" & strForumFontColor & """ face=""" & strForumFontFace & """ size=""" & strForumFontSize & "" & str_err_Msg & """>" & vbNewLine & _
		"			</font>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td align=""center"" bgcolor=""" & strCColor & """ width=""100%"">" & vbNewLine & _
		"			<a href=""JavaScript:history.go(-2);"">Retour" & vbNewLine & _
		"			</a>" & vbNewLine & _
		"			<meta http-equiv=""Refresh"" content=""3; URL=default.asp"">" & vbNewLine & _
		"		</td" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine
	WriteFooter
	Response.End

	sub Go_Result(str_err_Msg, boolOk)
		if boolOk = 1 then
			Response.Write	"<p align=""center""><font face=""" & strDefaultFontFace & """ & size=""" & strHeaderFontSize & """>Merci de signaler les bogues!</font></p>"
			WriteFooter
			Response.End
		Else
			Response.Write	"<p align=""center""><font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Il y a un Problème!</font></p>" & vbNewLine & _
				"<p align=""center""><font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>""" & str_err_Msg & """</font></p>" & vbNewLine & _
				"<p align=""center""><font color=""" & strDefaultFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Retour et corriger le problème.</a></font></p>" & vbNewLine
			WriteFooter
			Response.End
		end if
	End Sub
%>