<% @ Language=VBScript %> <% Option Explicit %> <% 'Set the response buffer to false as need to output to page to let the user know the process Response.Buffer = False 'Set the script time out high enough for really large database (7200 = 2 hours) Server.ScriptTimeout = 7200 %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2014 Web Wiz Ltd. All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM WEB WIZ LTD. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN WEB WIZ LTD. IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwiz.co.uk/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz Ltd, Unit B10, 9 Nimrod Way, East Dorset Trade Park, Ferndown, Dorset, BH21 7UH, England '** http://www.webwiz.co.uk '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** Dim strSetupType Dim strPageName Dim intBadWordLoopCounter 'Holds the bad word filter writing to db counter Dim blnErrorOccured 'Set to true if an error occurs Dim blnRead Dim blnPost Dim blnReply Dim blnEdit Dim blnDelete Dim blnPriority Dim blnPollCreate Dim blnVote Dim blnAttachments Dim blnImageUpload Dim blnCheckFirst Dim blnEvents Dim blnModerator Dim iaryGroupID Dim larryTopicID Dim lngTopicLoopCounter Dim lngPermissionsLoopCounter Dim lngStartThreadID Dim lngLastThreadID Dim intNoOfReplies Dim iarryForumID Dim intForumLoopCounter Dim rsCommon2 Dim lngPostsLoopCounter Dim sarryNoPosts Dim blnSetupDB 'Set default blnSetupDB = True 'Read in what we are setting up strSetupType = Request.QueryString("setup") 'Set the page name 'SQL Server new install If Request.QueryString("setup") = "SqlServerNew" Then strPageName = "Web Wiz Forums Microsoft SQL Server Database Setup Wizard" 'mySQL new install ElseIf Request.QueryString("setup") = "mySQLNew" Then strPageName = "Web Wiz Forums mySQL Database Setup Wizard" 'Access new install ElseIf Request.QueryString("setup") = "AccessNew"Then strPageName = "Web Wiz Forums Access Database Setup Wizard" 'SQL Server update ElseIf Request.QueryString("setup") = "SqlServer10Update" OR Request.QueryString("setup") = "SqlServer9Update" OR Request.QueryString("setup") = "SqlServer8Update" OR Request.QueryString("setup") = "SqlServer7Update" Then strPageName = "Web Wiz Forums Microsoft SQL Server Database Upgarde Wizard" 'mySQL update ElseIf Request.QueryString("setup") = "mySQL10Update" OR Request.QueryString("setup") = "mySQL9Update" OR Request.QueryString("setup") = "mySQL8Update" Then strPageName = "Web Wiz Forums mySQL Database Upgrade Wizard" 'Access update ElseIf Request.QueryString("setup") = "Access10Update" OR Request.QueryString("setup") = "Access9Update" OR Request.QueryString("setup") = "Access8Update" OR Request.QueryString("setup") = "Access7Update" Then strPageName = "Web Wiz Forums Access Database Upgrade Wizard" 'Else 11.x update ElseIf Request.QueryString("setup") = "11Update" Then strPageName = "Web Wiz Forums Database Upgrade Wizard" End If %> <% = strPageName %> <% Response.Write(vbCrLf & vbCrLf & "" & vbCrLf) '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>
Web Wiz Forums Homepage

<% = strPageName %>


The Web Wiz Forums Setup is now complete, please see below for important information regarding your installation.


Database Setup Wizard

Please be patient while the database is setup.

 

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("Forum Software by Web Wiz Forums® version " & strVersion & "") Response.Write("
Copyright ©2001-2014 Web Wiz Ltd.") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

<% 'SQL Server new install If Request.QueryString("setup") = "SqlServerNew" Then %><% 'mySQL new install ElseIf Request.QueryString("setup") = "mySQLNew" Then %><% 'Access new install ElseIf Request.QueryString("setup") = "AccessNew" OR Request.QueryString("setup") = "11Update" Then %><% 'SQL Server 10x update ElseIf Request.QueryString("setup") = "SqlServer10Update" Then %><% 'mySQL 10x update ElseIf Request.QueryString("setup") = "mySQL10Update" Then %><% 'Access 10x update ElseIf Request.QueryString("setup") = "Access10Update" Then %><% 'SQL Server 9x update ElseIf Request.QueryString("setup") = "SqlServer9Update" Then %><% 'mySQL 9x update ElseIf Request.QueryString("setup") = "mySQL9Update" Then %><% 'Access 9x update ElseIf Request.QueryString("setup") = "Access9Update" Then %><% 'SQL Server 8x update ElseIf Request.QueryString("setup") = "SqlServer8Update" Then %> <% 'mySQL 8x update ElseIf Request.QueryString("setup") = "mySQL8Update" Then %> <% 'Access 8x update ElseIf Request.QueryString("setup") = "Access8Update" Then %> <% 'SQL Server 7x update ElseIf Request.QueryString("setup") = "SqlServer7Update" Then %> <% 'Access 7x update ElseIf Request.QueryString("setup") = "Access7Update" Then %> <% End If %>