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
 Contact page mod error		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Maxime
Average Member

France
521 Posts
Posted - 28 May 2014 :  15:48:24  Show Profile  Visit Maxime's Homepage  Reply with Quote
Hello,
there is an error for the captcha code on the spot. or it has not displayed the number next to the input field codes?. See the image below.

You looked at the code of this page below.


contact.asp
<%
'###############################################################################
'##
'##                   Snitz Forums 2000 v3.4.06
'##
'###############################################################################
'##
'## Copyright © 2000-06 Michael Anderson, Pierre Gorissen,
'##                   Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.  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 an 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:
'##
'##              Free Software Foundation, Inc.
'##              59 Temple Place, Suite 330
'##              Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##              http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##              manderson@snitz.com
'##
'## ***********************************************
'## * Form field Limiter v2.0- © Dynamic Drive DHTML code library (www.dynamicdrive.com)
'## * This notice MUST stay intact for legal use
'## * Visit Project Page at http://www.dynamicdrive.com for full source code
'## ***********************************************
'##
'##   Contact Page MOD v1.1
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE file="inc_func_member.asp" -->
<%
   '  ## Forum_SQL
   strSql ="SELECT M_NAME, M_USERNAME, M_EMAIL "
   strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
   strSql = strSql & " WHERE MEMBER_ID = " & intAdminMemberID & ""
   set rs = my_conn.Execute (strSql)
   if (rs.EOF or rs.BOF)then
      Err_Msg = Err_Msg & "<li>The Administrator's account could not be located</li>"
      Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
      Response.Write "<table align=""center"">" & vbNewLine & _
         "  <tr>" & vbNewLine & _
         "     <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
         "  </tr>" & vbNewLine & _
         "</table>" & vbNewLine
      set rs = nothing
      Response.Write("<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick= window.close()"">Close Window</A></font></p>" & vbNewLine)
      Response.End
   else
      Name = Trim("" & rs("M_NAME"))
      Email = Trim("" & rs("M_EMAIL"))
   end if
   rs.close
   set rs = nothing

if Request.QueryString("mode") = "DoIt" then
   Err_Msg = ""
      RandCode = Request.Form("code")
      strRCCode = Request.Form("Coder")
      RandCode2 = (strRCCode + 17456) / 50000
      lenCode = Len(RandCode2)
      NullStop = False
      If LenCode < 6 and Nullstop = False then
         For J = 1 to (6 - LenCode)
            NullRC = NullRC & "0"
         Next
         NullStop = True
      End If
      RandCode2 = NullRC & RandCode2

   if (Request.Form("YName") = "") then
      Err_Msg = Err_Msg & "<li>You must enter your name</li>"
   end if
   if (Request.Form("YEmail") = "") then
      Err_Msg = Err_Msg & "<li>You must give your email address</li>"
   else
      if (EmailField(Request.Form("YEmail")) = 0) then
         Err_Msg = Err_Msg & "<li>You Must enter a valid email address</li>"
      end if
   end if
   If RandCode <> RandCode2 then
         Err_Msg = Err_Msg & "<li>Invalid or missing authentication code</li>"
      End If

   if (Request.Form("Msg") = "") then
      Err_Msg = Err_Msg & "<li>You Must enter a message</li>"
   end if
   if lcase(strEmail) = "1" then
      if (Err_Msg = "") then
         strRecipientsName = Name
         strRecipients = Email
         strSubject = strForumTitle
         strMessage = Request.Form("Msg") & vbNewline & vbNewline
         strMessage = strMessage & "You received this from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") "
         strFromName = Request.Form("YName")
         strSender = Request.Form("YEmail")

'Spam filter - Define keywords to filter, then Call the subroutine
Const KeyWords = "porn,Viagra,bondage,hardcore,tits,cialis,*****,penis"
SpamCheck strMessage,KeyWords,SPAM

'Spam filter subroutine
Sub SpamCheck(Data,Words,SPAM)
Dim WordArray, i
WordArray = Split (Words,",",-1,1)
For i = 0 to UBound(WordArray)
If InStr(LCase(Data),LCase(WordArray(i))) Then
SPAM = True
Exit For
End If
Next

If Trim(Data) = "" or SPAM Then
Response.Redirect "http://pbskids.org/barney/"
End If
End Sub

         %>
         <!--#INCLUDE FILE="inc_mail.asp" -->
         <%

