<%
Sub phase3()

	On Error Resume Next

	objConn.close
	MySQLUser = Request.Form("L1")
	MySQLPassword = Request.Form("L2")
	
'### Connection string must be changed to reflect changes in config.asp in case of provider modification.

					strConn = "Driver={MySQL ODBC 3.51 Driver};server=" & MySQLServer
					strConn = strConn & ";uid=" & MySQLUser
					strConn = strConn & ";pwd=" & MySQLPassword
					strConn = strConn & ";database=" & MySQLDBName & ";"
	
'=========================================================================================================	
	
	Set objConn = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.Recordset")
	objConn.open strConn
	
	If objConn.Errors.Count <> 0 Then 
		Response.Write "<br><div align='center'><b><font color='red'>Errors Detected while connecting to SQL server.</font></b><br><br>"
		collectErrors
		showErrors
		Response.Write "<br><br><div align='center'><input type='button' class='buttons' value='<< Back' onclick=""history.go(-1);""></div>"
		Response.End
	End If
	
	Response.Write "<br><br><div align='center'><font size='5'><b>Creating Tables....</b></font></div><br>"
	Response.Write "<br><div align='center'><table border='0' class='display_table' width='500' cellspacing='1'>"
	
'=== Ads Table  =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Ads ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "adID VARCHAR (20) NOT NULL , "
	strSQL = strSQL & "catID int NOT NULL , "
	strSQL = strSQL & "scatID int NOT NULL  , "
	strSQL = strSQL & "userID int NOT NULL  , "
	strSQL = strSQL & "pdate datetime NOT NULL , "
	strSQL = strSQL & "edate datetime NOT NULL , "
	strSQL = strSQL & "nick VARCHAR (255) NULL , "
	strSQL = strSQL & "city VARCHAR (255) NULL , "
	strSQL = strSQL & "subject TEXT NULL , "
	strSQL = strSQL & "phone VARCHAR (30) NULL , "
	strSQL = strSQL & "web TEXT NULL , "
	strSQL = strSQL & "images TEXT NULL , "
	strSQL = strSQL & "webimage TEXT NULL , "
	strSQL = strSQL & "body text NOT NULL , "
	strSQL = strSQL & "status smallint NOT NULL , "
	strSQL = strSQL & "IP VARCHAR (25) NULL , "
	strSQL = strSQL & "adcounter int NULL , "
	strSQL = strSQL & "hotlist TINYINT NOT NULL , "
	strSQL = strSQL & "price VARCHAR (16) NULL , "
	strSQL = strSQL & "uopt1 VARCHAR (255) NULL , "
	strSQL = strSQL & "uopt2 VARCHAR (255) NULL , "
	strSQL = strSQL & "uopt3 VARCHAR (255) NULL , "
	strSQL = strSQL & "uopt4 VARCHAR (255) NULL , "
	strSQL = strSQL & "uopt5 VARCHAR (255) NULL , "
	strSQL = strSQL & "uopt6 VARCHAR (255) NULL , "
	strSQL = strSQL & "uopt7 VARCHAR (255) NULL , "
	strSQL = strSQL & "uopt8 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt1 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt2 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt3 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt4 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt5 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt6 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt7 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt8 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt9 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt10 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt11 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt12 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt13 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt14 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt15 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt16 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt17 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt18 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt19 VARCHAR (255) NULL , "
	strSQL = strSQL & "opt20 VARCHAR (255) NULL, "
	strSQL = strSQL & "cat3rdID int NOT NULL, "
	strSQL = strSQL & "userimagelimit int NULL, "
	strSQL = strSQL & "PRIMARY KEY (ID), "
	strSQL = strSQL & "KEY IDs(adID, catID, scatID, UserID), "
	strSQL = strSQL & "KEY adID(adID), "
	strSQL = strSQL & "KEY catID(catID), "
	strSQL = strSQL & "KEY scatID(scatID), "
	strSQL = strSQL & "KEY UserID(UserID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Ads")
	collectErrors
	
'=== Advert Table  =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Advert ( "
	strSQL = strSQL & "adv1 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv2 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv3 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv4 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv5 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv6 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv7 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv8 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv9 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv10 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv11 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv12 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv13 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv14 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv15 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv16 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv17 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv18 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv19 VARCHAR (255) NULL , "
	strSQL = strSQL & "adv20 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv21 TINYINT NOT NULL , "
	strSQL = strSQL & "adv22 TINYINT NOT NULL , "
	strSQL = strSQL & "adv23 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv24 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv25 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv26 VARCHAR (10) NULL , "
	strSQL = strSQL & "adv27 TINYINT NOT NULL, "
	strSQL = strSQL & "adv28 TINYINT NOT NULL, "
	strSQL = strSQL & "adv29 TINYINT NOT NULL)"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Advert")
	collectErrors

