Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Assistance administration page petition		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Maxime
Average Member

France
521 Posts
Posted - 10 October 2012 :  12:11:09  Show Profile  Visit Maxime's Homepage  Reply with Quote
Hello,

Assistance for the administration page petition and fu guestbook. Since the establishment in 3407 of the two forum mod, I have a problem to administer, I always ask my evil administrator while enrolled. Must missed something in the code of this page.

Code page admin_petition.asp

'## 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
'##
'#################################################################################
'## MOD: Petition
'## Modified from the Guestbook MOD by Leatherlips
'## Based on the Guestbook MOD by Michael Reisinger (OneWayMule)
'## Added signature count feature with the help of phy1729
'## Added On/Off feature and print feature with the help of Carefree
'#################################################################################
%>
<!--#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" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
   scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
   strQS = Request.QueryString
   Response.Redirect "admin_login.asp?target=" & Server.URLEncode(scriptname(ubound(scriptname)) & "?" & strQS)
end if
Response.Write "      <table width=""100%"" align=""center"" border=""0"">" & vbNewLine & _
      "        <tr>" & vbNewLine & _
      "          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
      "          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">Tous Les Forums</a><br />" & vbNewLine & _
      "          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
      "          " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Petition Administration<br /></font></td>" & vbNewLine & _
      "        </tr>" & vbNewLine & _
      "      </table>" & vbNewLine
if Request.Form("switch") = "" then
   ' Do nothing
else
   Session("Pswitch")=cInt(Request.Form("switch"))
end if
strsql = "SELECT P_VARFIELD1, P_VARFIELD2, P_VARFIELD3, P_V1_SWITCH, P_V2_SWITCH, P_V3_SWITCH, P_V1_REQ, P_V2_REQ, P_V3_REQ, P_PAGECOUNT, P_T_MAIL, P_W_MAIL, P_T_AUTHOR, P_T_REPLYTO, P_T_MESSAGE, P_MESSAGE, P_MODERATION, P_ANTISPAM, P_SWITCH FROM " & strTablePrefix & "P_OPTIONS WHERE P_ID=1"
Set grs = my_conn.execute(strsql)
strPField1 = grs("P_VARFIELD1")
strPField2 = grs("P_VARFIELD2")
strPField3 = grs("P_VARFIELD3")
strPField1E = grs("P_V1_SWITCH")
strPField2E = grs("P_V2_SWITCH")
strPField3E = grs("P_V3_SWITCH")
strPField1Req = grs("P_V1_REQ")
strPField2Req = grs("P_V2_REQ")
strPField3Req = grs("P_V3_REQ")
strPPageCount = CLng(grs("P_PAGECOUNT"))
strPTMail = grs("P_T_MAIL")
strPWMail = grs("P_W_MAIL")
strPTAuthor = grs("P_T_AUTHOR")
strPTReplyTo = grs("P_T_REPLYTO")
strPTMessage = grs("P_T_MESSAGE")
strPWelcome = grs("P_MESSAGE")
strPModeration = grs("P_MODERATION")
strPAntispam = grs("P_ANTISPAM")
strPSwitch = grs("P_SWITCH")
grs.Close
Set grs = Nothing

strGAction = Request.Querystring("action")
If Not IsNumeric(Request.QueryString("id")) Then
   intID = 0
Else
   intID = Request.Querystring("id")
End If

Select Case strGAction

'#####################################################################################################
'###   DELETE ALL UNAPPROVED PETITION SIGNATURES   ###
'######################################################
Case "deleteall"
   If Request.QueryString("do") = "yes" Then
      strsql = "DELETE FROM " & strTablePrefix & "PETITION WHERE P_MODERATED = 1"
      my_conn.Execute(strsql),,adCmdText + adExecuteNoRecords
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Toutes les entrées Pétition non modéré Supprimé!</font></p>" & vbNewLine & _
            "      <meta http-equiv=""Refresh"" content=""2; URL=petition.asp"">" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""petition.asp"">Retour A Pétition</font></a></p>" & vbNewLine
        ElseIf Request.Querystring("do") <> "yes" Then
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Êtes-vous sûr de vouloir supprimer toutes les entrées Pétition non modérés?<br />" & vbNewLine & _
            "      <a href=""admin_petition.asp?action=deleteall&do=yes"">Oui</a> | <a href=""petition.asp"">Non</a></font></p>" & vbNewLine
   Else
      Response.Redirect("petition.asp")
   End If