'####Start#### Sends a copy of the mail sent from the forum to the sender
If Request.Form("emailcopy") = "on" Then
strRecipients = Request.Form("YEmail")
strFrom = Request.Form("YEmail")
strSubject = "COPY of Message Sent From " & strForumTitle & " by " & Request.Form("YName")
strMessage = "Hello " & Request.Form("YName") & vbNewline & vbNewline
strMessage = strMessage & "Below is a copy of the message you sent to " & strForumTitle & ":"
strMessage = strMessage & strRName & " " & vbNewline & vbNewline
strMessage = strMessage & Request.Form("Msg") & vbNewline & vbNewline
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
end if
'####End#### Sends a copy of the mail sent from the forum to the sender

         Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center><br>" & strForumTitle & " has been contacted</center></font></b></p>" & vbNewLine)
         Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""default.asp"">Visit the Forum</a></font></p><br /><br />" & vbNewLine
      else
         Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center><br>There Was A Problem</center></font></b></p>" & vbNewLine)
         Response.Write "<table align=""center"">" & vbNewLine & _
            "<tr>" & vbNewLine & _
            "<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
            "</tr>" & vbNewLine & _
            "</table>" & vbNewLine
         Response.Write("<p><font size=""" & strDefaultFontSize & """><center><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></center></font></p><br><br>" & vbNewLine)
      end if
   end if
else
   Response.Write "<form action=""contact.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
      "  <input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
      "  <br><table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
      "     <tr>" & vbNewLine & _
      "        <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
      "           <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                 <td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact " & strForumTitle & "</font></b></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _

      "              <tr>" & vbNewLine & _
      "                 <td colspan=""2"" bgColor=""" & strCategoryCellColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>All Fields Are Required</font></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _


      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _


      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Enter Code:</font></b></td>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
strRCCode = Request.QueryString("rc")
strRC = Request.QueryString("code")
strRCP = Request.QueryString("p")
If strRC = "image" then
   NullStop = False
   RandCode = (strRCCode + 17456) / 50000
   lenCode = Len(RandCode)
   If LenCode < 6 and Nullstop = False then
   For J = 1 to (6 - LenCode)
      NullRC = NullRC & "0"
   Next
   NullStop = True
   End If
   RandCode = NullRC & RandCode
   ImageP = Mid(RandCode, strRCP,1)
   Response.Redirect "images/" & ImageP & ".gif"
End If

HowManyNbr=6
         NumbersToShow = ""
      Randomize
         For I = 1 to HowManyNbr
         NumbersToShow = NumbersToShow & Fix(9*Rnd)
      Next
      RandomizedCode = NumbersToShow * 50000 - 17456
      NullStop = False
      For I = 1 to HowManyNbr
         Response.Write  "    <img src='contact.asp?code=image&rc=" & RandomizedCode &"&p=" & I & "' border='0' alt='Code'>"
      Next
   Response.Write "   <input type=""hidden"" name=""Coder"" value=""" & RandomizedCode & """>" & vbNewLine & _
                  "   <input type=""text"" name=""code"" size=""" & HowManyNbr & """ maxlength=""" & HowManyNbr & """></td>" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b></td>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """><textarea name=""Msg"" id=""msg"" cols=""50"" rows=""10""></textarea><div><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ id=""msg-status""></div></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _

      "              <tr>" & vbNewLine & _
      "              <td bgColor=""" & strPopUpTableColor & """></td>" & vbNewLine & _
      "              <td bgColor=""" & strPopUpTableColor & """ align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input type=""Checkbox"" name=""emailcopy""> Send a copy to my email address" & vbnewline & _
      "              </td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _

      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _
      "           </table>" & vbNewLine & _
      "        </td>" & vbNewLine & _
      "     </tr>" & vbNewLine & _
      "  </table>" & vbNewLine & _
      "</form>" & vbNewLine & _
      "<script type=""text/javascript"">" & vbNewLine & _
      "  fieldlimiter.setup({" & vbNewLine & _
      "  thefield: document.getElementById(""msg"")," & vbNewLine & _
      "  maxlength: 500," & vbNewLine & _
      "  statusids: [""msg-status""]," & vbNewLine & _
      "  onkeypress:function(maxlength, curlength){" & vbNewLine & _
      "}" & vbNewLine & _
      "})" & vbNewLine & _
      "</script>" & vbNewLine
end if

WriteFooter
Response.End
%>
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
4207 Posts
Posted - 28 May 2014 :  16:38:37  Show Profile
Most likely you don't have the images where they need to be. If I remember this properly, they have to be in the root forum folder.
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 28 May 2014 :  16:58:13  Show Profile  Visit Maxime's Homepage
They are in the root folder and double on the image folder or there is the image of the forum
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

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 28 May 2014 :  18:36:35  Show Profile
Try this one to get the images that are in your forum images folder:

<%
'###############################################################################
'##
'##                   Snitz Forums 2000 v3.4.06
'##
'###############################################################################
'##
'## Copyright © 2000-06 Michael Anderson, Pierre Gorissen,
'##                   Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.  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 an 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:
'##
'##              Free Software Foundation, Inc.
'##              59 Temple Place, Suite 330
'##              Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##              http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##              manderson@snitz.com
'##
'## ***********************************************
'## * Form field Limiter v2.0- © Dynamic Drive DHTML code library (www.dynamicdrive.com)
'## * This notice MUST stay intact for legal use
'## * Visit Project Page at http://www.dynamicdrive.com for full source code
'## ***********************************************
'##
'##   Contact Page MOD v1.1
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE file="inc_func_member.asp" -->
<%
   '  ## Forum_SQL
   strSql ="SELECT M_NAME, M_USERNAME, M_EMAIL "
   strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
   strSql = strSql & " WHERE MEMBER_ID = " & intAdminMemberID & ""
   set rs = my_conn.Execute (strSql)
   if (rs.EOF or rs.BOF)then
      Err_Msg = Err_Msg & "<li>The Administrator's account could not be located</li>"
      Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
      Response.Write "<table align=""center"">" & vbNewLine & _
         "  <tr>" & vbNewLine & _
         "     <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
         "  </tr>" & vbNewLine & _
         "</table>" & vbNewLine
      set rs = nothing
      Response.Write("<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick= window.close()"">Close Window</A></font></p>" & vbNewLine)
      Response.End
   else
      Name = Trim("" & rs("M_NAME"))
      Email = Trim("" & rs("M_EMAIL"))
   end if
   rs.close
   set rs = nothing

if Request.QueryString("mode") = "DoIt" then
   Err_Msg = ""
      RandCode = Request.Form("code")
      strRCCode = Request.Form("Coder")
      RandCode2 = (strRCCode + 17456) / 50000
      lenCode = Len(RandCode2)
      NullStop = False
      If LenCode < 6 and Nullstop = False then
         For J = 1 to (6 - LenCode)
            NullRC = NullRC & "0"
         Next
         NullStop = True
      End If
      RandCode2 = NullRC & RandCode2

   if (Request.Form("YName") = "") then
      Err_Msg = Err_Msg & "<li>You must enter your name</li>"
   end if
   if (Request.Form("YEmail") = "") then
      Err_Msg = Err_Msg & "<li>You must give your email address</li>"
   else
      if (EmailField(Request.Form("YEmail")) = 0) then
         Err_Msg = Err_Msg & "<li>You Must enter a valid email address</li>"
      end if
   end if
   If RandCode <> RandCode2 then
         Err_Msg = Err_Msg & "<li>Invalid or missing authentication code</li>"
      End If

   if (Request.Form("Msg") = "") then
      Err_Msg = Err_Msg & "<li>You Must enter a message</li>"
   end if
   if lcase(strEmail) = "1" then
      if (Err_Msg = "") then
         strRecipientsName = Name
         strRecipients = Email
         strSubject = strForumTitle
         strMessage = Request.Form("Msg") & vbNewline & vbNewline
         strMessage = strMessage & "You received this from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") "
         strFromName = Request.Form("YName")
         strSender = Request.Form("YEmail")

'Spam filter - Define keywords to filter, then Call the subroutine
Const KeyWords = "porn,Viagra,bondage,hardcore,tits,cialis,*****,penis"
SpamCheck strMessage,KeyWords,SPAM

'Spam filter subroutine
Sub SpamCheck(Data,Words,SPAM)
Dim WordArray, i
WordArray = Split (Words,",",-1,1)
For i = 0 to UBound(WordArray)
If InStr(LCase(Data),LCase(WordArray(i))) Then
SPAM = True
Exit For
End If
Next

If Trim(Data) = "" or SPAM Then
Response.Redirect "http://pbskids.org/barney/"
End If
End Sub

         %>
         <!--#INCLUDE FILE="inc_mail.asp" -->
         <%

'####Start#### Sends a copy of the mail sent from the forum to the sender
If Request.Form("emailcopy") = "on" Then
strRecipients = Request.Form("YEmail")
strFrom = Request.Form("YEmail")
strSubject = "COPY of Message Sent From " & strForumTitle & " by " & Request.Form("YName")
strMessage = "Hello " & Request.Form("YName") & vbNewline & vbNewline
strMessage = strMessage & "Below is a copy of the message you sent to " & strForumTitle & ":"
strMessage = strMessage & strRName & " " & vbNewline & vbNewline
strMessage = strMessage & Request.Form("Msg") & vbNewline & vbNewline
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
end if
'####End#### Sends a copy of the mail sent from the forum to the sender

         Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center><br>" & strForumTitle & " has been contacted</center></font></b></p>" & vbNewLine)
         Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""default.asp"">Visit the Forum</a></font></p><br /><br />" & vbNewLine
      else
         Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center><br>There Was A Problem</center></font></b></p>" & vbNewLine)
         Response.Write "<table align=""center"">" & vbNewLine & _
            "<tr>" & vbNewLine & _
            "<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
            "</tr>" & vbNewLine & _
            "</table>" & vbNewLine
         Response.Write("<p><font size=""" & strDefaultFontSize & """><center><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></center></font></p><br><br>" & vbNewLine)
      end if
   end if
else
   Response.Write "<form action=""contact.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
      "  <input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
      "  <br><table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
      "     <tr>" & vbNewLine & _
      "        <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
      "           <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                 <td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact " & strForumTitle & "</font></b></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _

      "              <tr>" & vbNewLine & _
      "                 <td colspan=""2"" bgColor=""" & strCategoryCellColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>All Fields Are Required</font></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _


      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _


      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Enter Code:</font></b></td>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
strRCCode = Request.QueryString("rc")
strRC = Request.QueryString("code")
strRCP = Request.QueryString("p")
If strRC = "image" then
   NullStop = False
   RandCode = (strRCCode + 17456) / 50000
   lenCode = Len(RandCode)
   If LenCode < 6 and Nullstop = False then
   For J = 1 to (6 - LenCode)
      NullRC = NullRC & "0"
   Next
   NullStop = True
   End If
   RandCode = NullRC & RandCode
   ImageP = Mid(RandCode, strRCP,1)
   Response.Redirect strImageUrl & ImageP & ".gif"
End If

HowManyNbr=6
         NumbersToShow = ""
      Randomize
         For I = 1 to HowManyNbr
         NumbersToShow = NumbersToShow & Fix(9*Rnd)
      Next
      RandomizedCode = NumbersToShow * 50000 - 17456
      NullStop = False
      For I = 1 to HowManyNbr
         Response.Write  "    <img src='contact.asp?code=image&rc=" & RandomizedCode &"&p=" & I & "' border='0' alt='Code'>"
      Next
   Response.Write "   <input type=""hidden"" name=""Coder"" value=""" & RandomizedCode & """>" & vbNewLine & _
                  "   <input type=""text"" name=""code"" size=""" & HowManyNbr & """ maxlength=""" & HowManyNbr & """></td>" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b></td>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """><textarea name=""Msg"" id=""msg"" cols=""50"" rows=""10""></textarea><div><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ id=""msg-status""></div></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _

      "              <tr>" & vbNewLine & _
      "              <td bgColor=""" & strPopUpTableColor & """></td>" & vbNewLine & _
      "              <td bgColor=""" & strPopUpTableColor & """ align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input type=""Checkbox"" name=""emailcopy""> Send a copy to my email address" & vbnewline & _
      "              </td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _

      "              <tr>" & vbNewLine & _
      "                 <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _
      "           </table>" & vbNewLine & _
      "        </td>" & vbNewLine & _
      "     </tr>" & vbNewLine & _
      "  </table>" & vbNewLine & _
      "</form>" & vbNewLine & _
      "<script type=""text/javascript"">" & vbNewLine & _
      "  fieldlimiter.setup({" & vbNewLine & _
      "  thefield: document.getElementById(""msg"")," & vbNewLine & _
      "  maxlength: 500," & vbNewLine & _
      "  statusids: [""msg-status""]," & vbNewLine & _
      "  onkeypress:function(maxlength, curlength){" & vbNewLine & _
      "}" & vbNewLine & _
      "})" & vbNewLine & _
      "</script>" & vbNewLine
end if

WriteFooter
Response.End
%>
Cheers,

David Greening
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 29 May 2014 :  02:18:34  Show Profile  Visit Maxime's Homepage
Hello David,

Thank you David for the modified page. Unfortunately my website and FTP are down.

I would say when it will be restored if it works
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 29 May 2014 02:19:13
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 29 May 2014 :  03:38:44  Show Profile  Visit Maxime's Homepage
Hello David,

My website works. When I check the sent a copy, it does not work.
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 29 May 2014 04:16:50
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 29 May 2014 :  03:59:27  Show Profile

I just tested the same copy at: http://www.classicmotorcycling.com.au/forums/contact.asp (which I will take down soon) and it sent a copy to both the forum and to me. I received a copy to both my addresses..
Cheers,

David Greening
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 29 May 2014 :  04:03:41  Show Profile
This is untested, but should resolve that problem. Make sure you have the "fieldlimiter.js" file in your root forum directory.


<%
'###############################################################################
'##
'##                   Snitz Forums 2000 v3.4.06
'##
'###############################################################################
'##
'## Copyright © 2000-06 Michael Anderson, Pierre Gorissen,
'##                   Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.  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 an 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:
'##
'##              Free Software Foundation, Inc.
'##              59 Temple Place, Suite 330
'##              Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##              http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##              manderson@snitz.com
'##
'## ***********************************************
'## * Form field Limiter v2.0- © Dynamic Drive DHTML code library (www.dynamicdrive.com)
'## * This notice MUST stay intact for legal use
'## * Visit Project Page at http://www.dynamicdrive.com for full source code
'## ***********************************************
'##
'##   Contact Page MOD v1.1
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE file="inc_func_member.asp" -->
<%
strSql ="SELECT M_NAME, M_USERNAME, M_EMAIL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE MEMBER_ID = " & intAdminMemberID & ""
set rs = my_conn.Execute (strSql)
if (rs.EOF or rs.BOF)then
	Err_Msg = Err_Msg & "<li>The Administrator's account could not be located</li>"
	Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
	Response.Write "<table align=""center"">" & vbNewLine & _
		"  <tr>" & vbNewLine & _
		"     <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
		"  </tr>" & vbNewLine & _
		"</table>" & vbNewLine
	set rs = nothing
	Response.Write("<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick= window.close()"">Close Window</A></font></p>" & vbNewLine)
	WriteFooter
	Response.End
else
	Name = Trim("" & rs("M_NAME"))
	Email = Trim("" & rs("M_EMAIL"))
	rs.close
end if
set rs = nothing
if Request.QueryString("mode") = "DoIt" then
	Err_Msg = ""
	RandCode = Request.Form("code")
	strRCCode = Request.Form("Coder")
	RandCode2 = (strRCCode + 17456) / 50000
	lenCode = Len(RandCode2)
	NullStop = False
	If LenCode < 6 and Nullstop = False then
		For J = 1 to (6 - LenCode)
			NullRC = NullRC & "0"
		Next
		NullStop = True
	End If
	RandCode2 = NullRC & RandCode2
	if (Request.Form("YName") = "") then
		Err_Msg = Err_Msg & "<li>You must enter your name</li>"
	end if
	if (Request.Form("YEmail") = "") then
		Err_Msg = Err_Msg & "<li>You must give your email address</li>"
	else
		if (EmailField(Request.Form("YEmail")) = 0) then
			Err_Msg = Err_Msg & "<li>You Must enter a valid email address</li>"
		end if
	end if
	If RandCode <> RandCode2 then
		Err_Msg = Err_Msg & "<li>Invalid or missing authentication code</li>"
	End If
	if (Request.Form("Msg") = "") then
		Err_Msg = Err_Msg & "<li>You Must enter a message</li>"
	end if
	if lcase(strEmail) = "1" then
		if (Err_Msg = "") then
			strRecipientsName = Name
			strRecipients = Email
			strSubject = strForumTitle
			strMessage = Request.Form("Msg") & vbNewline & vbNewline
			strMessage = strMessage & "You received this from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") "
			strFromName = Request.Form("YName")
			strSender = Request.Form("YEmail")
			Const KeyWords = "porn,Viagra,bondage,hardcore,tits,cialis,*****,penis"
			SpamCheck strMessage,KeyWords,SPAM
			%>
			<!--#INCLUDE FILE="inc_mail.asp" -->
			<%
			If not isNull(Request.Form("emailcopy")) Then
				strRecipients = Request.Form("YEmail")
				strFrom = Request.Form("YEmail")
				strSubject = "COPY of Message Sent From " & strForumTitle & " by " & Request.Form("YName")
				strMessage = "Hello " & Request.Form("YName") & vbNewline & vbNewline
				strMessage = strMessage & "Below is a copy of the message you sent to " & strForumTitle & ":"
				strMessage = strMessage & strRName & " " & vbNewline & vbNewline
				strMessage = strMessage & Request.Form("Msg") & vbNewline & vbNewline
				%>
				<!--#INCLUDE FILE="inc_mail.asp" -->
				<%
			end if
			Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center><br>" & strForumTitle & " has been contacted</center></font></b></p>" & vbNewLine)
			Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""default.asp"">Visit the Forum</a></font></p><br /><br />" & vbNewLine
		else
			Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center><br>There Was A Problem</center></font></b></p>" & vbNewLine)
			Response.Write "<table align=""center"">" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"</table>" & vbNewLine & _
				"<p><font size=""" & strDefaultFontSize & """><center><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></center></font></p><br><br>" & vbNewLine
		end if
	end if
else
	Response.Write "<form action=""contact.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
		"  <input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
		"  <br><table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"     <tr>" & vbNewLine & _
		"        <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
		"           <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                 <td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact " & strForumTitle & "</font></b></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                 <td colspan=""2"" bgColor=""" & strCategoryCellColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>All Fields Are Required</font></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
		"                 <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
		"                 <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Enter Code:</font></b></td>" & vbNewLine & _
		"                 <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	strRCCode = Request.QueryString("rc")
	strRC = Request.QueryString("code")
	strRCP = Request.QueryString("p")
	If strRC = "image" then
		NullStop = False
		RandCode = (strRCCode + 17456) / 50000
		lenCode = Len(RandCode)
		If LenCode < 6 and Nullstop = False then
			For J = 1 to (6 - LenCode)
				NullRC = NullRC & "0"
			Next
			NullStop = True
		End If
		RandCode = NullRC & RandCode
		ImageP = Mid(RandCode, strRCP,1)
		Response.Redirect strImageUrl & ImageP & ".gif"
	End If
	HowManyNbr=6
	NumbersToShow = ""
	Randomize
	For I = 1 to HowManyNbr
		NumbersToShow = NumbersToShow & Fix(9*Rnd)
	Next
	RandomizedCode = NumbersToShow * 50000 - 17456
	NullStop = False
	For I = 1 to HowManyNbr
		Response.Write  "    <img src='contact.asp?code=image&rc=" & RandomizedCode &"&p=" & I & "' border='0' alt='Code'>"
	Next
	Response.Write "   <input type=""hidden"" name=""Coder"" value=""" & RandomizedCode & """>" & vbNewLine & _
		"   <input type=""text"" name=""code"" size=""" & HowManyNbr & """ maxlength=""" & HowManyNbr & """></td>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                 <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b></td>" & vbNewLine & _
		"                 <td bgColor=""" & strPopUpTableColor & """><textarea name=""Msg"" id=""msg"" cols=""50"" rows=""10""></textarea><div><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ id=""msg-status""></div></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"              <td bgColor=""" & strPopUpTableColor & """></td>" & vbNewLine & _
		"              <td bgColor=""" & strPopUpTableColor & """ align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input type=""Checkbox"" name=""emailcopy""> Send a copy to my email address" & vbnewline & _
		"              </td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                 <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"           </table>" & vbNewLine & _
		"        </td>" & vbNewLine & _
		"     </tr>" & vbNewLine & _
		"  </table>" & vbNewLine & _
		"</form>" & vbNewLine & _
		"<script type=""text/javascript"" src=""fieldlimiter.js"">" & vbNewLine & _
		"  fieldlimiter.setup({" & vbNewLine & _
		"  thefield: document.getElementById(""msg"")," & vbNewLine & _
		"  maxlength: 500," & vbNewLine & _
		"  statusids: [""msg-status""]," & vbNewLine & _
		"  onkeypress:function(maxlength, curlength){" & vbNewLine & _
		"}" & vbNewLine & _
		"})" & vbNewLine & _
		"</script>" & vbNewLine
end if
WriteFooter

Sub SpamCheck(Data,Words,SPAM)
	Dim WordArray, i
	WordArray = Split (Words,",",-1,1)
	For i = 0 to UBound(WordArray)
		If InStr(LCase(Data),LCase(WordArray(i))) Then
			SPAM = True
			Exit For
		End If
	Next
	If Trim(Data) = "" or SPAM Then
		Response.Redirect "http://www.ic3.gov/complaint/default.aspx"
	End If
End Sub
%>
Edited by - Carefree on 29 May 2014 04:28:21
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 29 May 2014 :  04:18:14  Show Profile  Visit Maxime's Homepage
Tank you Carefree,

I'd like to incorporate contact.asp with a clickable link on the FAQ to replace the email address of the administrator please

I'll try and come back to 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
4207 Posts
Posted - 29 May 2014 :  04:29:32  Show Profile
The problem with the images was due to an error in the javascript call, not the location of the images themselves. Make sure you get the corrected file above.

Here's a version styled a bit:


<%
'###############################################################################
'##
'##									Snitz Forums 2000 v3.4.06
'##
'###############################################################################
'##
'## Copyright © 2000-06 Michael Anderson, Pierre Gorissen,
'##									Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.	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 an 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:
'##
'##							Free Software Foundation, Inc.
'##							59 Temple Place, Suite 330
'##							Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##							http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##							manderson@snitz.com
'##
'## ***********************************************
'## * Form field Limiter v2.0- © Dynamic Drive DHTML code library (www.dynamicdrive.com)
'## * This notice MUST stay intact for legal use
'## * Visit Project Page at http://www.dynamicdrive.com for full source code
'## ***********************************************
'##
'##	Contact Page MOD v1.1
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE file="inc_func_member.asp" -->
<%
HowManyNbr=6
strRCCode = Request.QueryString("rc")
strRC = Request.QueryString("code")
strRCP = Request.QueryString("p")
If strRC = "image" then
	NullStop = False
	RandCode = (strRCCode + 17456) / 50000
	lenCode = Len(RandCode)
	If LenCode < 6 and Nullstop = False then
		For J = 1 to (6 - LenCode)
			NullRC = NullRC & "0"
		Next
		NullStop = True
	End If
	RandCode = NullRC & RandCode
	ImageP = strImageURL & Mid(RandCode, strRCP,1)
	Response.Redirect ImageP & ".gif"
End If
strSql ="SELECT M_NAME, M_USERNAME, M_EMAIL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE MEMBER_ID = " & intAdminMemberID & ""
set rs = my_conn.Execute (strSql)
if (rs.EOF or rs.BOF)then
	Err_Msg = Err_Msg & "<li>The Administrator's account could not be located</li>"
	Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
	Response.Write "<table align=""center"">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine
	set rs = nothing
	Response.Write("<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick= window.close()"">Close Window</A></font></p>" & vbNewLine)
	WriteFooter
	Response.End
else
	Name = Trim("" & rs("M_NAME"))
	Email = Trim("" & rs("M_EMAIL"))
	rs.close
end if
set rs = nothing
if Request.QueryString("mode") = "DoIt" then
	Err_Msg = ""
	RandCode = Request.Form("code")
	strRCCode = Request.Form("Coder")
	RandCode2 = (strRCCode + 17456) / 50000
	lenCode = Len(RandCode2)
	NullStop = False
	If LenCode < 6 and Nullstop = False then
		For J = 1 to (6 - LenCode)
			NullRC = NullRC & "0"
		Next
		NullStop = True
	End If
	RandCode2 = NullRC & RandCode2
	if (Request.Form("YName") = "") then
		Err_Msg = Err_Msg & "<li>You must enter your name</li>"
	end if
	if (Request.Form("YEmail") = "") then
		Err_Msg = Err_Msg & "<li>You must give your email address</li>"
	else
		if (EmailField(Request.Form("YEmail")) = 0) then
			Err_Msg = Err_Msg & "<li>You Must enter a valid email address</li>"
		end if
	end if
	If RandCode <> RandCode2 then
		Err_Msg = Err_Msg & "<li>Invalid or missing authentication code</li>"
	End If
	if (Request.Form("Msg") = "") then
		Err_Msg = Err_Msg & "<li>You Must enter a message</li>"
	end if
	if lcase(strEmail) = "1" then
		if (Err_Msg = "") then
			strRecipientsName = Name
			strRecipients = Email
			strSubject = strForumTitle
			strMessage = Request.Form("Msg") & vbNewline & vbNewline
			strMessage = strMessage & "You received this from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") "
			strFromName = Request.Form("YName")
			strSender = Request.Form("YEmail")
			SpamCheck strMessage,KeyWords,SPAM
			%>
			<!--#INCLUDE FILE="inc_mail.asp" -->
			<%
			If not isNull(Request.Form("emailcopy")) Then
				strRecipients = Request.Form("YEmail")
				strFrom = Request.Form("YEmail")
				strSubject = "COPY of Message Sent From " & strForumTitle & " by " & Request.Form("YName")
				strMessage = "Hello " & Request.Form("YName") & vbNewline & vbNewline
				strMessage = strMessage & "Below is a copy of the message you sent to " & strForumTitle & ":"
				strMessage = strMessage & strRName & " " & vbNewline & vbNewline
				strMessage = strMessage & Request.Form("Msg") & vbNewline & vbNewline
				%>
				<!--#INCLUDE FILE="inc_mail.asp" -->
				<%
			end if
			Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center><br>" & strForumTitle & " has been contacted</center></font></b></p>" & vbNewLine)
			Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""default.asp"">Visit the Forum</a></font></p><br /><br />" & vbNewLine
		else
			Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center><br>There Was A Problem</center></font></b></p>" & vbNewLine)
			Response.Write "<table align=""center"">" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"</table>" & vbNewLine & _
				"<p><font size=""" & strDefaultFontSize & """><center><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></center></font></p><br><br>" & vbNewLine
		end if
	end if
else
	Response.Write "<form action=""contact.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
		"	<input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
		"	<br><table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"		<tr>" & vbNewLine & _
		"			<td>" & vbNewLine & _
		"				<table bgcolor=""" & strTableBorderColor & """ style=""border-collapse:collapse;"" border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact " & strForumTitle & "</font></b></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""2"" bgColor=""" & strCategoryCellColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>All Fields Are Required</font></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap width=""30%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ width=""70%""> <input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """> <input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
		"						<td align=""right""><br /><b>Enter Code: </b></td>" & vbNewLine & _
		"						<td align=""left""> " & vbNewLine
	NumbersToShow = ""
	Randomize
	For I = 1 to HowManyNbr
		NumbersToShow = NumbersToShow & Fix(9*Rnd)
	Next
	RandomizedCode = NumbersToShow * 50000 - 17456
	NullStop = False
	For I = 1 to HowManyNbr
		Response.Write	"							<img src='contact.asp?code=image&rc=" & RandomizedCode &"&p=" & I & "' border='0' alt='Code'>"
	Next
	Response.Write "							<input type=""hidden"" name=""Coder"" value=""" & RandomizedCode & """>" & vbNewLine & _
		"							<br /> <input type=""text"" style=""border:2px solid " & strTableBorderColor & "; font-weight:bold; text-align:center; color:" & strHiLiteFontColor & ";"" name=""code"" size=""" & HowManyNbr*2 & """ maxlength=""" & HowManyNbr & """>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """> <textarea name=""Msg"" id=""msg"" cols=""80"" rows=""10""></textarea><div><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ id=""msg-status""></div></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"							<input type=""Checkbox"" name=""emailcopy"" /> Copy to Self" & vbnewline & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"		<tr>" & vbNewLine & _
		"			<td colspan=""2"" align=""center""><input type=""button"" name=""Submit1"" style=""background-color:" & strPopUpTableColor & "; font-weight:bold; color:navy; border:1px solid; border-radius:4px; moz-border-radius:4px; webkit-border-radius:4px; moz-box-shadow:0 1px 0; webkit-box-shadow:0 1px 0;"" onclick=""form.submit();"" value=""Send"" /></td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"</form>" & vbNewLine & _
		"<script type=""text/javascript"" src=""fieldlimiter.js"">" & vbNewLine & _
		"	fieldlimiter.setup({" & vbNewLine & _
		"	thefield: document.getElementById(""msg"")," & vbNewLine & _
		"	maxlength: 500," & vbNewLine & _
		"	statusids: [""msg-status""]," & vbNewLine & _
		"	onkeypress:function(maxlength, curlength){" & vbNewLine & _
		"}" & vbNewLine & _
		"})" & vbNewLine & _
		"</script>" & vbNewLine
end if
WriteFooter

Sub SpamCheck(Data,Words,SPAM)
	Dim WordArray, i
	WordArray = Split (Words,",",-1,1)
	For i = 0 to UBound(WordArray)
		If InStr(LCase(Data),LCase(WordArray(i))) Then
			SPAM = True
			Exit For
		End If
	Next
	If Trim(Data) = "" or SPAM Then
		Response.Redirect "http://www.ic3.gov/complaint/default.aspx"
	End If
End Sub
%>
Edited by - Carefree on 29 May 2014 05:42:48
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 29 May 2014 :  06:13:33  Show Profile  Visit Maxime's Homepage
Hello Carefree,
It works well. It was my incoming mail server and mail sending that down
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
4207 Posts
Posted - 29 May 2014 :  08:35:20  Show Profile
Are the images displaying now?
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 29 May 2014 :  09:16:32  Show Profile  Visit Maxime's Homepage
So perfect, I would find images of figures barely bigger.

I'll get on Google. Thank you. You can go here: http://www.chatquiz.org/contact.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)
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 29 May 2014 :  11:25:33  Show Profile
All fixed Good enough.
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.38 seconds. Powered By: Snitz Forums 2000 Version 3.4.07