'=== Agent Table =============================================================================

	strSQL = "CREATE TABLE " & tablPfx & "Agent ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "userID int NOT NULL , "
	strSQL = strSQL & "keyword TEXT NULL , "
	strSQL = strSQL & "stype int NOT NULL , "
	strSQL = strSQL & "catID int NULL , "
	strSQL = strSQL & "scatID int NULL , "
	strSQL = strSQL & "catName TEXT NULL , "
	strSQL = strSQL & "scatName TEXT NULL , "
	strSQL = strSQL & "pdate datetime NULL , "
	strSQL = strSQL & "edate datetime NULL , "
	strSQL = strSQL & "email VARCHAR (255) NULL , "
	strSQL = strSQL & "unick VARCHAR (100) NULL , "
	strSQL = strSQL & "alertlist TEXT NULL, "
	strSQL = strSQL & "cat3rdID int NULL , "
	strSQL = strSQL & "cat3rdName TEXT NULL, "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Agent")
	collectErrors
	

'=== Banner Table =============================================================================	

	strSQL = "CREATE TABLE " & tablPfx & "Banner ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "status TINYINT NOT NULL , "
	strSQL = strSQL & "bname VARCHAR (255) NOT NULL , "
	strSQL = strSQL & "site VARCHAR (255) NULL , "
	strSQL = strSQL & "URL VARCHAR (255) NULL , "
	strSQL = strSQL & "altText VARCHAR (255) NULL , "
	strSQL = strSQL & "pdate datetime NOT NULL , "
	strSQL = strSQL & "edate datetime NULL , "
	strSQL = strSQL & "impr int NULL , "
	strSQL = strSQL & "email VARCHAR (255) NOT NULL, "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Banner")
	collectErrors


'=== Bannerstat Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Bannerstat ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "bname VARCHAR (255) NULL , "
	strSQL = strSQL & "adate datetime NULL , "
	strSQL = strSQL & "display int NULL , "
	strSQL = strSQL & "click int NULL , "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Bannerstat")
	collectErrors
	

'=== Cat Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Cat ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "catID int NOT NULL , "
	strSQL = strSQL & "catName TEXT NOT NULL , "
	strSQL = strSQL & "catDescr TEXT NOT NULL , "
	strSQL = strSQL & "icon VARCHAR (255) NOT NULL , "
	strSQL = strSQL & "ads int NULL , "
	strSQL = strSQL & "sortID int NULL , "
	strSQL = strSQL & "catOpt1 TEXT NULL , "
	strSQL = strSQL & "catOpt2 TEXT NULL , "
	strSQL = strSQL & "catOpt3 TEXT NULL , "
	strSQL = strSQL & "catOpt4 TEXT NULL , "
	strSQL = strSQL & "catOpt5 TEXT NULL , "
	strSQL = strSQL & "catOpt6 TEXT NULL , "
	strSQL = strSQL & "catOpt7 TEXT NULL , "
	strSQL = strSQL & "catOpt8 TEXT NULL , "
	strSQL = strSQL & "catOpt9 TEXT NULL , "
	strSQL = strSQL & "catOpt10 TEXT NULL , "
	strSQL = strSQL & "catOpt11 TEXT NULL , "
	strSQL = strSQL & "catOpt12 TEXT NULL , "
	strSQL = strSQL & "catOpt13 TEXT NULL , "
	strSQL = strSQL & "catOpt14 TEXT NULL , "
	strSQL = strSQL & "catOpt15 TEXT NULL , "
	strSQL = strSQL & "catOpt16 TEXT NULL , "
	strSQL = strSQL & "catOpt17 TEXT NULL , "
	strSQL = strSQL & "catOpt18 TEXT NULL , "
	strSQL = strSQL & "catOpt19 TEXT NULL , "
	strSQL = strSQL & "catOpt20 TEXT NULL, "
	strSQL = strSQL & "catFullDescr TEXT NULL, "
	strSQL = strSQL & "catMetaDescr TEXT NULL, "
	strSQL = strSQL & "catMetaKey TEXT NULL, "
	strSQL = strSQL & "catTitle TEXT NULL, "
	strSQL = strSQL & "catOptType1 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType2 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType3 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType4 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType5 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType6 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType7 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType8 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType9 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType10 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType11 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType12 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType13 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType14 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType15 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType16 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType17 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType18 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType19 VARCHAR (50) NULL , "
	strSQL = strSQL & "catOptType20 VARCHAR (50) NULL , "
    strSQL = strSQL & "catOptSearch1 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch2 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch3 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch4 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch5 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch6 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch7 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch8 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch9 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch10 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch11 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch12 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch13 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch14 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch15 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch16 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch17 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch18 TINYINT NULL , "
    strSQL = strSQL & "catOptSearch19 TINYINT NULL , "
	strSQL = strSQL & "catOptSearch20 TINYINT NULL , "
	strSQL = strSQL & "pricelevel VARCHAR (10) NULL , "
	strSQL = strSQL & "ftype VARCHAR (100) NULL , "
	strSQL = strSQL & "isfree TINYINT NULL , "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Cat")
	collectErrors
	
	
