%
' Comersus BackOffice Lite
' e-commerce ASP Open Source
' Comersus Open Technologies LC
' 2005
' http://www.comersus.com
%>
<%
on error resume next
dim mySQL, conntemp, rstemp
pRunInstallationWizard = getSettingKey("pRunInstallationWizard")
pEncryptionMethod = getSettingKey("pEncryptionMethod")
if pRunInstallationWizard<>"-1" then
response.redirect "comersus_backoffice_message.asp?message="&Server.UrlEncode("Sorry, the Installation Wizard is disabled")
end if
pEncryptionPassword =request.form("pEncryptionPassword")
if pEncryptionPassword<>"" then
mySQL1="UPDATE settings SET settingValue='" &pEncryptionPassword& "' WHERE settingKey='pEncryptionPassword' AND idStore="&pIdStore
call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp")
' update admin profile with new password
pAdminPassword =request.form("pAdminPassword")
if pAdminPassword="" then pAdminPassword="123456"
pEncryptedAdminPassword =Cstr(EnCrypt(pAdminPassword, pEncryptionPassword))
' clear previous admins
mySQL1="DELETE FROM admins"
call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp")
' insert into admins
mySQL1="INSERT INTO admins (adminName, adminLevel, adminPassword, idStore) VALUES ('Admin',0,'" &pEncryptedAdminPassword& "'," &pIdStore& ")"
call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp")
end if
%>
Installation Wizard
Step 9 - Power Packs