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: pop_fame.asp		  New Topic  Topic Locked
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 07 July 2010 :  23:16:19  Show Profile
quote:
Originally posted by richfed

Alright ... I redid pop_fame and the dbs file to what you have just currently posted. Ran the dbs file again.

Here is the message after running the database upgrade:


Hall of Fame 1.0

Dropping Table..

Table does not exist
--------------------------------------------------------------------------------

Creating table(s)...
CREATE TABLE FORUM_HALL_OF_FAME( HF_ITEM#INT#IDENTITY (1,1)# int IDENTITY (1, 1) PRIMARY KEY NOT NULL , HF_MEMBER_ID int NOT NULL , HF_MEMBER_NAME nvarchar(75) NOT NULL , HF_SUBJECT nvarchar(255) NOT NULL , HF_DATE nvarchar(14)not null NOT NULL , HF_DESCRIPTION ntext NOT NULL , HF_TOPIC_ID int NOT NULL , HF_REPLY_ID int NOT NULL )
Table already exists

--------------------------------------------------------------------------------


Database setup finished

Think I found its hangup. If I insert a blank (no key) line, it seems to like it. 


Hall of Fame 1.0

[DROP]
HALL_OF_FAME
[END]

[CREATE]
HALL_OF_FAME

HF_ITEM#INT#IDENTITY (1,1)#
HF_MEMBER_ID#INT##
HF_MEMBER_NAME#VARCHAR(75)##
HF_SUBJECT#VARCHAR(255)##
HF_DATE#VARCHAR(14)##
HF_DESCRIPTION#MEMO##
HF_TOPIC_ID#INT##
HF_REPLY_ID#INT##
[END]


quote:
----> Question: How can I change the background color in the left most field to that in the now gone [thankfully] right-most field?


Change line 77 to say:
	"		<td width=""100"" bgcolor=""" & strPageBGColor & """>" & vbNewLine & _


quote:

After clicking on the "Hall of Fame" button, I get this error:

Microsoft OLE DB Provider for SQL Server error '80040e14'

Line 1: Incorrect syntax near 's'.

/messageboard/pop_fame.asp, line 64


Here, this is sanitized for Sql:

"pop_fame.asp"

<%
'###############################################################################
'##
'##         							Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 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)
		if not rsSubject.EOF then
			Topic_Subject=ChkString(rsSubject("T_SUBJECT"),"SqlString")
			rsSubject.Close
		end if
		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=""150"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td width=""50"" bgcolor=""" & strCategoryCellColor & """ valign=""top"">" & vbNewLine & _
	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>Description" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"		<td width=""100"" bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
	"			<font face=""" & strForumFontFace & """ size=""" & strForumFontSize & """ color=""" & strPageBGColor & """>" & vbNewLine & _
	"				<textarea name=""Description"" cols=""50"" rows=""5""></textarea>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table>" & vbNewLine & _
	"<center><input type=""submit"" value=""Hall of Fame""></center>" & vbNewLine & _
	"</form>" & vbNewLine
WriteFooterShort
%>
Edited by - Carefree on 07 July 2010 23:43:48
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.53 seconds. Powered By: Snitz Forums 2000 Version 3.4.07