'=== Config Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Config ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "web_name TEXT NULL , "
	strSQL = strSQL & "web_site VARCHAR (255) NULL , "
	strSQL = strSQL & "admin_email VARCHAR (255) NULL , "
	strSQL = strSQL & "notify_email VARCHAR (255) NULL , "
	strSQL = strSQL & "mailHost VARCHAR (255) NULL , "
	strSQL = strSQL & "SMTPID VARCHAR (255) NULL , "
	strSQL = strSQL & "SMTPPAss VARCHAR (30) NULL , "
	strSQL = strSQL & "emailMethod VARCHAR (20) NOT NULL , "
	strSQL = strSQL & "verify_user TINYINT NOT NULL , "
	strSQL = strSQL & "moderate TINYINT NOT NULL , "
	strSQL = strSQL & "maxChr int NOT NULL , "
	strSQL = strSQL & "pp int NOT NULL , "
	strSQL = strSQL & "ap int NOT NULL , "
	strSQL = strSQL & "isnotfree TINYINT NOT NULL , "
	strSQL = strSQL & "listAlpha TINYINT NOT NULL , "
	strSQL = strSQL & "iwidth int NOT NULL , "
	strSQL = strSQL & "iheight int NOT NULL , "
	strSQL = strSQL & "isize int NOT NULL , "
	strSQL = strSQL & "largeimage TINYINT NOT NULL , "
	strSQL = strSQL & "catpos int NOT NULL , "
	strSQL = strSQL & "alertlimit int NOT NULL , "
	strSQL = strSQL & "onbehalf TINYINT NOT NULL , "
	strSQL = strSQL & "dstyle VARCHAR (100) NULL , "
	strSQL = strSQL & "uOpt0 VARCHAR (255) NULL , "
	strSQL = strSQL & "uOpt1 VARCHAR (255) NULL , "
	strSQL = strSQL & "uOpt2 VARCHAR (255) NULL , "
	strSQL = strSQL & "uOpt3 VARCHAR (255) NULL , "
	strSQL = strSQL & "uOpt4 VARCHAR (255) NULL , "
	strSQL = strSQL & "uOpt5 VARCHAR (255) NULL , "
	strSQL = strSQL & "uOpt6 VARCHAR (255) NULL , "
	strSQL = strSQL & "uOpt7 VARCHAR (255) NULL , "
	strSQL = strSQL & "admin_logon VARCHAR (50) NULL, "
	strSQL = strSQL & "detectIP TINYINT NOT NULL , "
	strSQL = strSQL & "siteMetaDescr TEXT NULL , "
	strSQL = strSQL & "siteMetaKey TEXT NULL , "
	strSQL = strSQL & "default_to_cat TINYINT NOT NULL , "
	strSQL = strSQL & "IsCache TINYINT NOT NULL , "
    strSQL = strSQL & "uOptType0 VARCHAR (255) NULL , "
    strSQL = strSQL & "uOptType1 VARCHAR (255) NULL , "
    strSQL = strSQL & "uOptType2 VARCHAR (255) NULL , "
    strSQL = strSQL & "uOptType3 VARCHAR (255) NULL , "
    strSQL = strSQL & "uOptType4 VARCHAR (255) NULL , "
    strSQL = strSQL & "uOptType5 VARCHAR (255) NULL , "
    strSQL = strSQL & "uOptType6 VARCHAR (255) NULL , "
    strSQL = strSQL & "uOptSearch0 TINYINT NULL , "
    strSQL = strSQL & "uOptSearch1 TINYINT NULL , "
    strSQL = strSQL & "uOptSearch2 TINYINT NULL , "
    strSQL = strSQL & "uOptSearch3 TINYINT NULL , "
    strSQL = strSQL & "uOptSearch4 TINYINT NULL , "
    strSQL = strSQL & "uOptSearch5 TINYINT NULL , "
    strSQL = strSQL & "uOptSearch6 TINYINT NULL , "
	strSQL = strSQL & "isWysiwyg TINYINT NULL , "
	strSQL = strSQL & "imagelimit int NULL , "
	strSQL = strSQL & "seclog TINYINT NULL , "
	strSQL = strSQL & "noexp VARCHAR (50) NULL , "
	strSQL = strSQL & "isevents TINYINT NULL , "
	strSQL = strSQL & "ispack TINYINT NULL , "
	strSQL = strSQL & "istn TINYINT NULL , "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Config")
	collectErrors


