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
 Hall of Fame Error		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

MaGraham
Senior Member

USA
1297 Posts
Posted - 01 July 2014 :  16:55:28  Show Profile  Reply with Quote
I am receiving the following error message when trying to submit a post to the "Hall of Fame." The part in red below is actually part of what I typed as my reason for submitting the post.



Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 5.1 Driver][mysqld-5.5.28]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 's will each and every day, not just occasionally. EXCELLENT! ', 2354, 0)' at line 1

/fp/pop_fame.asp, line 64


Since the pop_fame.asp is such a small file, I'm posting the entire file below. . .if someone could look at it please. Line 64 is in red.


<%
'###############################################################################
'##
'##                                    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
'##
'###############################################################################
ThemeID=3
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header_short.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp"-->
<!--#INCLUDE FILE="inc_func_secure.asp"-->
<%
if mLev > 1 and (Request.Form("Method_Type")="Addon") then
   if Request.Form("Description")="" then
      Response.Write "Description cannot be blank." & vbNewLine & _
         "      <a href=""JavaScript:history.go(-1)"">Go Back to Correct Data</a></font></p>" & vbNewLine
   else
      Topic_ID=Request.Form("topic_id")
      Reply_ID=Request.Form("reply_id")
      strSql="SELECT T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID="&Topic_ID
      set rsSubject=my_Conn.Execute(strSql)
      Topic_Subject=rsSubject("T_SUBJECT")
      rsSubject.Close
      set rsSubject=Nothing
      Description=Request.Form("Description")
      if Reply_ID="" then Reply_ID=0
      strSql="INSERT INTO " & strTablePrefix & "HALL_OF_FAME (HF_MEMBER_ID, HF_MEMBER_NAME, HF_SUBJECT, HF_DATE, HF_DESCRIPTION, HF_TOPIC_ID, HF_REPLY_ID) VALUES (" & MEMBERID & ", '" & strDBNTUserName & "', '" & TOPIC_SUBJECT & "', " & DateToStr(strForumTimeAdjust) & ", '" & Description & "', " & Topic_ID & ", " & Reply_ID & ")"
      my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
   end if
end if
Response.Write "<form name=""FAME"" method=""post"" action=""pop_fame.asp"">" & vbNewLine & _
   "<input type=""hidden"" name=""Method_Type"" value=""Addon"">" & vbNewLine & _
   "<input type=""hidden"" name=""topic_id"" value=" & Request.QueryString("Topic_ID") & ">" & vbNewLine & _
   "<input type=""hidden"" name=""reply_id"" value=" & Request.QueryString("Reply_ID") & ">" & vbNewLine & _
   "<table border=""1"" width=""50%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
   "  <tr>" & vbNewLine & _
   "     <td width=""300"" align=""center"" bgcolor=""" & strCategoryCellColor & """ valign=""top"">" & vbNewLine & _
   "        <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""#ffffff"" & strDefaultFontColor & """"><b>Reason for submitting</b>" & vbNewLine & _
   "        </font>" & vbNewLine & _
   "     </td>" & vbNewLine & _
   "     <td width=""50"" bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
   "        <font face=""" & strForumFontFace & """ size=""" & strForumFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
   "           <textarea name=""Description"" cols=""50"" rows=""5""></textarea>" & vbNewLine & _
   "        </font>" & vbNewLine & _
   "     </td>" & vbNewLine & _
   "  </tr>" & vbNewLine & _
   "</table>" & vbNewLine & _
   "<center><input type=""submit"" value=""Submit Post to Hall of Fame""></center>" & vbNewLine & _
   "</form>" & vbNewLine
WriteFooterShort
%>


"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 09 July 2014 :  22:39:08  Show Profile
Try this, I left out a piece of code.

<%
'###############################################################################
'##
'##                                    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
'##
'###############################################################################
ThemeID=3
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header_short.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp"-->
<!--#INCLUDE FILE="inc_func_secure.asp"-->
<%
if mLev > 1 and (Request.Form("Method_Type")="Addon") then
   if Request.Form("Description")="" then
      Response.Write "Description cannot be blank." & vbNewLine & _
         "      <a href=""JavaScript:history.go(-1)"">Go Back to Correct Data</a></font></p>" & vbNewLine
   else
      Topic_ID=Request.Form("topic_id")
      Reply_ID=Request.Form("reply_id")
      strSql="SELECT T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID="&Topic_ID
      set rsSubject=my_Conn.Execute(strSql)
      Topic_Subject=rsSubject("T_SUBJECT")
      rsSubject.Close
      set rsSubject=Nothing
      Description=Chkstring(Request.Form("Description"),"SQLString")
      if Reply_ID="" then Reply_ID=0
      strSql="INSERT INTO " & strTablePrefix & "HALL_OF_FAME (HF_MEMBER_ID, HF_MEMBER_NAME, HF_SUBJECT, HF_DATE, HF_DESCRIPTION, HF_TOPIC_ID, HF_REPLY_ID) VALUES (" & MEMBERID & ", '" & strDBNTUserName & "', '" & TOPIC_SUBJECT & "', " & DateToStr(strForumTimeAdjust) & ", '" & Description & "', " & Topic_ID & ", " & Reply_ID & ")"
      my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
   end if
end if
Response.Write "<form name=""FAME"" method=""post"" action=""pop_fame.asp"">" & vbNewLine & _
   "<input type=""hidden"" name=""Method_Type"" value=""Addon"">" & vbNewLine & _
   "<input type=""hidden"" name=""topic_id"" value=" & Request.QueryString("Topic_ID") & ">" & vbNewLine & _
   "<input type=""hidden"" name=""reply_id"" value=" & Request.QueryString("Reply_ID") & ">" & vbNewLine & _
   "<table border=""1"" width=""50%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
   "  <tr>" & vbNewLine & _
   "     <td width=""300"" align=""center"" bgcolor=""" & strCategoryCellColor & """ valign=""top"">" & vbNewLine & _
   "        <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""#ffffff"" & strDefaultFontColor & """"><b>Reason for submitting</b>" & vbNewLine & _
   "        </font>" & vbNewLine & _
   "     </td>" & vbNewLine & _
   "     <td width=""50"" bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
   "        <font face=""" & strForumFontFace & """ size=""" & strForumFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
   "           <textarea name=""Description"" cols=""50"" rows=""5""></textarea>" & vbNewLine & _
   "        </font>" & vbNewLine & _
   "     </td>" & vbNewLine & _
   "  </tr>" & vbNewLine & _
   "</table>" & vbNewLine & _
   "<center><input type=""submit"" value=""Submit Post to Hall of Fame""></center>" & vbNewLine & _
   "</form>" & vbNewLine
WriteFooterShort
%>
Edited by - Carefree on 09 July 2014 22:40:00
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 17 July 2014 :  03:09:07  Show Profile

Works PERFECT!

Thank you so much, Carefree!

"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 17 July 2014 :  03:42:47  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.34 seconds. Powered By: Snitz Forums 2000 Version 3.4.07