<% '################################################################################# '## Copyright (C) 2000 Michael Anderson and Pierre Gorissen '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# my_Conn.Errors.Clear on error resume next strSql = "CREATE TABLE " & strTablePrefix & "CATEGORY ( " strSql = strSql & "CAT_ID int IDENTITY (1, 1) NOT NULL , " strSql = strSql & "CAT_STATUS smallint NULL , " strSql = strSql & "CAT_NAME varchar (100) NULL , )" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE TABLE " & strTablePrefix & "CONFIG (" strSql = strSql & "CONFIG_ID int IDENTITY (1, 1) NOT NULL , " strSql = strSql & "C_STRVERSION varchar (50) NULL , " strSql = strSql & "C_STRFORUMTITLE varchar (255) NULL , " strSql = strSql & "C_STRCOPYRIGHT varchar (50) NULL , " strSql = strSql & "C_STRTITLEIMAGE varchar (255) NULL , " strSql = strSql & "C_STRHOMEURL varchar (255) NULL , " strSql = strSql & "C_STRFORUMURL varchar (255) NULL , " strSql = strSql & "C_STRAUTHTYPE varchar (50) NULL , " strSql = strSql & "C_STREMAIL smallint NULL , " strSql = strSql & "C_STRUNIQUEEMAIL smallint NULL , " strSql = strSql & "C_STRMAILMODE varchar (100) NULL , " strSql = strSql & "C_STRMAILSERVER varchar (255) NULL , " strSql = strSql & "C_STRSENDER varchar (255) NULL , " strSql = strSql & "C_STRSETCOOKIETOFORUM smallint NULL , " strSql = strSql & "C_STRDATETYPE varchar (50) NULL , " strSql = strSql & "C_STRTIMETYPE varchar (50) NULL , " strSql = strSql & "C_STRTIMEADJUSTLOCATION varchar (50) NULL , " strSql = strSql & "C_STRTIMEADJUST int NULL , " strSql = strSql & "C_STRMOVETOPICMODE smallint NULL , " strSql = strSql & "C_STRPRIVATEFORUMS smallint NULL , " strSql = strSql & "C_STRSHOWMODERATORS smallint NULL , " strSql = strSql & "C_STRSHOWRANK smallint NULL , " strSql = strSql & "C_STRHIDEEMAIL smallint NULL , " strSql = strSql & "C_STRIPLOGGING smallint NULL , " strSql = strSql & "C_STRALLOWFORUMCODE smallint NULL ) " my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "CONFIG WITH NOCHECK ADD " strSql = strSql & "C_STRIMGINPOSTS smallint NULL , " strSql = strSql & "C_STRALLOWHTML smallint NULL , " strSql = strSql & "C_STRSECUREADMIN smallint NULL , " strSql = strSql & "C_STRNOCOOKIES smallint NULL , " strSql = strSql & "C_STREDITEDBYDATE smallint NULL , " strSql = strSql & "C_STRHOTTOPIC smallint NULL , " strSql = strSql & "C_INTHOTTOPICNUM int NULL , " strSql = strSql & "C_STRHOMEPAGE smallint NULL , " strSql = strSql & "C_STRAIM smallint NULL , " strSql = strSql & "C_STRYAHOO smallint NULL , " strSql = strSql & "C_STRICQ smallint NULL , " strSql = strSql & "C_STRICONS smallint NULL , " strSql = strSql & "C_STRGFXBUTTONS smallint NULL , " strSql = strSql & "C_STRBADWORDFILTER smallint NULL , " strSql = strSql & "C_STRBADWORDS varchar (255) NULL , " strSql = strSql & "C_STRDEFAULTFONTFACE varchar (255) NULL , " strSql = strSql & "C_STRDEFAULTFONTSIZE varchar (50) NULL , " strSql = strSql & "C_STRHEADERFONTSIZE varchar (50) NULL , " strSql = strSql & "C_STRFOOTERFONTSIZE varchar (50) NULL , " strSql = strSql & "C_STRPAGEBGCOLOR varchar (50) NULL , " strSql = strSql & "C_STRDEFAULTFONTCOLOR varchar (50) NULL , " strSql = strSql & "C_STRLINKCOLOR varchar (50) NULL , " strSql = strSql & "C_STRLINKTEXTDECORATION varchar (50) NULL , " strSql = strSql & "C_STRVISITEDLINKCOLOR varchar (50) NULL " my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "CONFIG WITH NOCHECK ADD " strSql = strSql & "C_STRVISITEDTEXTDECORATION varchar (50) NULL , " strSql = strSql & "C_STRACTIVELINKCOLOR varchar (50) NULL , " strSql = strSql & "C_STRHOVERFONTCOLOR varchar (50) NULL , " strSql = strSql & "C_STRHOVERTEXTDECORATION varchar (50) NULL , " strSql = strSql & "C_STRHEADCELLCOLOR varchar (50) NULL , " strSql = strSql & "C_STRHEADFONTCOLOR varchar (50) NULL , " strSql = strSql & "C_STRCATEGORYCELLCOLOR varchar (50) NULL , " strSql = strSql & "C_STRCATEGORYFONTCOLOR varchar (50) NULL , " strSql = strSql & "C_STRFORUMFIRSTCELLCOLOR varchar (50) NULL , " strSql = strSql & "C_STRFORUMCELLCOLOR varchar (50) NULL , " strSql = strSql & "C_STRALTFORUMCELLCOLOR varchar (50) NULL , " strSql = strSql & "C_STRFORUMFONTCOLOR varchar (50) NULL , " strSql = strSql & "C_STRFORUMLINKCOLOR varchar (50) NULL , " strSql = strSql & "C_STRTABLEBORDERCOLOR varchar (50) NULL , " strSql = strSql & "C_STRPOPUPTABLECOLOR varchar (50) NULL , " strSql = strSql & "C_STRPOPUPBORDERCOLOR varchar (50) NULL , " strSql = strSql & "C_STRNEWFONTCOLOR varchar (50) NULL , " strSql = strSql & "C_STRTOPICWIDTHLEFT varchar (10) NULL , " strSql = strSql & "C_STRTOPICNOWRAPLEFT smallint NULL , " strSql = strSql & "C_STRTOPICWIDTHRIGHT varchar (10) NULL , " strSql = strSql & "C_STRTOPICNOWRAPRIGHT smallint NULL , " strSql = strSql & "C_STRRANKADMIN varchar (50) NULL , " strSql = strSql & "C_STRRANKMOD varchar (50) NULL , " strSql = strSql & "C_STRRANKLEVEL0 varchar (50) NULL , " strSql = strSql & "C_STRRANKLEVEL1 varchar (50) NULL " my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "CONFIG WITH NOCHECK ADD " strSql = strSql & "C_STRRANKLEVEL2 varchar (50) NULL , " strSql = strSql & "C_STRRANKLEVEL3 varchar (50) NULL , " strSql = strSql & "C_STRRANKLEVEL4 varchar (50) NULL , " strSql = strSql & "C_STRRANKLEVEL5 varchar (50) NULL , " strSql = strSql & "C_STRRANKCOLORADMIN varchar (50) NULL , " strSql = strSql & "C_STRRANKCOLORMOD varchar (50) NULL , " strSql = strSql & "C_STRRANKCOLOR0 varchar (50) NULL , " strSql = strSql & "C_STRRANKCOLOR1 varchar (50) NULL , " strSql = strSql & "C_STRRANKCOLOR2 varchar (50) NULL , " strSql = strSql & "C_STRRANKCOLOR3 varchar (50) NULL , " strSql = strSql & "C_STRRANKCOLOR4 varchar (50) NULL , " strSql = strSql & "C_STRRANKCOLOR5 varchar (50) NULL , " strSql = strSql & "C_INTRANKLEVEL0 smallint NULL , " strSql = strSql & "C_INTRANKLEVEL1 smallint NULL , " strSql = strSql & "C_INTRANKLEVEL2 smallint NULL , " strSql = strSql & "C_INTRANKLEVEL3 smallint NULL , " strSql = strSql & "C_INTRANKLEVEL4 smallint NULL , " strSql = strSql & "C_INTRANKLEVEL5 smallint NULL , " strSql = strSql & "C_STRSIGNATURES smallint NULL, " strSql = strSql & "C_STRSHOWSTATISTICS smallint NULL, " strSql = strSql & "C_STRSHOWIMAGEPOWEREDBY smallint NULL, " strSql = strSql & "C_STRLOGONFORMAIL smallint NULL, " strSql = strSql & "C_STRSHOWPAGING smallint NULL, " strSql = strSql & "C_STRSHOWTOPICNAV smallint NULL, " strSql = strSql & "C_STRPAGESIZE smallint NULL, " strSql = strSql & "C_STRPAGENUMBERSIZE smallint NULL " my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "CONFIG WITH NOCHECK ADD " strSql = strSql & "C_STRFULLNAME smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1000 DEFAULT 0, " strSql = strSql & "C_STRPICTURE smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1001 DEFAULT 0, " strSql = strSql & "C_STRSEX smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1002 DEFAULT 0, " strSql = strSql & "C_STRCITY smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1003 DEFAULT 0, " strSql = strSql & "C_STRSTATE smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1004 DEFAULT 0, " strSql = strSql & "C_STRAGE smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1005 DEFAULT 0, " strSql = strSql & "C_STRCOUNTRY smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1006 DEFAULT 0, " strSql = strSql & "C_STROCCUPATION smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1007 DEFAULT 0, " strSql = strSql & "C_STRBIO smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1008 DEFAULT 0, " strSql = strSql & "C_STRHOBBIES smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1009 DEFAULT 0, " strSql = strSql & "C_STRLNEWS smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1010 DEFAULT 0, " strSql = strSql & "C_STRQUOTE smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1011 DEFAULT 0, " strSql = strSql & "C_STRMARSTATUS smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1012 DEFAULT 0, " strSql = strSql & "C_STRFAVLINKS smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1013 DEFAULT 1, " strSql = strSql & "C_STRRECENTTOPICS smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1014 DEFAULT 0, " strSql = strSql & "C_STRAUTOLOGON smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1015 DEFAULT 0, " strSql = strSql & "C_STRNTGROUPS smallint NULL CONSTRAINT " & strTablePrefix & "SnitzC1016 DEFAULT 0" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE TABLE " & strTablePrefix & "CONFIG_NEW ( " strSql = strSql & "ID int IDENTITY (1, 1) NOT NULL , " strSql = strSql & "C_VARIABLE varchar (255) NULL , " strSql = strSql & "C_VALUE varchar (255) NULL )" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE TABLE " & strTablePrefix & "FORUM ( " strSql = strSql & "CAT_ID int NOT NULL , " strSql = strSql & "FORUM_ID int IDENTITY (1, 1) NOT NULL , " strSql = strSql & "F_STATUS smallint NULL , " strSql = strSql & "F_MAIL smallint NULL , " strSql = strSql & "F_SUBJECT varchar (100) NULL , " strSql = strSql & "F_URL varchar (255) NULL , " strSql = strSql & "F_DESCRIPTION varchar (255) NULL , " strSql = strSql & "F_TOPICS int NULL , " strSql = strSql & "F_COUNT int NULL , " strSql = strSql & "F_LAST_POST varchar (50) NULL , " strSql = strSql & "F_PASSWORD_NEW varchar (255) NULL , " strSql = strSql & "F_USERLIST varchar (255) NULL , " strSql = strSql & "F_PRIVATEFORUMS int NULL , " strSql = strSql & "F_TYPE smallint NULL , " strSql = strSql & "F_IP varchar (50) NULL, " strSql = strSql & "F_LAST_POST_AUTHOR int NULL ) " my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE TABLE " & strMemberTablePrefix & "MEMBERS ( " strSql = strSql & "MEMBER_ID int IDENTITY (1, 1) NOT NULL , " strSql = strSql & "M_STATUS smallint NULL , " strSql = strSql & "M_NAME varchar (75) NULL , " strSql = strSql & "M_USERNAME varchar (150) NULL , " strSql = strSql & "M_PASSWORD varchar (25) NULL , " strSql = strSql & "M_EMAIL varchar (50) NULL , " strSql = strSql & "M_COUNTRY varchar (20) NULL , " strSql = strSql & "M_HOMEPAGE varchar (50) NULL , " strSql = strSql & "M_SIG varchar (255) NULL , " strSql = strSql & "M_DEFAULT_VIEW int NULL , " strSql = strSql & "M_LEVEL smallint NULL , " strSql = strSql & "M_AIM varchar (150) NULL , " strSql = strSql & "M_YAHOO varchar (150) NULL , " strSql = strSql & "M_ICQ varchar (150) NULL , " strSql = strSql & "M_POSTS int NULL , " strSql = strSql & "M_DATE varchar (50) NULL , " strSql = strSql & "M_LASTHEREDATE varchar (50) NULL , " strSql = strSql & "M_LASTPOSTDATE varchar (50) NULL , " strSql = strSql & "M_TITLE varchar (50) NULL , " strSql = strSql & "M_SUBSCRIPTION smallint NULL , " strSql = strSql & "M_HIDE_EMAIL smallint NULL , " strSql = strSql & "M_RECEIVE_EMAIL smallint NULL , " strSql = strSql & "M_LAST_IP varchar (50) NULL , " strSql = strSql & "M_IP varchar (50) NULL , " strSql = strSql & "M_FIRSTNAME varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0369 DEFAULT '' ," strSql = strSql & "M_LASTNAME varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0370 DEFAULT '' ," strSql = strSql & "M_OCCUPATION varchar (255) NULL CONSTRAINT " & strTablePrefix & "SnitzC0371 DEFAULT '' ," strSql = strSql & "M_SEX varchar (50) NULL CONSTRAINT " & strTablePrefix & "SnitzC0372 DEFAULT '' , " strSql = strSql & "M_AGE varchar (10) NULL CONSTRAINT " & strTablePrefix & "SnitzC0373 DEFAULT '' , " strSql = strSql & "M_HOBBIES text NULL , " strSql = strSql & "M_LNEWS text NULL , " strSql = strSql & "M_QUOTE text NULL , " strSql = strSql & "M_BIO text NULL , " strSql = strSql & "M_MARSTATUS varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0374 DEFAULT '' ," strSql = strSql & "M_LINK1 varchar (255) NULL CONSTRAINT " & strTablePrefix & "SnitzC0375 DEFAULT '' ," strSql = strSql & "M_LINK2 varchar (255) NULL CONSTRAINT " & strTablePrefix & "SnitzC0376 DEFAULT '' , " strSql = strSql & "M_CITY varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0377 DEFAULT '' , " strSql = strSql & "M_STATE varchar (100) NULL CONSTRAINT " & strTablePrefix & "SnitzC0379 DEFAULT '' , " strSql = strSql & "M_PHOTO_URL varchar (255) NULL CONSTRAINT " & strTablePrefix & "SnitzC0378 DEFAULT '' )" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE TABLE " & strTablePrefix & "MODERATOR ( " strSql = strSql & "MOD_ID int IDENTITY (1, 1) NOT NULL , " strSql = strSql & "FORUM_ID int NULL , " strSql = strSql & "MEMBER_ID int NULL , " strSql = strSql & "MOD_TYPE smallint NULL )" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE TABLE " & strTablePrefix & "REPLY ( " strSql = strSql & "CAT_ID int NOT NULL , " strSql = strSql & "FORUM_ID int NOT NULL , " strSql = strSql & "TOPIC_ID int NOT NULL , " strSql = strSql & "REPLY_ID int IDENTITY (1, 1) NOT NULL , " strSql = strSql & "R_MAIL smallint NULL , " strSql = strSql & "R_AUTHOR int NULL , " strSql = strSql & "R_MESSAGE text NULL , " strSql = strSql & "R_DATE varchar (50) NULL , " strSql = strSql & "R_IP varchar (50) NULL ) " my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE TABLE " & strTablePrefix & "TOPICS ( " strSql = strSql & "CAT_ID int NOT NULL , " strSql = strSql & "FORUM_ID int NOT NULL , " strSql = strSql & "TOPIC_ID int IDENTITY (1, 1) NOT NULL , " strSql = strSql & "T_STATUS smallint NULL , " strSql = strSql & "T_MAIL smallint NULL , " strSql = strSql & "T_SUBJECT varchar (100) NULL , " strSql = strSql & "T_MESSAGE text NULL , " strSql = strSql & "T_AUTHOR int NULL , " strSql = strSql & "T_REPLIES int NULL , " strSql = strSql & "T_VIEW_COUNT int NULL , " strSql = strSql & "T_LAST_POST varchar (50) NULL , " strSql = strSql & "T_DATE varchar (50) NULL, " strSql = strSql & "T_LAST_POSTER int NULL, " strSql = strSql & "T_IP varchar (50) NULL, " strSql = strSql & "T_LAST_POST_AUTHOR int NULL ) " my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE TABLE " & strTablePrefix & "TOTALS ( " strSql = strSql & "COUNT_ID smallint NOT NULL , " strSql = strSql & "P_COUNT int NULL , " strSql = strSql & "T_COUNT int NULL , " strSql = strSql & "U_COUNT int NULL ) " my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE TABLE " & strTablePrefix & "ALLOWED_MEMBERS (" strSql = strSql & "MEMBER_ID INT NOT NULL, FORUM_ID INT NOT NULL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC373 PRIMARY KEY NONCLUSTERED (MEMBER_ID, FORUM_ID)) " my_Conn.Execute strSql ChkDBInstall() if (strDBType = "sqlserver") then strSql = "ALTER TABLE " & strTablePrefix & "CATEGORY WITH NOCHECK ADD " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC1 DEFAULT 1 FOR CAT_STATUS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC2 PRIMARY KEY NONCLUSTERED " strSql = strSql & " (CAT_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "CONFIG WITH NOCHECK ADD " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC021 DEFAULT '" & strNewVersion & "' FOR C_STRVERSION, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC3 DEFAULT 'Snitz Forums 2000' FOR C_STRFORUMTITLE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC031 DEFAULT '© 2000 Snitz Communications' FOR C_STRCOPYRIGHT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC032 DEFAULT 'logo_snitz_forums_2000.gif' FOR C_STRTITLEIMAGE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC033 DEFAULT '../' FOR C_STRHOMEURL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC034 DEFAULT 'http://snitz.forum.com/forum/' FOR C_STRFORUMURL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC035 DEFAULT 'db' FOR C_STRAUTHTYPE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC036 DEFAULT 1 FOR C_STRSETCOOKIETOFORUM, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC4 DEFAULT 0 FOR C_STREMAIL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC5 DEFAULT 1 FOR C_STRUNIQUEEMAIL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC051 DEFAULT 'cdonts' FOR C_STRMAILMODE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC052 DEFAULT 'your.mailserver.com' FOR C_STRMAILSERVER, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC053 DEFAULT 'your.email@yourserver.com' FOR C_STRSENDER, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC054 DEFAULT 'mdy' FOR C_STRDATETYPE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC056 DEFAULT '24' FOR C_STRTIMETYPE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC057 DEFAULT '0' FOR C_STRTIMEADJUSTLOCATION, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC6 DEFAULT 0 FOR C_STRTIMEADJUST, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC7 DEFAULT 1 FOR C_STRMOVETOPICMODE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC8 DEFAULT 0 FOR C_STRPRIVATEFORUMS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC9 DEFAULT 1 FOR C_STRSHOWMODERATORS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC10 DEFAULT 0 FOR C_STRSHOWRANK, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC11 DEFAULT 0 FOR C_STRHIDEEMAIL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC12 DEFAULT 1 FOR C_STRIPLOGGING, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC13 DEFAULT 1 FOR C_STRALLOWFORUMCODE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC14 DEFAULT 0 FOR C_STRIMGINPOSTS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC15 DEFAULT 0 FOR C_STRALLOWHTML, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC16 DEFAULT 1 FOR C_STRSECUREADMIN, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC17 DEFAULT 0 FOR C_STRNOCOOKIES, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC18 DEFAULT 1 FOR C_STREDITEDBYDATE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC19 DEFAULT 1 FOR C_STRHOTTOPIC, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC20 DEFAULT 20 FOR C_INTHOTTOPICNUM, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC21 DEFAULT 1 FOR C_STRHOMEPAGE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC22 DEFAULT 1 FOR C_STRAIM, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC23 DEFAULT 1 FOR C_STRYAHOO, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC24 DEFAULT 1 FOR C_STRICQ, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC25 DEFAULT 1 FOR C_STRICONS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC26 DEFAULT 1 FOR C_STRGFXBUTTONS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC27 DEFAULT 1 FOR C_STRBADWORDFILTER, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0271 DEFAULT 'fuck|wank|shit|pussy|cunt' FOR C_STRBADWORDS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0272 DEFAULT 'Verdana, Arial, Helvetica' FOR C_STRDEFAULTFONTFACE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0273 DEFAULT '2' FOR C_STRDEFAULTFONTSIZE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0274 DEFAULT '4' FOR C_STRHEADERFONTSIZE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0275 DEFAULT '1' FOR C_STRFOOTERFONTSIZE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0276 DEFAULT 'white' FOR C_STRPAGEBGCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0277 DEFAULT 'midnightblue' FOR C_STRDEFAULTFONTCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0278 DEFAULT 'darkblue' FOR C_STRLINKCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0279 DEFAULT 'underline' FOR C_STRLINKTEXTDECORATION, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02710 DEFAULT 'blue' FOR C_STRVISITEDLINKCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02711 DEFAULT 'underline' FOR C_STRVISITEDTEXTDECORATION, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02712 DEFAULT 'red' FOR C_STRACTIVELINKCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02713 DEFAULT 'red' FOR C_STRHOVERFONTCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02714 DEFAULT 'underline' FOR C_STRHOVERTEXTDECORATION, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02715 DEFAULT 'midnightblue' FOR C_STRHEADCELLCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02716 DEFAULT 'mintcream' FOR C_STRHEADFONTCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02717 DEFAULT 'slateblue' FOR C_STRCATEGORYCELLCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02718 DEFAULT 'mintcream' FOR C_STRCATEGORYFONTCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02719 DEFAULT 'whitesmoke' FOR C_STRFORUMFIRSTCELLCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02720 DEFAULT 'whitesmoke' FOR C_STRFORUMCELLCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02721 DEFAULT 'gainsboro' FOR C_STRALTFORUMCELLCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02722 DEFAULT 'midnightblue' FOR C_STRFORUMFONTCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02723 DEFAULT 'darkblue' FOR C_STRFORUMLINKCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02724 DEFAULT 'black' FOR C_STRTABLEBORDERCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02725 DEFAULT 'navyblue' FOR C_STRPOPUPTABLECOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02726 DEFAULT 'black' FOR C_STRPOPUPBORDERCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02727 DEFAULT 'blue' FOR C_STRNEWFONTCOLOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02728 DEFAULT '100' FOR C_STRTOPICWIDTHLEFT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC02729 DEFAULT '100%' FOR C_STRTOPICWIDTHRIGHT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC28 DEFAULT 1 FOR C_STRTOPICNOWRAPLEFT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC29 DEFAULT 0 FOR C_STRTOPICNOWRAPRIGHT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC30 DEFAULT 'Administrator' FOR C_STRRANKADMIN, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0301 DEFAULT 'Moderator' FOR C_STRRANKMOD, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0302 DEFAULT 'Starting Member' FOR C_STRRANKLEVEL0, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0303 DEFAULT 'New Member' FOR C_STRRANKLEVEL1, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0304 DEFAULT 'Junior Member' FOR C_STRRANKLEVEL2, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0305 DEFAULT 'Average Member' FOR C_STRRANKLEVEL3, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0306 DEFAULT 'Senior Member' FOR C_STRRANKLEVEL4, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0307 DEFAULT 'Advanced Member' FOR C_STRRANKLEVEL5, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0308 DEFAULT 'gold' FOR C_STRRANKCOLORADMIN, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0309 DEFAULT 'silver' FOR C_STRRANKCOLORMOD, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC03010 DEFAULT 'bronze' FOR C_STRRANKCOLOR0, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC03011 DEFAULT 'bronze' FOR C_STRRANKCOLOR1, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC03012 DEFAULT 'bronze' FOR C_STRRANKCOLOR2, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC03013 DEFAULT 'bronze' FOR C_STRRANKCOLOR3, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC03014 DEFAULT 'bronze' FOR C_STRRANKCOLOR4, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC03015 DEFAULT 'bronze' FOR C_STRRANKCOLOR5, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC03016 DEFAULT 0 FOR C_INTRANKLEVEL0, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC31 DEFAULT 50 FOR C_INTRANKLEVEL1, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC32 DEFAULT 100 FOR C_INTRANKLEVEL2, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC33 DEFAULT 500 FOR C_INTRANKLEVEL3, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC34 DEFAULT 1000 FOR C_INTRANKLEVEL4, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC35 DEFAULT 2000 FOR C_INTRANKLEVEL5, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0361 DEFAULT 1 FOR C_STRSIGNATURES, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0362 DEFAULT 1 FOR C_STRSHOWSTATISTICS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0363 DEFAULT 1 FOR C_STRSHOWIMAGEPOWEREDBY, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0364 DEFAULT 1 FOR C_STRLOGONFORMAIL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0365 DEFAULT 1 FOR C_STRSHOWPAGING, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0366 DEFAULT 1 FOR C_STRSHOWTOPICNAV, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0367 DEFAULT 15 FOR C_STRPAGESIZE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC0368 DEFAULT 10 FOR C_STRPAGENUMBERSIZE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC37 PRIMARY KEY NONCLUSTERED " strSql = strSql & "(CONFIG_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "CONFIG_NEW WITH NOCHECK ADD " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC38 PRIMARY KEY NONCLUSTERED " strSql = strSql & " (ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "FORUM WITH NOCHECK ADD " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC39 DEFAULT 0 FOR CAT_ID, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC40 DEFAULT 1 FOR F_STATUS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC41 DEFAULT 0 FOR F_MAIL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC42 DEFAULT 0 FOR F_TOPICS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC43 DEFAULT 0 FOR F_COUNT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC44 DEFAULT '' FOR F_LAST_POST, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC45 DEFAULT 0 FOR F_PRIVATEFORUMS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC46 DEFAULT 0 FOR F_TYPE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC47 DEFAULT '000.000.000.000' FOR F_IP, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC48 PRIMARY KEY NONCLUSTERED " strSql = strSql & "(CAT_ID, FORUM_ID )" my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strMemberTablePrefix & "MEMBERS WITH NOCHECK ADD " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC49 DEFAULT 1 FOR M_STATUS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC50 DEFAULT 1 FOR M_DEFAULT_VIEW, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC51 DEFAULT 1 FOR M_LEVEL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC52 DEFAULT '' FOR M_DATE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC53 DEFAULT 0 FOR M_SUBSCRIPTION, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC54 DEFAULT 0 FOR M_HIDE_EMAIL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC55 DEFAULT 1 FOR M_RECEIVE_EMAIL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC56 DEFAULT '000.000.000.000' FOR M_LAST_IP, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC57 DEFAULT '000.000.000.000' FOR M_IP, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC58 PRIMARY KEY NONCLUSTERED " strSql = strSql & "(MEMBER_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "MODERATOR WITH NOCHECK ADD " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC59 DEFAULT 0 FOR FORUM_ID, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC60 DEFAULT 0 FOR MEMBER_ID, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC61 DEFAULT 0 FOR MOD_TYPE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC62 PRIMARY KEY NONCLUSTERED " strSql = strSql & " (MOD_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "REPLY WITH NOCHECK ADD " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC63 DEFAULT 0 FOR CAT_ID, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC64 DEFAULT 0 FOR FORUM_ID, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC65 DEFAULT 0 FOR TOPIC_ID, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC66 DEFAULT 0 FOR R_MAIL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC67 DEFAULT 0 FOR R_AUTHOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC68 DEFAULT '' FOR R_DATE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC69 DEFAULT '000.000.000.000' FOR R_IP, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC70 PRIMARY KEY NONCLUSTERED " strSql = strSql & "(CAT_ID, FORUM_ID, TOPIC_ID, REPLY_ID )" my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "TOPICS WITH NOCHECK ADD " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC71 DEFAULT 0 FOR CAT_ID, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC72 DEFAULT 0 FOR FORUM_ID, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC73 DEFAULT 1 FOR T_STATUS, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC74 DEFAULT 0 FOR T_MAIL, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC75 DEFAULT 0 FOR T_AUTHOR, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC76 DEFAULT 0 FOR T_REPLIES, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC77 DEFAULT 0 FOR T_VIEW_COUNT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC78 DEFAULT '' FOR T_LAST_POST, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC79 DEFAULT '' FOR T_DATE, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC80 DEFAULT 0 FOR T_LAST_POSTER, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC81 DEFAULT '000.000.000.000' FOR T_IP, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC82 PRIMARY KEY NONCLUSTERED " strSql = strSql & "(CAT_ID, FORUM_ID, TOPIC_ID )" my_Conn.Execute strSql ChkDBInstall() strSql = "ALTER TABLE " & strTablePrefix & "TOTALS WITH NOCHECK ADD " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC83 DEFAULT 0 FOR COUNT_ID, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC84 DEFAULT 0 FOR P_COUNT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC85 DEFAULT 0 FOR T_COUNT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC86 DEFAULT 0 FOR U_COUNT, " strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzC87 PRIMARY KEY NONCLUSTERED " strSql = strSql & "(COUNT_ID) " end if my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "CATEGORY_CAT_ID ON " & strTablePrefix & "CATEGORY(CAT_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "CATEGORY_CAT_STATUS ON " & strTablePrefix & "CATEGORY(CAT_STATUS)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "CAT_ID ON " & strTablePrefix & "FORUM(CAT_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "F_CAT ON " & strTablePrefix & "FORUM(CAT_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "FORUM_ID ON " & strTablePrefix & "FORUM(FORUM_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strMemberTablePrefix & "MEMBERS_MEMBER_ID ON " &strMemberTablePrefix & "MEMBERS(MEMBER_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "MODERATOR_FORUM_ID ON " & strTablePrefix & "MODERATOR(FORUM_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "MODERATORS_MEMBER_ID ON " & strTablePrefix & "MODERATOR(MEMBER_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "REPLY_R_AUTHOR ON " & strTablePrefix & "REPLY(R_AUTHOR)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "REPLY_CATFORTOP_ID ON " & strTablePrefix & "REPLY(CAT_ID, FORUM_ID, TOPIC_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "FORUM_ID ON " & strTablePrefix & "REPLY(FORUM_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "REPLY_ID ON " & strTablePrefix & "REPLY(REPLY_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "REPLY_TOPIC_ID ON " & strTablePrefix & "REPLY(TOPIC_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "TOPICS_CAT_ID_FORUM_ID ON " & strTablePrefix & "TOPICS(CAT_ID, FORUM_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "TOPICS_T_AUTHOR ON " & strTablePrefix & "TOPICS(T_AUTHOR)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "TOPICS_CAT_ID ON " & strTablePrefix & "TOPICS(CAT_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "FORUM_ID ON " & strTablePrefix & "TOPICS(FORUM_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "TOPICS_TOPIC_ID ON " & strTablePrefix & "TOPICS(TOPIC_ID)" my_Conn.Execute strSql ChkDBInstall() strSql = "CREATE INDEX " & strTablePrefix & "TOPICS_CAT_FOR_TOP ON " & strTablePrefix & "TOPICS(CAT_ID, FORUM_ID, TOPIC_ID)" my_Conn.Execute strSql ChkDBInstall() ' strSql = "ALTER TABLE " & strTablePrefix & "FORUM ADD " ' strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzFK1 FOREIGN KEY " ' strSql = strSql & " (CAT_ID " ' strSql = strSql & " ) REFERENCES " & strTablePrefix & "CATEGORY (CAT_ID) " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "ALTER TABLE " & strTablePrefix & "REPLY ADD " ' strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzFK2 FOREIGN KEY " ' strSql = strSql & " (R_AUTHOR " ' strSql = strSql & " ) REFERENCES " & strMemberTablePrefix & "MEMBERS (MEMBER_ID), " ' strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzFK3 FOREIGN KEY " ' strSql = strSql & " (CAT_ID, FORUM_ID, TOPIC_ID " ' strSql = strSql & " ) REFERENCES " & strTablePrefix & "TOPICS (CAT_ID, FORUM_ID, TOPIC_ID) " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "ALTER TABLE " & strTablePrefix & "TOPICS ADD " ' strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzFK4 FOREIGN KEY " ' strSql = strSql & " (CAT_ID, FORUM_ID " ' strSql = strSql & " ) REFERENCES " & strTablePrefix & "FORUM (CAT_ID, FORUM_ID), " ' strSql = strSql & "CONSTRAINT " & strTablePrefix & "SnitzFK5 FOREIGN KEY " ' strSql = strSql & " (T_AUTHOR " ' strSql = strSql & " ) REFERENCES " & strMemberTablePrefix & "MEMBERS (MEMBER_ID) " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "SET QUOTED_IDENTIFIER ON SET ANSI_NULLS ON " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "CATEGORY_UpdateTrigger ON " & strTablePrefix & "CATEGORY FOR UPDATE AS " ' ## CASCADE UPDATES TO FORUM_FORUM ' strSql = strSql & "IF UPDATE(CAT_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " UPDATE " & strTablePrefix & "FORUM " ' strSql = strSql & " SET " & strTablePrefix & "FORUM.CAT_ID = inserted.CAT_ID " ' strSql = strSql & " FROM " & strTablePrefix & "FORUM, deleted, inserted " ' strSql = strSql & " WHERE deleted.CAT_ID = " & strTablePrefix & "FORUM.CAT_ID " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "CATEGORY_DeleteTrigger ON " & strTablePrefix & "CATEGORY FOR DELETE AS " ' ## CASCADE DELETES TO FORUM_FORUM ' strSql = strSql & "DELETE " & strTablePrefix & "FORUM FROM deleted, " & strTablePrefix & "FORUM WHERE deleted.CAT_ID = " & strTablePrefix & "FORUM.CAT_ID " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "FORUM_InsertTrigger ON " & strTablePrefix & "FORUM FOR INSERT AS " ' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_CATEGORY ' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & "(SELECT COUNT(*) FROM " & strTablePrefix & "CATEGORY, inserted WHERE (" & strTablePrefix & "CATEGORY.CAT_ID = inserted.CAT_ID)) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "CATEGORY''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "FORUM_DeleteTrigger ON " & strTablePrefix & "FORUM FOR DELETE AS " ' ## CASCADE DELETES TO FORUM_TOPICS ' strSql = strSql & "DELETE " & strTablePrefix & "TOPICS FROM deleted, " & strTablePrefix & "TOPICS WHERE deleted.CAT_ID = " & strTablePrefix & "TOPICS.CAT_ID AND deleted.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "FORUM_UpdateTrigger ON " & strTablePrefix & "FORUM FOR UPDATE AS " ' ## PREVENT UPDATES IF NO MATCHING KEY IN FORUM_CATEGORY ' strSql = strSql & "IF UPDATE(CAT_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & " (SELECT COUNT(*) FROM " & strTablePrefix & "CATEGORY, inserted WHERE (" & strTablePrefix & "CATEGORY.CAT_ID = inserted.CAT_ID)) " ' strSql = strSql & " BEGIN " ' strSql = strSql & " RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "CATEGORY''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & " END " ' strSql = strSql & "END " ' ## CASCADE UPDATES TO FORUM_TOPICS ' strSql = strSql & "IF UPDATE(CAT_ID) OR UPDATE(FORUM_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " UPDATE " & strTablePrefix & "TOPICS " ' strSql = strSql & " SET " & strTablePrefix & "TOPICS.CAT_ID = inserted.CAT_ID , " & strTablePrefix & "TOPICS.FORUM_ID = inserted.FORUM_ID " ' strSql = strSql & " FROM " & strTablePrefix & "TOPICS, deleted, inserted " ' strSql = strSql & " WHERE deleted.CAT_ID = " & strTablePrefix & "TOPICS.CAT_ID AND deleted.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strMemberTablePrefix & "MEMBERS_UpdateTrigger ON " & strMemberTablePrefix & "MEMBERS FOR UPDATE AS " ' ## PREVENT UPDATES IF DEPENDENT RECORDS IN FORUM_REPLY ' strSql = strSql & "IF UPDATE(MEMBER_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "REPLY WHERE (deleted.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR)) > 0 " ' strSql = strSql & " BEGIN " ' strSql = strSql & " RAISERROR 44446 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "REPLY'', referential integrity rules would be violated.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & " END " ' strSql = strSql & "END " ' ## PREVENT UPDATES IF DEPENDENT RECORDS IN FORUM_TOPICS ' strSql = strSql & "IF UPDATE(MEMBER_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "TOPICS WHERE (deleted.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR)) > 0 " ' strSql = strSql & " BEGIN " ' strSql = strSql & " RAISERROR 44446 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "TOPICS'', referential integrity rules would be violated.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & " END " ' strSql = strSql & "END " ' ## PREVENT UPDATES IF DEPENDENT RECORDS IN FORUM_MODERATOR ' strSql = strSql & "IF UPDATE(MEMBER_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "MODERATOR WHERE (deleted.MEMBER_ID = " & strTablePrefix & "MODERATOR.MEMBER_ID)) > 0 " ' strSql = strSql & " BEGIN " ' strSql = strSql & " RAISERROR 44446 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "MODERATOR'', referential integrity rules would be violated.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & " END " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strMemberTablePrefix & "MEMBERS_DeleteTrigger ON " & strMemberTablePrefix & "MEMBERS FOR DELETE AS " ' ## PREVENT DELETES IF DEPENDENT RECORDS IN FORUM_REPLY ' strSql = strSql & "IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "REPLY WHERE (deleted.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR)) > 0 " ' strSql = strSql & "BEGIN " ' strSql = strSql & " RAISERROR 44445 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "REPLY'', referential integrity rules would be violated.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & "END " ' ## PREVENT DELETES IF DEPENDENT RECORDS IN FORUM_TOPICS ' strSql = strSql & "IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "TOPICS WHERE (deleted.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR)) > 0 " ' strSql = strSql & "BEGIN " ' strSql = strSql & " RAISERROR 44445 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "TOPICS'', referential integrity rules would be violated.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & "END " ' ## PREVENT DELETES IF DEPENDENT RECORDS IN FORUM_MODERATOR ' strSql = strSql & "IF (SELECT COUNT(*) FROM deleted, " & strTablePrefix & "MODERATOR WHERE (deleted.MEMBER_ID = " & strTablePrefix & "MODERATOR.MEMBER_ID)) > 0 " ' strSql = strSql & "BEGIN " ' strSql = strSql & " RAISERROR 44445 'The record can''t be deleted or changed. Since related records exist in table ''" & strTablePrefix & "MODERATOR'', referential integrity rules would be violated.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "MODERATOR_UpdateTrigger ON " & strTablePrefix & "MODERATOR FOR UPDATE AS " ' ## PREVENT UPDATES IF NO MATCHING KEY IN FORUM_MEMBERS ' strSql = strSql & "IF UPDATE(MEMBER_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & " (SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.MEMBER_ID)) " ' strSql = strSql & " BEGIN " ' strSql = strSql & " RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" &strMemberTablePrefix & "MEMBERS''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & " END " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "MODERATOR_InsertTrigger ON " & strTablePrefix & "MODERATOR FOR INSERT AS " ' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_MEMBERS ' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & "(SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.MEMBER_ID)) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" &strMemberTablePrefix & "MEMBERS''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "REPLY_UpdateTrigger ON " & strTablePrefix & "REPLY FOR UPDATE AS " ' ## PREVENT UPDATES IF NO MATCHING KEY IN FORUM_MEMBERS ' strSql = strSql & "IF UPDATE(R_AUTHOR) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & " (SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.R_AUTHOR)) " ' strSql = strSql & " BEGIN " ' strSql = strSql & " RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" &strMemberTablePrefix & "MEMBERS''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & " END " ' strSql = strSql & "END " ' ## PREVENT UPDATES IF NO MATCHING KEY IN " & strTablePrefix & "TOPICS ' strSql = strSql & "IF UPDATE(CAT_ID) OR UPDATE(FORUM_ID) OR UPDATE(TOPIC_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & " (SELECT COUNT(*) FROM " & strTablePrefix & "TOPICS, inserted WHERE (" & strTablePrefix & "TOPICS.CAT_ID = inserted.CAT_ID AND " & strTablePrefix & "TOPICS.FORUM_ID = inserted.FORUM_ID AND " & strTablePrefix & "TOPICS.TOPIC_ID = inserted.TOPIC_ID)) " ' strSql = strSql & " BEGIN " ' strSql = strSql & " RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "TOPICS''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & " END " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "REPLY_InsertTrigger ON " & strTablePrefix & "REPLY FOR INSERT AS " ' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_MEMBERS ' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & "(SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.R_AUTHOR)) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strMemberTablePrefix & "MEMBERS''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & "END " ' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_TOPICS ' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & "(SELECT COUNT(*) FROM " & strTablePrefix & "TOPICS, inserted WHERE (" & strTablePrefix & "TOPICS.CAT_ID = inserted.CAT_ID AND " & strTablePrefix & "TOPICS.FORUM_ID = inserted.FORUM_ID AND " & strTablePrefix & "TOPICS.TOPIC_ID = inserted.TOPIC_ID)) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "TOPICS''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "TOPICS_UpdateTrigger ON " & strTablePrefix & "TOPICS FOR UPDATE AS " ' ## PREVENT UPDATES IF NO MATCHING KEY IN FORUM_FORUM ' strSql = strSql & "IF UPDATE(CAT_ID) OR UPDATE(FORUM_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & " (SELECT COUNT(*) FROM " & strTablePrefix & "FORUM, inserted WHERE (" & strTablePrefix & "FORUM.CAT_ID = inserted.CAT_ID AND " & strTablePrefix & "FORUM.FORUM_ID = inserted.FORUM_ID)) " ' strSql = strSql & " BEGIN " ' strSql = strSql & " RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "FORUM''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & " END " ' strSql = strSql & "END " ' ## PREVENT UPDATES IF NO MATCHING KEY IN FORUM_MEMBERS ' strSql = strSql & "IF UPDATE(T_AUTHOR) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & " (SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.T_AUTHOR)) " ' strSql = strSql & " BEGIN " ' strSql = strSql & " RAISERROR 44446 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strMemberTablePrefix & "MEMBERS''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & " END " ' strSql = strSql & "END " ' ## CASCADE UPDATES TO FORUM_REPLY ' strSql = strSql & "IF UPDATE(CAT_ID) OR UPDATE(FORUM_ID) OR UPDATE(TOPIC_ID) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " UPDATE " & strTablePrefix & "REPLY " ' strSql = strSql & " SET " & strTablePrefix & "REPLY.CAT_ID = inserted.CAT_ID , " & strTablePrefix & "REPLY.FORUM_ID = inserted.FORUM_ID , " & strTablePrefix & "REPLY.TOPIC_ID = inserted.TOPIC_ID " ' strSql = strSql & " FROM " & strTablePrefix & "REPLY, deleted, inserted " ' strSql = strSql & " WHERE deleted.CAT_ID = " & strTablePrefix & "REPLY.CAT_ID AND deleted.FORUM_ID = " & strTablePrefix & "REPLY.FORUM_ID AND deleted.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID " ' strSql = strSql & "END " ' my_Conn.Execute strSql ' ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "TOPICS_InsertTrigger ON " & strTablePrefix & "TOPICS FOR INSERT AS " ' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_FORUM ' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & "(SELECT COUNT(*) FROM " & strTablePrefix & "FORUM, inserted WHERE (" & strTablePrefix & "FORUM.CAT_ID = inserted.CAT_ID AND " & strTablePrefix & "FORUM.FORUM_ID = inserted.FORUM_ID)) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" & strTablePrefix & "FORUM''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & "END " ' ## PREVENT INSERTS IF NO MATCHING KEY IN FORUM_MEMBERS ' strSql = strSql & "IF (SELECT COUNT(*) FROM inserted) != " ' strSql = strSql & "(SELECT COUNT(*) FROM " & strMemberTablePrefix & "MEMBERS, inserted WHERE (" & strMemberTablePrefix & "MEMBERS.MEMBER_ID = inserted.T_AUTHOR)) " ' strSql = strSql & "BEGIN " ' strSql = strSql & " RAISERROR 44447 'The record can''t be added or changed. Referential integrity rules require a related record in table ''" &strMemberTablePrefix & "MEMBERS''.' " ' strSql = strSql & " ROLLBACK TRANSACTION " ' strSql = strSql & "END " 'my_Conn.Execute strSql 'ChkDBInstall() ' strSql = "CREATE TRIGGER " & strTablePrefix & "TOPICS_DeleteTrigger ON " & strTablePrefix & "TOPICS FOR DELETE AS " ' ## CASCADE DELETES TO FORUM_REPLY ' strSql = strSql & "DELETE " & strTablePrefix & "REPLY FROM deleted, " & strTablePrefix & "REPLY WHERE deleted.CAT_ID = " & strTablePrefix & "REPLY.CAT_ID AND deleted.FORUM_ID = " & strTablePrefix & "REPLY.FORUM_ID AND deleted.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID " 'my_Conn.Execute strSql 'ChkDBInstall() ' strSql = "SET QUOTED_IDENTIFIER OFF SET ANSI_NULLS ON " 'my_Conn.Execute strSql 'ChkDBInstall() if (strDBType = "sqlserver") then strSql = "INSERT " & strTablePrefix & "CONFIG DEFAULT VALUES " my_Conn.Execute strSql ChkDBInstall() end if strSql = "INSERT " & strTablePrefix & "CATEGORY(CAT_STATUS, CAT_NAME) VALUES(1, 'Snitz Forums 2000')" my_Conn.Execute strSql ChkDBInstall() strSql = "INSERT " & strMemberTablePrefix & "MEMBERS (M_STATUS, M_NAME, M_USERNAME, M_PASSWORD, M_EMAIL, M_COUNTRY, " strSql = strSql & "M_HOMEPAGE, M_SIG, M_DEFAULT_VIEW, M_LEVEL, M_AIM, M_YAHOO, M_ICQ, " strSql = strSql & "M_POSTS, M_DATE, M_LASTHEREDATE, M_LASTPOSTDATE, M_TITLE, M_SUBSCRIPTION, " strSql = strSql & "M_HIDE_EMAIL, M_RECEIVE_EMAIL, M_LAST_IP, M_IP) " strSql = strSql & " VALUES(1, 'Admin', 'Admin', 'admin', 'yourmail@server.com', ' ', ' ', ' ', 1, 3, ' ', ' ', ' ', " strSql = strSql & " 1, '20001119000000', '20001119000000', '20001119000000', 'Forum Admin', 0, 0, 1, '000.000.000.000', '000.000.000.000')" my_Conn.Execute strSql ChkDBInstall() strSql = "INSERT " & strTablePrefix & "FORUM(CAT_ID, F_STATUS, F_MAIL, F_SUBJECT, F_URL, F_DESCRIPTION, F_TOPICS, F_COUNT, F_LAST_POST, " strSql = strSql & " F_PASSWORD_NEW, F_USERLIST, F_PRIVATEFORUMS, F_TYPE, F_IP, F_LAST_POST_AUTHOR) " strSql = strSql & "VALUES(1, 1, 0, 'Testing Forums', '', 'This forum gives you a chance to become more familiar with how this product responds to different features and keeps testing in one place instead of posting tests all over. Happy Posting! ', " strSql = strSql & " 1, 1, '20001119000000', '', '', 0, 0, '000.000.000.000', 1) " my_Conn.Execute strSql ChkDBInstall() strSql = "INSERT " & strTablePrefix & "TOPICS (CAT_ID, FORUM_ID, T_STATUS, T_MAIL, T_SUBJECT, T_MESSAGE, T_AUTHOR, " strSql = strSql & "T_REPLIES, T_VIEW_COUNT, T_LAST_POST, T_DATE, T_LAST_POSTER, T_IP, T_LAST_POST_AUTHOR) " strSql = strSql & "VALUES(1, 1, 1, 0, 'Welcome to Snitz Forums 2000', 'Thank you for downloading the Snitz Forums 2000. We hope you enjoy this great tool to support your organization!" & CHR(13) & CHR(10) & CHR(13) & CHR(10) &"Many thanks go out to John Penfold <asp@asp-dev.com> and Tim Teal <tteal@tealnet.com> for the original source code and to all the people of Snitz Forums 2000 at http://forum.snitz.com for continued support of this product.', " strSql = strSql & "1, 0, 0, '20001119000000', '20001119000000', 0, '000.000.000.000', 1)" my_Conn.Execute strSql ChkDBInstall() strSql = "INSERT " & strTablePrefix & "TOTALS (COUNT_ID, P_COUNT, T_COUNT, U_COUNT) " strSql = strSql & "VALUES(1,1,1,1)" my_Conn.Execute strSql ChkDBInstall() sub ChkDBInstall() for counter = 0 to my_conn.Errors.Count -1 ConnErrorNumber = my_conn.Errors(counter).Number ConnErrorDescription = my_conn.Errors(counter).Description if ConnErrorNumber <> 0 then Err_Msg = "Error: " & ConnErrorNumber & "" Err_Msg = Err_Msg & "" & ConnErrorDescription & "" Err_Msg = Err_Msg & "strSql: " Err_Msg = Err_Msg & "" & strSql & "" Response.Write(Err_Msg) intCriticalErrors = intCriticalErrors + 1 end if next my_conn.Errors.Clear end sub %>