'#####################################################################################################
'###   DELETE PETITION SIGNATURE   ###
'######################################
Case "delete"
   If Request.QueryString("do") = "yes" and intID <> 0 Then
      strsql = "DELETE FROM " & strTablePrefix & "PETITION WHERE P_ID=" & intID
      my_conn.Execute(strsql),,adCmdText + adExecuteNoRecords
      strSql = "SELECT COUNT(P_ID) AS P_COUNT FROM " & strMemberTablePrefix & "PETITION WHERE P_MODERATED = 1"
      Set countrs = my_conn.execute(strsql)
      If Not countrs.EOF Then
         intPUnmoderatedCount = countrs("P_COUNT")
      Else
         intPUnmoderatedCount = 0
      End If
      countrs.Close
      Set countrs = Nothing
      If intPUnmoderatedCount > 0 then
         strRedirectURL = "petition.asp?method=approve"
      Else
         strRedirectURL = "petition.asp"
      End If
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Entrée Pétition Supprimé!</font></p>" & vbNewLine & _
            "      <meta http-equiv=""Refresh"" content=""2; URL=" & strRedirectURL & """>" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strRedirectURL & """>Retour A Pétition</font></a></p>" & vbNewLine
        ElseIf Request.Querystring("do") <> "yes" and intID <> 0 Then
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Êtes-vous sûr de vouloir supprimer cette entrée Pétition?<br />" & vbNewLine & _
            "      <a href=""admin_petition.asp?action=delete&id=" & intID & "&do=yes"">Oui</a> | <a href=""petition.asp"">Non</a></font></p>" & vbNewLine
   Else
      Response.Redirect("petition.asp")
   End If

'#####################################################################################################
'###   APPROVE ALL UNMODERATED PETITION ENTRIES   ###
'#####################################################
Case "approveall"
   If Request.QueryString("do") = "yes" Then
      strsql = "UPDATE " & strTablePrefix & "PETITION SET P_MODERATED = 0 WHERE P_MODERATED = 1"
      my_conn.Execute(strsql),,adCmdText + adExecuteNoRecords
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Toutes les entrées non modéré Pétition Approuvé!</font></p>" & vbNewLine & _
            "      <meta http-equiv=""Refresh"" content=""2; URL=petition.asp"">" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""petition.asp"">Retour A Pétition</font></a></p>" & vbNewLine
        ElseIf Request.Querystring("do") <> "yes" Then
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Êtes-vous sûr de vouloir approuver toutes les entrées Pétition non modérés?<br />" & vbNewLine & _
            "      <a href=""admin_petition.asp?action=approveall&do=yes"">Oui</a> | <a href=""petition.asp?action=view&method=approve"">Non</a></font></p>" & vbNewLine
   Else
      Response.Redirect("petition.asp")
   End If