'=== Counter Table =============================================================================

	strSQL = "CREATE TABLE " & tablPfx & "Counter( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "hitcounter int NOT NULL, "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Counter")
	collectErrors

	
'=== Events Table =============================================================================

	strSQL = "CREATE TABLE " & tablPfx & "Events( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "ldefine varchar (255) NULL, "
	strSQL = strSQL & "eID int NULL, "
	strSQL = strSQL & "ldate datetime NULL, "
	strSQL = strSQL & "ltype varchar (50) NULL, "
	strSQL = strSQL & "IP varchar (50) NULL, "
	strSQL = strSQL & "ldescr text NULL, "
	strSQL = strSQL & "luser varchar (255) NULL, "
	strSQL = strSQL & "ladmin varchar (50) NULL, "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Events")
	collectErrors

	
'=== Fees Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Fees( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "pa1 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa2 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa3 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa4 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa5 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa6 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa7 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa8 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa9 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa10 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa11 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa12 int NULL , "
	strSQL = strSQL & "pa13 VARCHAR (60) NULL , "
	strSQL = strSQL & "pa14 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa15 TEXT NULL , "
	strSQL = strSQL & "pa16 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa17 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa18 int NULL , "
	strSQL = strSQL & "pa19 int NULL , "
	strSQL = strSQL & "pa20 VARCHAR (60) NULL , "
	strSQL = strSQL & "pa21 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa22 TEXT NULL , "
	strSQL = strSQL & "pa23 int NULL , "
	strSQL = strSQL & "pa24 VARCHAR (20) NULL , "
	strSQL = strSQL & "pa25 TEXT NULL , "
	strSQL = strSQL & "pa26 int NULL , "
	strSQL = strSQL & "pa27 int NULL , "
	strSQL = strSQL & "pa28 int NULL , "
	strSQL = strSQL & "pa29 int NULL , "
	strSQL = strSQL & "pa30 int NULL , "
	strSQL = strSQL & "sw1 VARCHAR (50) NULL , "
	strSQL = strSQL & "sw VARCHAR (50) NULL, "
	strSQL = strSQL & "ftype VARCHAR (100) NULL , "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Fees")
	collectErrors


'=== HitLog Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "HitLog( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "hitDate datetime NOT NULL , "
	strSQL = strSQL & "IP VARCHAR (30) NULL , "
	strSQL = strSQL & "referer VARCHAR (255) NULL, "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "HitLog")
	collectErrors


'=== Main Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Main ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "head_left1 VARCHAR (255) NULL , "
	strSQL = strSQL & "display_left1 int NOT NULL , "
	strSQL = strSQL & "top_left1 int NOT NULL , "
	strSQL = strSQL & "head_left2 VARCHAR (255) NULL , "
	strSQL = strSQL & "display_left2 int NOT NULL , "
	strSQL = strSQL & "top_left2 int NOT NULL , "
	strSQL = strSQL & "head_left3 VARCHAR (255) NULL , "
	strSQL = strSQL & "display_left3 int NOT NULL , "
	strSQL = strSQL & "top_left3 int NOT NULL , "
	strSQL = strSQL & "head_right1 VARCHAR (255) NULL , "
	strSQL = strSQL & "display_right1 int NOT NULL , "
	strSQL = strSQL & "top_right1 int NOT NULL , "
	strSQL = strSQL & "head_right2 VARCHAR (255) NULL , "
	strSQL = strSQL & "display_right2 int NOT NULL , "
	strSQL = strSQL & "top_right2 int NOT NULL , "
	strSQL = strSQL & "head_right3 VARCHAR (255) NULL , "
	strSQL = strSQL & "display_right3 int NOT NULL , "
	strSQL = strSQL & "top_right3 int NOT NULL , "
	strSQL = strSQL & "with_left int NOT NULL , "
	strSQL = strSQL & "with_right int NOT NULL , "
	strSQL = strSQL & "editor_pick TEXT NULL, "
	strSQL = strSQL & "events VARCHAR (255) NULL , "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Main")
	collectErrors


