<%
'Copyright (C) 2004-2007 Canol Gökel
'
'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 (at your option) any later version.
'
'All copyright notices regarding iyzi Forum must remain intact in
'the scripts and in the outputted HTML.
'
'The "iyzi Forum" text with a link back to http://www.iyziforum.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 my web site at:
'http://www.iyziforum.com
'
'E-Mail: canol@canol.info


LocationName = "Setup"
Language = Request.QueryString("Language")
If Language = "" Then
	Language = Request.QueryString("Language")
End If
If Language = "" Then
	Language = "en"
End If
SettingsForumLanguage = Language
%>
<!--#INCLUDE FILE="inc_connection.asp"-->
<!--#INCLUDE FILE="inc_language.asp"-->
<!--#INCLUDE FILE="inc_date_functions.asp"-->
<%
SQL = "CREATE TABLE iyzi_" & AdditionalTableWord & "Categories"
SQL = SQL & "("
SQL = SQL & "CategoryID AutoIncrement"
SQL = SQL & ", Name TEXT(255)"
SQL = SQL & ", CategoryOrder INTEGER"
SQL = SQL & ", CONSTRAINT Index1 PRIMARY KEY (CategoryID)"
SQL = SQL & ")"
Connection.Execute(SQL)

SQL = "CREATE TABLE iyzi_" & AdditionalTableWord & "Files"
SQL = SQL & "("
SQL = SQL & "FileID AutoIncrement"
SQL = SQL & ", FileName TEXT(255)"
SQL = SQL & ", PostID INTEGER"
SQL = SQL & ", MemberID INTEGER"
SQL = SQL & ", CONSTRAINT Index1 PRIMARY KEY (FileID)"
SQL = SQL & ")"
Connection.Execute(SQL)

SQL = "CREATE TABLE iyzi_" & AdditionalTableWord & "Members"
SQL = SQL & "("
SQL = SQL & "MemberID AutoIncrement"
SQL = SQL & ", MemberName TEXT(255)"
SQL = SQL & ", CustomTitle TEXT(255)"
SQL = SQL & ", PersonalMessage TEXT(255)"
SQL = SQL & ", Password TEXT(64)"
SQL = SQL & ", SecretQuestion TEXT(255)"
SQL = SQL & ", SecretAnswer TEXT(64)"
SQL = SQL & ", Email TEXT(50)"
SQL = SQL & ", HideEmail TEXT(1)"
SQL = SQL & ", NameLastname TEXT(60)"
SQL = SQL & ", Location TEXT(255)"
SQL = SQL & ", Occupation TEXT(40)"
SQL = SQL & ", URLs NOTE"
SQL = SQL & ", Icq TEXT(15)"
SQL = SQL & ", LiveMessenger TEXT(50)"
SQL = SQL & ", YahooMessenger TEXT(50)"
SQL = SQL & ", Skype TEXT(50)"
SQL = SQL & ", GTalk TEXT(50)"
SQL = SQL & ", AIM TEXT(50)"
SQL = SQL & ", Signature NOTE"
SQL = SQL & ", AvatarLocation TEXT(92)"
SQL = SQL & ", AvatarHeight INTEGER"
SQL = SQL & ", AvatarWidth INTEGER"
SQL = SQL & ", LastHereOn DOUBLE"
SQL = SQL & ", RegisteredOn DOUBLE"
SQL = SQL & ", PostCount INTEGER"
SQL = SQL & ", IP TEXT(15)"
SQL = SQL & ", Status TEXT(1)"
SQL = SQL & ", ActivationCode TEXT(20)"
SQL = SQL & ", CONSTRAINT Index1 PRIMARY KEY (MemberID)"
SQL = SQL & ")"
Connection.Execute(SQL)

SQL = "CREATE TABLE iyzi_" & AdditionalTableWord & "Posts"
SQL = SQL & "("
SQL = SQL & "PostID AutoIncrement"
SQL = SQL & ", CategoryID INTEGER"
SQL = SQL & ", ParentPostID INTEGER"
SQL = SQL & ", Subject TEXT(255)"
SQL = SQL & ", Message NOTE"
SQL = SQL & ", MemberID INTEGER"
SQL = SQL & ", MemberName TEXT(255)"
SQL = SQL & ", FileIDs NOTE"
SQL = SQL & ", PostedOn DOUBLE"
SQL = SQL & ", MembersReadAllMessages NOTE"
SQL = SQL & ", ReplyCount INTEGER"
SQL = SQL & ", LastReplyDate DOUBLE"
SQL = SQL & ", LastReplyMember TEXT(255)"
SQL = SQL & ", Sticky TEXT(1)"
SQL = SQL & ", Status TEXT(1)"
SQL = SQL & ", ContainsPendingPost TEXT(1)"
SQL = SQL & ", IP TEXT(15)"
SQL = SQL & ", CONSTRAINT Index1 PRIMARY KEY (PostID)"
SQL = SQL & ")"
Connection.Execute(SQL)

SQL = "CREATE TABLE iyzi_" & AdditionalTableWord & "Settings"
SQL = SQL & "("
SQL = SQL & "SettingVariable TEXT(50) NOT NULL"
SQL = SQL & ", ValueNumber INTEGER"
SQL = SQL & ", ValueYesNo TEXT(1)"
SQL = SQL & ", ValueText TEXT(255)"
SQL = SQL & ", ValueNote NOTE"
SQL = SQL & ", CONSTRAINT Index1 PRIMARY KEY (SettingVariable)"
SQL = SQL & ")"
Connection.Execute(SQL)

SQL = "CREATE TABLE iyzi_" & AdditionalTableWord & "Smilies"
SQL = SQL & "("
SQL = SQL & "SmileyID AutoIncrement"
SQL = SQL & ", Code TEXT(40)"
SQL = SQL & ", ImageFile TEXT(255)"
SQL = SQL & ", CONSTRAINT Index1 PRIMARY KEY (SmileyID)"
SQL = SQL & ")"
Connection.Execute(SQL)
%>
<!--#INCLUDE FILE="setup_inc_settings.asp"-->
<%
Connection.Close
Set Connection = Nothing

Response.Redirect "setup.asp?Action=AccessDatabaseInstallationFinished&Language=" & Language
%>