%
' 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")
if pRunInstallationWizard<>"-1" then
response.redirect "comersus_backoffice_message.asp?message="&Server.UrlEncode("Sorry, the Installation Wizard is disabled")
end if
' save settings into db
for each field in request.form
fieldValue = request.form(field)
if fieldValue<>"" and field<>"Submit" then
mySQL1="UPDATE settings SET settingValue='" &fieldValue& "' WHERE settingKey='" &field& "' AND idStore="&pIdStore
call updateDatabase(mySQL1, rstemp, "comersus_backoffice_install.asp")
end if
next
pEncryptionPassword="AJALWIYSJAH"&randomNumber(99999)&"ASQQTYAL"&randomNumber(999999)
%>
Installation Wizard
Step 8 - Security