'=== Opt Table =============================================================================

	strSQL = "CREATE TABLE " & tablPfx & "Opt( "
	strSQL = strSQL & "optname VARCHAR (50) NULL , "
	strSQL = strSQL & "isglobal TINYINT NOT NULL , "
	strSQL = strSQL & "optorder SMALLINT NOT NULL)"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Opt")
	collectErrors


'=== OptTypes Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "OptTypes ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "optionName VARCHAR (50) NULL , "
	strSQL = strSQL & "optionValues longtext NULL , "
	strSQL = strSQL & "allowCustom TINYINT NOT NULL , "
	strSQL = strSQL & "customName VARCHAR (50) NULL , "
	strSQL = strSQL & "optBlank VARCHAR (50) NULL , "
	strSQL = strSQL & "isHidden TINYINT NOT NULL , "
	strSQL = strSQL & "isRange TINYINT NOT NULL , "
	strSQL = strSQL & "isSearchonly TINYINT NOT NULL , "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "OptTypes")
	collectErrors


'=== Pack Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Pack ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "packID int NOT NULL , "
	strSQL = strSQL & "sortID int NOT NULL , "
	strSQL = strSQL & "pname varchar (100) NULL , "
	strSQL = strSQL & "descr text NULL , "
	strSQL = strSQL & "price varchar (50) NULL , "
	strSQL = strSQL & "pdur int NOT NULL , "
	strSQL = strSQL & "adur int NOT NULL , "
	strSQL = strSQL & "isadexpire tinyint NULL , "
	strSQL = strSQL & "alimit int NOT NULL , "
	strSQL = strSQL & "isallowlock tinyint NULL , "
	strSQL = strSQL & "nimage int NOT NULL , "
	strSQL = strSQL & "isallowhot tinyint NULL , "
	strSQL = strSQL & "isallowtrial tinyint NULL , "
	strSQL = strSQL & "id2co int NOT NULL , "
	strSQL = strSQL & "formatname text NULL , "
	strSQL = strSQL & "isoffline tinyint NULL , "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Pack")
	collectErrors	

'=== Plog Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Plog( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "pdate datetime NULL , "
	strSQL = strSQL & "rstat VARCHAR (255) NULL , "
	strSQL = strSQL & "pstat VARCHAR (255) NULL , "
	strSQL = strSQL & "txID VARCHAR (255) NULL , "
	strSQL = strSQL & "txtype VARCHAR (255) NULL , "
	strSQL = strSQL & "payment VARCHAR (255) NULL , "
	strSQL = strSQL & "email VARCHAR (60) NULL , "
	strSQL = strSQL & "userID VARCHAR (10) NULL , "
	strSQL = strSQL & "iname VARCHAR (255) NULL , "
	strSQL = strSQL & "fname VARCHAR (255) NULL , "
	strSQL = strSQL & "lname VARCHAR (255) NULL , "
	strSQL = strSQL & "IP VARCHAR (30) NULL , "
	strSQL = strSQL & "merchant VARCHAR (255) NULL , "
	strSQL = strSQL & "inote text NULL, "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Plog")
	collectErrors
	
	
'=== Reply Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Reply ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "rdate datetime NULL , "
	strSQL = strSQL & "senderName VARCHAR (255) NULL , "
	strSQL = strSQL & "senderEmail VARCHAR (100) NULL , "
	strSQL = strSQL & "userID int NULL , "
	strSQL = strSQL & "message TEXT NULL , "
	strSQL = strSQL & "adName TEXT , "
	strSQL = strSQL & "adID VARCHAR (50) , "
	strSQL = strSQL & "flag int , "
	strSQL = strSQL & "IP VARCHAR (50) , "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Reply")
	collectErrors