'#####################################################################################################
'###   APPROVE PETITION SIGNATURE   ###
'######################################
Case "approve"
   If Request.QueryString("do") = "yes" and intID <> 0 Then
      strsql = "UPDATE " & strTablePrefix & "PETITION SET"
      strsql = strsql & " P_MODERATED = 0 WHERE P_ID=" & intID
      my_conn.Execute(strsql),,adCmdText + adExecuteNoRecords
      '### SEND THANK YOU EMAIL
      If strPTMail = 1 Then
         strsql = "SELECT P_ID, P_NAME, P_EMAIL FROM " & strTablePrefix & "PETITION WHERE P_ID=" & intID
         set grs = my_conn.Execute(strsql)
         strRecipientsName = grs("P_NAME")
         strRecipients = grs("P_EMAIL")
         strFrom = strPTReplyTo
         strFromName = strPTAuthor
         strSubject = "Merci pour avoir signer sur " & strForumTitle & "'la Pétition"
         strMessage = strPTMessage
         strSender = strFrom
         grs.Close
         Set grs = Nothing
         %><!--#include file="inc_mail.asp" --><%
      End If
      strSql = "SELECT COUNT(P_ID) AS P_COUNT FROM " & strMemberTablePrefix & "PETITION WHERE P_MODERATED = 1"
      Set countrs = my_conn.execute(strsql)
      If Not countrs.EOF Then
         intPUnmoderatedCount = countrs("P_COUNT")
      Else
         intPUnmoderatedCount = 0
      End If
      countrs.Close
      Set countrs = Nothing
      If intPUnmoderatedCount > 0 then
         strRedirectURL = "petition.asp?method=approve"
      Else
         strRedirectURL = "petition.asp"
      End If
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Entrée Pétition Approuvée!</font></p>" & vbNewLine & _
            "      <meta http-equiv=""Refresh"" content=""2; URL=" & strRedirectURL & """>" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""" & strRedirectURL & """>Retour A Pétition</font></a></p>" & vbNewLine
        ElseIf Request.Querystring("do") <> "yes" and intID <> 0 Then
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Approuver cette entrée Pétition?<br />" & vbNewLine & _
            "      <a href=""admin_petition.asp?action=approve&id=" & intID & "&do=yes"">Oui</a> | <a href=""petition.asp"">Non</a></font></p>" & vbNewLine
   Else
      Response.Redirect("petition.asp")
   End If

'#####################################################################################################
'###   EDIT PETITION SIGNATURE   ###
'####################################
Case "edit"
   If intID = 0 Then Response.Redirect("petition.asp")
   If Request.QueryString("do") = "yes" Then
         strFormName    = ChkString(Request.Form("name"), "SQLString")
         strFormEmail   = ChkString(Request.Form("email"), "SQLString")
         strFormMessage = ChkString(Request.Form("message"), "message")
         strFormField1  = ChkString(Request.Form("field1"),"SQLString")
         strFormField2  = ChkString(Request.Form("field2"),"SQLString")
         strFormField3  = ChkString(Request.Form("field3"),"SQLString")
         If strFormField1 = "" Then
         strFormField1 = " "
      End If
         If strFormField2 = "" Then
         strFormField2 = " "
      End If
           If strFormField3 = "" Then
         strFormField3 = " "
      End If
            If Request.Form("name") = "" Then
            Err_Msg = Err_Msg & "<li>S'il vous plaît entrer un nom</li>" & vbNewLine
      End If
         If Request.Form("email") = "" Then
            Err_Msg = Err_Msg & "<li>S'il vous plaît entrer une adresse email</li>" & vbNewLine
         End If
           If Request.Form("message") = "" Then
            Err_Msg = Err_Msg & "<li>S'il vous plaît entrer un message</li>" & vbNewLine
           End if
         If strPField1Req = 1 and trim(strFormField1) = "" Then
         Err_Msg = Err_Msg & "<li>S'il vous plaît entrer " & strPField1 & "</li>" & vbNewLine
      End If
           If strPField2Req = 1 and trim(strFormField2) = "" Then
         Err_Msg = Err_Msg & "<li>S'il vous plaît entrer " & strPField2 & "</li>" & vbNewLine
      End If
         If strPField3Req = 1 and trim(strFormField3) = "" Then
         Err_Msg = Err_Msg & "<li>S'il vous plaît entrer " & strPField3 & "</li>" & vbNewLine
      End If
      If Err_Msg <> "" Then
         Response.Write  "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>Il y a un Problème Avec Vos Détails</font></p>" & vbNewLine & _
               "      <table align=""center"" border=""0"">" & vbNewLine & _
               "        <tr>" & vbNewLine & _
               "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
               "        </tr>" & vbNewLine & _
               "      </table>" & vbNewLine & _
               "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Retourner Taper Vos Données</a></font></p>" & vbNewLine
         WriteFooter
         Response.End
           Else
      strsql = "UPDATE " & strTablePrefix & "PETITION SET"
      strsql = strsql & " P_NAME='" & strFormName & "'"
      strsql = strsql & ", P_EMAIL='" & strFormEmail & "'"
      strsql = strsql & ", P_MESSAGE='" & strFormMessage & "'"
      If strPField1E = 1 Then
            strsql = strsql & ", P_VARFIELD1='" & strFormField1 & "'"
      End If
      If strPField2E = 1 Then
            strsql = strsql & ", P_VARFIELD2='" & strFormField2 & "'"
      End If
      If strPField3E = 1 Then
            strsql = strsql & ", P_VARFIELD3='" & strFormField3 & "'"
      End If
      strsql = strsql & " WHERE P_ID=" & intID
      my_conn.execute(strsql),,adCmdText + adExecuteNoRecords
                Response.Write   "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Entrée Pétition Mise à Jour!</font></p>" & vbNewLine & _
            "      <meta http-equiv=""Refresh"" content=""2; URL=petition.asp"">" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Merci De votre participation!</font></p>" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""petition.asp"">Retour A Pétition</font></a></p><br />" & vbNewLine
           End if


        Else
         strsql = "SELECT P_ID, P_NAME, P_EMAIL, P_MESSAGE, P_DATE, P_VARFIELD1, P_VARFIELD2, P_VARFIELD3 FROM " & strTablePrefix & "PETITION WHERE P_ID=" & intID
      set grs = my_conn.Execute(strsql)
      strTempID      = grs("P_ID")
      strTempName    = grs("P_NAME")
      strTempEmail   = grs("P_EMAIL")
      strTempMessage = grs("P_MESSAGE")
      strTempDate    = grs("P_DATE")
      If strPField1E = 1 Then
         strTempField1  = grs("P_VARFIELD1")
      End If
      If strPField2E = 1 Then
         strTempField2  = grs("P_VARFIELD2")
      End if
      If strPField3E = 1 then
         strTempField3  = grs("P_VARFIELD3")
      End if
           grs.Close
           Set grs = Nothing
      Response.Write  "      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
            "        <tr>" & vbNewLine & _
            "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
            "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
            "              <script language=""JavaScript"" type=""text/javascript"" src=""inc_code.js""></script>" & vbNewLine & _
            "         <form method=""post"" action=""admin_petition.asp?action=edit&do=yes&id=" & intID & """ name=""PostTopic"">" & vbNewLine & _
                  "              <tr>" & vbNewLine & _
                  "                <td bgcolor=""" & strCategoryCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Editer une pétition</b></font></td>" & vbNewLine & _
            "              </tr>" & vbNewLine & _
            "              <tr>" & vbNewLine & _
            "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
            "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
            "        <b>Votre Nom:</b> </font>" & vbNewLine & _
            "      </td>" & vbNewLine & _
            "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
            "                  <input type=""text"" name=""name"" maxlength=""50"" value=""" & chkString(strTempName,"display") & """ size=""35"">" & vbNewLine & _
            "        <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """>(Obligatoire)</font>" & vbNewLine & _
            "      </td>" & vbNewLine & _
            "         </tr>" & vbNewLine & _
            "              <tr>" & vbNewLine & _
            "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
            "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
            "        <b>Email:</b> </font>" & vbNewLine & _
            "      </td>" & vbNewLine & _
            "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
            "                  <input type=""text"" name=""email"" maxlength=""50"" value=""" & chkString(strTempEmail,"display") & """ size=""35"">" & vbNewLine & _
            "        <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """>(Obligatoire)</font>" & vbNewLine & _
            "      </td>" & vbNewLine & _
            "         </tr>" & vbNewLine
         If strPField1E = 1 Then
         Response.Write "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
               "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
               "        <b>" & strPField1 & ":</b> </font>" & vbNewLine & _
               "      </td>" & vbNewLine & _
               "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
               "                  <input type=""text"" name=""field1"" maxlength=""100"" value=""" & strTempField1 & """ size=""35"">" & vbNewLine
            If strPField1Req = 1 Then
         Response.Write  "       <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """>(Obligatoire)</font>" & vbNewLine
      End If
