")
Response.Write("| Upgrading: | ")
Response.Write("Starting transferring Member List to ALLOWED_MEMBERS table |
")
intTransferErrors = 0
strSql = "SELECT FORUM_ID,F_USERLIST FROM " & strTablePrefix & "FORUM "
on error resume next
my_Conn.Errors.Clear
set rsForum = my_Conn.execute(strSql)
UpdateErrorCode = UpdateErrorCheck()
on error goto 0
if UpdateErrorCode = 0 then
Response.Write("| Upgraded: | Table opened |
")
else
Response.Write("| Critical error: | Error while getting Memberlist for transfer |
")
intCriticalErrors = intCriticalErrors + 1
intTransferErrors = 1
end if
if intTransferErrors = 0 then
do while not rsForum.EOF
if Instr(rsForum("F_USERLIST"),",") > 0 then
Users = split(rsForum("F_USERLIST"),",")
for count = Lbound(Users) to Ubound(Users)
strSql = "INSERT INTO " & strMemberTablePrefix & "ALLOWED_MEMBERS ("
strSql = strSql & " MEMBER_ID, FORUM_ID) VALUES ( "& Users(count) & ", " & rsForum("FORUM_ID") & ")"
on error resume next
my_Conn.Errors.Clear
my_Conn.Execute (strSql)
UpdateErrorCode = UpdateErrorCheck()
on error goto 0
if UpdateErrorCode = 0 then
Response.Write("| Upgraded: | Added default values for new fields in CONFIG table |
")
elseif UpdateErrorCode = 2 then
Response.Write("| Critical error: | Error while adding record ( " & Users(count) & ", " & rsForum("FORUM_ID") & ") to ALLOWED_MEMBER table! |
")
intCriticalErrors = intCriticalErrors + 1
infTransferErrors = 1
end if
next
end if
rsForum.movenext
loop
end if
on error resume next
rsForum.close
set rsForum = nothing
on error goto 0
if intTransferErrors = 0 then
Response.Write("| Upgrading: | ")
Response.Write("Finished transferring Member List to ALLOWED_MEMBERS table |
")
else
Response.Write("| Upgrading: | ")
Response.Write("Transferring of Member List to ALLOWED_MEMBERS table was NOT succesfull ! |
")
end if
'## Forum_SQL
strSql = "UPDATE " & strTablePrefix & "CONFIG "
strSql = strSql & " SET C_STRVERSION = '" & strNewVersion & "'"
strSql = strSql & " WHERE CONFIG_ID = " & 1
on error resume next
my_Conn.Errors.Clear
my_Conn.Execute (strSql)
Response.Write("")
UpdateErrorCode = UpdateErrorCheck()
on error goto 0
if UpdateErrorCode = 0 then
Response.Write("| Upgraded: | Added default values for new fields in CONFIG table |
")
elseif UpdateErrorCode = 2 then
Response.Write("| Critical error: | Can't add default values for new fields in CONFIG table! |
")
intCriticalErrors = intCriticalErrors + 1
else
Response.Write("| Critical error: code: | " & UpdateErrorCode & " while trying to add default values to the CONFIG table |
")
intCriticalErrors = intCriticalErrors + 1
end if
Response.Write("
")
Response.Flush
end if
if OldVersion = 5 then
'## just update the version info...
strSql = "UPDATE " & strTablePrefix & "CONFIG "
strSql = strSql & " SET C_STRVERSION = '" & strNewVersion & "'"
strSql = strSql & " WHERE CONFIG_ID = " & 1
on error resume next
my_Conn.Errors.Clear
my_Conn.Execute (strSql)
Response.Write("")
UpdateErrorCode = UpdateErrorCheck()
on error goto 0
if UpdateErrorCode = 0 then
Response.Write("| Upgraded: | Added default values for new fields in CONFIG table |
")
elseif UpdateErrorCode = 2 then
Response.Write("| Critical error: | Can't add default values for new fields in CONFIG table! |
")
intCriticalErrors = intCriticalErrors + 1
else
Response.Write("| Critical error: code: | " & UpdateErrorCode & " while trying to add default values to the CONFIG table |
")
intCriticalErrors = intCriticalErrors + 1
end if
Response.Write("
")
Response.Flush
end if
my_Conn.Close
set my_Conn = nothing
if intCriticalErrors = 0 then
%>
The Upgrade has been completed without errors !
<%
else
%>
The Upgrade has NOT been completed without errors !
There were <%=intCriticalErrors %> Critical Errors...
<%
if intWarnings > 0 then
%>
There were <%=intWarnings %> noncritical errors...
<%
end if
end if
if intCriticalErrors > 0 then
%>
Click here to retry....
<%
end if
%>
Click here to return to the forum....
<%
Application(strCookieURL & "ConfigLoaded")= ""
else
Response.Redirect "setup_logon.asp"
end if
elseif ResponseCode = 5 then '## install a new database
if strDBType = "access" then '## install is not available for Access !
Response.Redirect "setup.asp"
else
%>
Installation of forum-tables in the database.