'=== Scat Table =============================================================================	
	
	strSQL = "CREATE TABLE " & tablPfx & "Scat( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "sCatID int NOT NULL , "
	strSQL = strSQL & "scatName TEXT NOT NULL , "
	strSQL = strSQL & "ads int NULL , "
	strSQL = strSQL & "catID int NOT NULL , "
	strSQL = strSQL & "sortID int NULL, "
	strSQL = strSQL & "scatFullDescr TEXT NULL, "
	strSQL = strSQL & "scatMetaDescr TEXT NULL, "
	strSQL = strSQL & "scatMetaKey TEXT NULL, "
	strSQL = strSQL & "scatTitle TEXT NULL, "
	strSQL = strSQL & "ftype VARCHAR (100) NULL , "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Scat")
	collectErrors
	
	
'=== Temp Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Temp ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "tempimg  VARCHAR (255) NOT NULL , "
	strSQL = strSQL & "tdate datetime NOT NULL, "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Temp")
	collectErrors


'=== Template Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablPfx & "Template ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "tname TEXT NULL , "
	strSQL = strSQL & "title TEXT NULL , "
	strSQL = strSQL & "subject TEXT NULL , "
	strSQL = strSQL & "body LONGTEXT NULL , "
	strSQL = strSQL & "type int NULL, "
	strSQL = strSQL & "PRIMARY KEY (ID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "Template")
	collectErrors
	
	
'=== User Table =============================================================================
	
	strSQL = "CREATE TABLE " & tablUPfx & "User ( "
	strSQL = strSQL & "ID int NOT NULL auto_increment, "
	strSQL = strSQL & "userID MEDIUMINT NOT NULL , "
	strSQL = strSQL & "email VARCHAR (255) NOT NULL , "
	strSQL = strSQL & "nick TEXT NOT NULL , "
	strSQL = strSQL & "pass TEXT NOT NULL , "
	strSQL = strSQL & "city TEXT NULL , "
	strSQL = strSQL & "moder TINYINT NOT NULL , "
	strSQL = strSQL & "cdate datetime NOT NULL , "
	strSQL = strSQL & "status int NOT NULL , "
	strSQL = strSQL & "acode VARCHAR (30) NULL , "
	strSQL = strSQL & "ads int NOT NULL , "
	strSQL = strSQL & "udate datetime NULL , "
	strSQL = strSQL & "lastLogon datetime NULL , "
	strSQL = strSQL & "elist TINYINT NOT NULL , "
	strSQL = strSQL & "credits VARCHAR (30) NULL , "
	strSQL = strSQL & "opt1 TEXT NULL , "
	strSQL = strSQL & "opt2 TEXT NULL , "
	strSQL = strSQL & "opt3 TEXT NULL , "
	strSQL = strSQL & "opt4 TEXT NULL , "
	strSQL = strSQL & "opt5 TEXT NULL , "
	strSQL = strSQL & "opt6 TEXT NULL , "
	strSQL = strSQL & "opt7 TEXT NULL , "
	strSQL = strSQL & "opt8 TEXT NULL , "
	strSQL = strSQL & "favor TEXT NULL, "
	strSQL = strSQL & "IP VARCHAR (20) NOT NULL, "
	strSQL = strSQL & "paypack int NULL , "
	strSQL = strSQL & "pexpire datetime NULL , "
	strSQL = strSQL & "ishold TINYINT NULL , "
	strSQL = strSQL & "PRIMARY KEY (ID), "
	strSQL = strSQL & "KEY UserID(UserID))"
	objConn.Execute(strSQL)
	Call tableRet(objConn.Errors.Count, "User")
	collectErrors
	

	Application("cl_marquee" & strUnique) = Empty
	Response.Write "</table></div>"
	
	If not strError = Empty then
		Response.Write "<br><br><div align='center'><b><font color='red'>Errors Detected while creating tables.</font></b><br><br>"
		showErrors
		Response.Write "<br><br><div align='center'><input type='button' class='buttons' value='<< Back' onclick=""history.go(-1);""></div>"
		Response.Write "<br><div align='center'>If you choose to Continue with buttons bellow make sure listed errors will not affect further setup.</div>"
	End If
%>

	<form name="phase3" method="post" action="!mysql_setup.asp">
	<input type="hidden" value="phase4a" name="setup">
	<div align="center"><br>
    <br>
    <input type="submit" value="Contunue &gt;&gt;" name="B1" class="buttons" style="background-color: #FF9933"></div>
	</form>
<br><br>
<%
	On error Goto 0
End Sub
%>