Response.Write               "      </td>" & vbNewLine & _
               "         </tr>" & vbNewLine
         End If
           If strPField2E = 1 Then
         Response.Write "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
               "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
               "        <b>" & strPField2 & ":</b> </font>" & vbNewLine & _
               "      </td>" & vbNewLine & _
               "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
               "                  <input type=""text"" name=""field2"" maxlength=""100"" value=""" & strTempField2 & """ size=""35"">" & vbNewLine
            If strPField2Req = 1 Then
         Response.Write  "       <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """>(Obligatoire)</font>" & vbNewLine
      End If
Response.Write               "      </td>" & vbNewLine & _
               "         </tr>" & vbNewLine
           End If
         If strPField3E = 1 Then
         Response.Write "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
               "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
               "        <b>" & strPField3 & ":</b> </font>" & vbNewLine & _
               "      </td>" & vbNewLine & _
               "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
               "                  <input type=""text"" name=""field3"" maxlength=""100"" value=""" & strTempField3 & """ size=""35"">" & vbNewLine
            If strPField3Req = 1 Then
         Response.Write  "       <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strDefaultFontColor & """>(Obligatoire)</font>" & vbNewLine
      End If
Response.Write               "      </td>" & vbNewLine & _
               "         </tr>" & vbNewLine
      End If
   %>
   <!--#include file="inc_post_buttons_basic.asp""-->
   <%
   Response.Write "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"" valign=""top"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Message:</b> <br /><br />" & vbNewLine & _
         "        <table border=""0"">" & vbNewLine & _
         "          <tr>" & vbNewLine & _
         "                      <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
   If strAllowHTML = "1" Then
      Response.Write "                      * HTML OUVERT<br />" & vbNewLine
   Else
      Response.Write "                      * HTML FRRMER<br />" & vbNewLine
   End If
   If strAllowForumCode = "1" Then
      Response.Write "                      * <a href=""JavaScript:openWindow6('pop_forum_code.asp')"" tabindex=""-1"">Forum Code</a> OUVERT<br />" & vbNewLine
   Else
      Response.Write "                      * Forum Code FERMER<br />" & vbNewLine
   End if
	If strIcons = "1" and strShowSmiliesTable = "1" Then
		%>
		<!--#INCLUDE FILE="inc_smilies.asp" -->
		<%
   End If
   Response.Write "                      </font></td>" & vbNewLine & _
         "                    </tr>" & vbNewLine & _
         "                  </table>" & vbNewLine & _
         "                  </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <textarea cols=""45"" name=""Message"" rows=""11"" wrap=""VIRTUAL"" onselect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & CleanCode(strTempMessage) & "</textarea>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "         <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""center"" colspan=""2"">" & vbNewLine & _
         "                  <input name=""Submit"" type=""submit"" value="" Envoyer "">" & vbNewLine & _
         "         <input name=""Preview"" type=""button"" value="" Aperçu "" onclick=""OpenPreview()"">" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "         </form>" & vbNewLine & _
         "       </table>" & vbNewLine & _
         "     </td>" & vbNewLine & _
         "   </tr>" & vbNewLine & _
         "      </table>" & vbNewLine & _
         "      <br />" & vbNewLine
                end if

'#####################################################################################################
'###   FORM SUBMISSION CHECK   ###
'#################################
Case "options_info"
        strFormWelcome = ChkString(Request.Form("petitionwelcome"),"message")
        strFormTMessage = ChkString(Request.Form("tmessage"),"SQLString")
        strFormPageCount = CLng(Request.Form("pagecount"))
        strFormField1 = ChkString(Request.Form("field1"),"SQLString")
        strFormField2 = ChkString(Request.Form("field2"),"SQLString")
        strFormField3 = ChkString(Request.Form("field3"),"SQLString")
        strFormTAuthor = ChkString(Request.Form("tauthor"),"SQLSTring")
        strFormTReplyTo = ChkString(Request.Form("treplyto"),"email")
        strFormSwitch = CLng(Request.Form("switch"))
        If Request.Form("field1e") = "1" Then
         strFormField1e = 1
        Else
         strFormField1e = 0
        End If
        If Request.Form("field2e") = "1" Then
         strFormField2e = 1
        Else
         strFormField2e = 0
        End If
        If Request.Form("field3e") = "1" Then
         strFormField3e = 1
        Else
         strFormField3e = 0
        End If
        If Request.Form("field1r") = "1" Then
         strFormField1r = 1
        Else
         strFormField1r = 0
        End If
        If Request.Form("field2r") = "1" Then
         strFormField2r = 1
        Else
         strFormField2r = 0
        End If
        If Request.Form("field3r") = "1" Then
         strFormField3r = 1
        Else
         strFormField3r = 0
        End If
        If Request.Form("moderation") = "1" Then
         strFormModeration = 1
        Else
         strFormModeration = 0
        End If
        If Request.Form("temail") = "1" Then
         strFormTEmail = 1
        Else
         strFormTEMail = 0
      End If
        If Request.Form("wemail") = "1" Then
         strFormWEmail = 1
        Else
         strFormWEMail = 0
      End If
        If Request.Form("antispam") = "1" Then
         strFormAntispam = 1
        Else
         strFormAntispam = 0
      End If
      'strFormSwitch=Session("PSwitch")
        If strFormSwitch<>strPSwitch Then strFormSwitch=abs(strPSwitch+(-1))
   Err_Msg = ""
   If trim(strFormWelcome) = "" Then
      Err_Msg = Err_Msg & "<li>Vous devez entrer un énoncé Pétition</li>" & vbNewLine
   End If
   If (trim(strFormField1) = "" and strFormField1e = 1) or (trim(strFormField2) = "" and strFormField2e = 1) or (trim(strFormField3) = "" and strFormField3e = 1) Then
      Err_Msg = Err_Msg & "<li>Vous devez entrer un titre de champ optionnel si vous voulez l'activer</li>" & vbNewLine
   End If
   If (strFormField1e = 0 and strFormField1r = 1) or (strFormField2e = 0 and strFormField2r = 1) or (strFormField3e = 0 and strFormField3r = 1) Then
      Err_Msg = Err_Msg & "<li>Vous devez activer un champ optionnel si vous voulez le rendre obligatoire</li>" & vbNewLine
   End If
   If trim(strFormTAuthor) = "" Then
      Err_Msg = Err_Msg & "<li>Vous devez entrer un Nom</li>" & vbNewLine
   End If
   If trim(strFormTReplyTo) = "" or not EmailField(strFormTReplyTo) Then
      Err_Msg = Err_Msg & "<li>Vous devez entrer une adresse valide De e-mail</li>" & vbNewLine
   End If
   If Err_Msg = "" Then
         strsql = "UPDATE " & strTablePrefix & "P_OPTIONS SET "
         strsql = strsql & " P_VARFIELD1='" & strFormField1 & "', "
         strsql = strsql & " P_VARFIELD2='" & strFormField2 & "', "
         strsql = strsql & " P_VARFIELD3='" & strFormField3 & "', "
         strsql = strsql & " P_V1_SWITCH=" & strFormField1e & ", "
         strsql = strsql & " P_V2_SWITCH=" & strFormField2e & ", "
         strsql = strsql & " P_V3_SWITCH=" & strFormField3e & ", "
         strsql = strsql & " P_MESSAGE = '" & strFormWelcome & "', "
         strsql = strsql & " P_V1_REQ=" & strFormField1r & ", "
         strsql = strsql & " P_V2_REQ=" & strFormField2r & ", "
         strsql = strsql & " P_V3_REQ=" & strFormField3r & ", "
         strsql = strsql & " P_PAGECOUNT=" & strFormPageCount & ", "
      strsql = strsql & " P_T_MAIL=" & strFormTEmail & ", "
      strsql = strsql & " P_W_MAIL=" & strFormWEmail & ", "
      strsql = strsql & " P_T_AUTHOR='" & strFormTAuthor & "', "
      strsql = strsql & " P_T_REPLYTO='" & strFormTReplyTo & "', "
      strsql = strsql & " P_T_MESSAGE='" & strFormTMessage & "', "
      strsql = strsql & " P_MODERATION=" & strFormModeration & ", "
      strsql = strsql & " P_ANTISPAM=" & strFormAntispam & ", "
      strsql = strsql & " P_SWITCH=" & strFormSwitch & " "
      strsql = strsql & " WHERE P_ID=1"
      my_conn.execute(strsql)
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>configuration Postée!</font></p>" & vbNewLine & _
            "      <meta http-equiv=""Refresh"" content=""2; URL=admin_home.asp"">" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Congratulations!</font></p>" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_petition.asp"">Retour A Administration Pétition</font></a></p>" & vbNewLine
   Else
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>Il y Avait un Problème avec Vos Details</font></p>" & vbNewLine & _
            "      <table align=""center"" border=""0"">" & vbNewLine & _
            "        <tr>" & vbNewLine & _
            "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
            "        </tr>" & vbNewLine & _
            "      </table>" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Retour Retaper Vos Données</a></font></p>" & vbNewLine
   End If

'#####################################################################################################
'###   OPTIONS MAIN PAGE   ###
'#############################
Case Else
   Response.Write  "      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
         "        <tr>" & vbNewLine & _
         "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
         "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strHeadCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Pétition Administration</b></font></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "         <form action=""admin_petition.asp?action=options_info"" method=""post"">" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strCategoryCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Pétition Options</b></font></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"" valign=""top"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Pétition Déclaration:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <textarea cols=""70"" name=""petitionwelcome"" rows=""15"" wrap=""VIRTUAL"">" & CleanCode(strPWelcome) & "</textarea>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _

         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Tourner Pétition On ou Off:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "           <input type=""radio"" name=""switch"" value=""1"" " & chkCheckbox("1",strPSwitch,true) & ">On  " & vbNewLine & _
         "           <input type=""radio"" name=""switch"" value=""0"" " & chkCheckbox("1",strPSwitch,false) & ">Off" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _

         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Entrées Pétition Modérées:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "                  <input type=""radio"" name=""moderation"" value=""1"" " & chkCheckbox("1",strPModeration,true) & ">Oui  " & vbNewLine & _
         "                  <input type=""radio"" name=""moderation"" value=""0"" " & chkCheckbox("1",strPModeration,false) & ">Non" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Activer la Confirmation Anti Spam:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "                  <input type=""radio"" name=""antispam"" value=""1"" " & chkCheckbox("1",strPAntispam,true) & ">Oui  " & vbNewLine & _
         "                  <input type=""radio"" name=""antispam"" value=""0"" " & chkCheckbox("1",strPAntispam,false) & ">Non" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Signatures Par Page:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <select name=""pagecount"">" & vbNewLine & _
         "        <option value=""5"" " & chkSelect(5,strPPageCount) & ">5</option>" & vbNewLine & _
         "        <option value=""10"" " & chkSelect(10,strPPageCount) & ">10</option>" & vbNewLine & _
         "        <option value=""15"" " & chkSelect(15,strPPageCount) & ">15</option>" & vbNewLine & _
         "        <option value=""20"" " & chkSelect(20,strPPageCount) & ">20</option>" & vbNewLine & _
         "        <option value=""25"" " & chkSelect(25,strPPageCount) & ">25</option>" & vbNewLine & _
         "        <option value=""50"" " & chkSelect(50,strPPageCount) & ">50</option>" & vbNewLine & _
         "        </select>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strCategoryCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Email Options</b></font></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Envoyer un E-mail de Remerciement:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "                  <input type=""radio"" name=""temail"" value=""1"" " & chkCheckbox("1",strPTMail,true) & ">Oui  " & vbNewLine & _
         "                  <input type=""radio"" name=""temail"" value=""0"" " & chkCheckbox("1",strPTMail,false) & ">Non" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Votre Nom:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "                  <input type=""text"" maxlength=""100"" size=""35"" name=""tauthor"" value=""" & chkString(strPTAuthor,"display") & """>" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Votre Email:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "                  <input type=""text"" maxlength=""100"" size=""35"" name=""treplyto"" value=""" & chkString(strPTReplyTo,"display") & """>" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"" valign=""top"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Message Email de Remerciement:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <textarea cols=""70"" name=""tmessage"" rows=""15"" wrap=""VIRTUAL"">" & CleanCode(strPTMessage) & "</textarea>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Notification Pour Admin Via Email:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "                  <input type=""radio"" name=""wemail"" value=""1"" " & chkCheckbox("1",strPWMail,true) & ">Oui  " & vbNewLine & _
         "                  <input type=""radio"" name=""wemail"" value=""0"" " & chkCheckbox("1",strPWMail,false) & ">Non" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
               "              <tr>" & vbNewLine & _
               "                <td bgcolor=""" & strCategoryCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Additional Fields Options</b></font></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Champ 1:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <input type=""text"" name=""field1"" maxlength=""100"" value=""" & strPField1 & """ size=""35"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "          Activé: <input type=""checkbox"" name=""field1e"" value=""1"" " & chkCheckBox("1",strPField1E,true) & ">" & vbNewLine & _
         "          Obligatoire: <input type=""checkbox"" name=""field1r"" value=""1"" " & chkCheckBox("1",strPField1Req,true) & ">" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Champ 2:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <input type=""text"" name=""field2"" maxlength=""100"" value=""" & strPField2 & """ size=""35"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "          Activé: <input type=""checkbox"" name=""field2e"" value=""1"" " & chkCheckBox("1",strPField2E,true) & ">" & vbNewLine & _
         "          Obligatoire: <input type=""checkbox"" name=""field2r"" value=""1"" " & chkCheckBox("1",strPField2Req,true) & ">" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""30%"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "        <b>Champ 3:</b> </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""70%"">" & vbNewLine & _
         "                  <input type=""text"" name=""field3"" maxlength=""100"" value=""" & strPField3 & """ size=""35"">" & vbNewLine & _
         "                  <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
         "          Activé: <input type=""checkbox"" name=""field3e"" value=""1"" " & chkCheckBox("1",strPField3E,true) & ">" & vbNewLine & _
         "          Obligatoire: <input type=""checkbox"" name=""field3r"" value=""1"" " & chkCheckBox("1",strPField3Req,true) & ">" & vbNewLine & _
         "        </font>" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "         <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strPopUpTableColor & """ align=""center"" colspan=""2"">" & vbNewLine & _
         "                  <input name=""Submit"" type=""submit"" value="" Envoyer "">" & vbNewLine & _
         "      </td>" & vbNewLine & _
         "         </tr>" & vbNewLine & _
         "         </form>" & vbNewLine & _
         "       </table>" & vbNewLine & _
         "     </td>" & vbNewLine & _
         "   </tr>" & vbNewLine & _
         "      </table><br />" & vbNewLine
End Select
WriteFooter()
%>
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 11 October 2012 :  03:34:56  Show Profile
Sorry, I have no idea what you want done.
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 11 October 2012 :  07:48:20  Show Profile  Visit Maxime's Homepage
When I send the page with my email address here, which administers the petition or the guestbook. An error message is displayed as follows.

There Was a Problem with Your Details

You must enter a valid email From email

Back Retype Your Data
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 13 October 2012 :  02:54:36  Show Profile
There is nothing wrong with this page to cause that. Either your EMail address is incorrect or the issue is in your "inc_func_common.asp" page.
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 13 October 2012 :  04:24:35  Show Profile  Visit Maxime's Homepage
Hello Carefree,

Here's the page, the mod only takes place a link on this page. Commeje but know nothing about coding you can watch.

There is a limit line length for scrollcode?

Page: inc_func_common.asp
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Edited by - Maxime on 13 October 2012 04:42:55
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 13 October 2012 :  05:38:29  Show Profile
I'm not aware of a line limit for scrollcode, nor do I see anything wrong with your "inc_func_common.asp" file. Only thing left is the EMail address itself.
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 13 October 2012 :  06:16:23  Show Profile  Visit Maxime's Homepage
I tried a lot of e-mail to the administration and receive an email when a petition is made so writing webnews guestbook and I still have this message when I rise on erruer administration.
I think a security issue in aadresse mail with confirmation. when do you
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 25 October 2012 :  05:01:53  Show Profile
Change line 498 of "admin_petition.asp" to say:

	If trim(strFormTReplyTo) = "" or EmailField(strFormTReplyTo)=0 Then
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 25 October 2012 :  05:46:36  Show Profile  Visit Maxime's Homepage
Carefree thank you very much, you are a genius coding without you we would be lost.

I am much indebted to you and Carefree shame that we are so far away, I wanted you to know because people like you are rare. But we have a forum for dialogue
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 25 October 2012 :  09:54:58  Show Profile
You're welcome.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.7 seconds. Powered By: Snitz Forums 2000 Version 3.4.07