<%option explicit%>
<%
'********************************************************
' VP-ASP 6.50 Display menus for updating configuration file
' April 20, 2003
' Nov 22, 2006 Hk updated for RMA
'********************************************************
Shopcheckadmin "shopa_config.asp"
setsess "headermenu", "setup"
if request("tab") > "" then
setsess "configtab", lcase(request("tab"))
end if
if getsess("configtab") = "" then
setsess "configtab", "setup"
end if
dim count
dim msg
count=0
Adminpageheader
msg=request("msg")
%>
 |
<%if getconfig("xnewconfigmode") = "Yes" then
if getsess("configtab") = "settings" then%>
<%shopwriteheader "Cart Settings"%> |
<%else%>
<%shopwriteheader "Cart Setup"%> |
<%end if%>
<%else%>
<%shopwriteheader "Shop Configuration"%> |
<%end if%>
|
<%BuildSearch "search",getlang("langAdminSearch")%> |
<%if msg<>"" then
shopwriteerror msg
end if %>
<%
FormatHeader
if getconfig("xnewconfigmode") = "Yes" then
if getsess("configtab") = "settings" then
setsess "configtab", "settings"
BuildConfigTitle "Orders"
BuildConfigNew "orders","Managing your Orders"
BuildConfigNew "discounts","Discounts"
BuildConfigNew "taxes","Taxes"
BuildSpacerRow
BuildConfigTitle "Payments"
BuildConfigNew "credit","Credit Cards"
BuildConfigNew "otherpay","Other Payments"
BuildSpacerRow
BuildConfigTitle "Delivery & Shipping"
BuildConfigNew "shipping","Shipping"
BuildConfigNew "downloads","Secure Downloads"
BuildSpacerRow
BuildConfigTitle "Email & SMS"
BuildConfigNew "email","Email Set Up"
BuildConfigNew "emailcustomers","Emailing Customers"
BuildConfigNew "emailmerchant","Emailing Merchant"
BuildConfigNew "smsmerchant","SMSing Customers"
BuildConfigNew "emailaff","Emailing Affiliates"
BuildConfigNew "emailsupp","Emailing Suppliers"
BuildSpacerRow
BuildConfigTitle "Customer Settings & Options"
BuildConfigNew "customers","Customer Options"
BuildSpacerRow
BuildConfigTitle "Supplier Settings"
BuildConfigNew "suppliers","Supplier Options"
BuildSpacerRow
BuildConfigTitle "Affiliate Settings"
BuildConfigNew "affiliates","Affiliate Options"
BuildSpacerRow
else
setsess "configtab", "setup"
BuildConfigTitle "Setting Up Your System"
BuildConfigNew "Details","Site Details"
BuildConfigNew "Setup","Site Setup"
BuildConfigNew "System","System Environment & Database Settings"
BuildConfigNew "Sessions","Session Variables & Use Of Cookies"
BuildConfigNew "Admin","Setting up the administration options for your cart"
BuildSpacerRow
BuildConfigTitle "Security Settings"
BuildConfigNew "security","Security"
BuildSpacerRow
BuildConfigTitle "Your Business & International Settings"
BuildConfigNew1 "shopa_editmycompany.asp", "Business Details"
BuildConfigNew "international","International Settings"
BuildSpacerRow
BuildConfigTitle "Configure Your Shopping Cart"
BuildConfigNew "configure","Configuration Settings"
BuildSpacerRow
BuildConfigTitle "Additional Cart Options"
BuildConfigNew "billing","Recurring Billing"
BuildConfigNew "coupons","Discount Coupons"
BuildConfigNew "giftcerts","Gift Certificates"
BuildConfigNew "projects","Projects"
BuildConfigNew "pinnumbers","Pin Numbers"
BuildConfigNew "wishlists","Wish Lists"
BuildConfigNew "giftreg","Gift Registry"
BuildConfigNew "rewards","Loyalty Rewards"
BuildConfigNew "tracking","Order Tracking"
BuildConfigNew "rma",getlang("langrma")
BuildSpacerRow
BuildConfigTitle "Category Options"
BuildConfigNew "categories","Category Options"
BuildSpacerRow
BuildConfigTitle "Product & Features Options"
BuildConfigNew "products","Product Options"
BuildConfigNew "crossselling","Cross Selling"
BuildConfigNew "stock","Stock Control"
BuildConfigNew "prodadmin","Product Administration"
BuildConfigNew "prodfeat","Product Features"
BuildConfigNew "prodrat","Product Ratings"
BuildSpacerRow
BuildConfigTitle "Content & Navigation Options"
BuildConfigNew "searching","Searching"
BuildConfigNew "static","Producing Static HTML"
BuildConfigNew "button","Buttons & Images"
BuildSpacerRow
end if
else
BuildConfig "main",getlang("langMainConfiguration")
BuildConfig1 "shopa_editmycompany.asp",getlang("langcustcompany")
BuildConfig "products",getlang("langProduct01") & " 1"
BuildConfig "products1",getlang("langProduct01") & " 2"
BuildConfig "customer",getlang("langFormatCustomerInformation")
BuildConfig "payment",getlang("langAdminPayments")
BuildConfig "shipping",getlang("langAdminShipping")
BuildConfig "adminusers",getlang("langadminusers")
BuildConfig "int",getlang("langAdminInternational")
BuildConfig "stock",getlang("langAdminStock")
BuildConfig "option",getlang("langadminOptionPackage")
BuildConfig "aff",getlang("langAff")
BuildConfig1 "shopa_editdisplay.asp?table=templates", getlang("langproducttemplate")
'BuildConfig "templates",getlang("langProductTemplate")
BuildConfig "buttons",getlang("langAdminButton")
BuildConfig "security",getlang("langAdminSecurity")
BuildConfig "advanced",getlang("langAdminAdvanced")
BuildConfig1 "shopa_languageadmin.asp",getlang("langlanguage")
'BuildConfig1 "shopa_configclear.asp",getlang("langAdminLoadConfiguration")
BuildConfig1 "shopa_configlist.asp", getlang("langAdminViewConfiguration")
BuildConfig "rma", getlang("langrma")
'BuildConfig1 "shopa_editdisplay.asp?table=" & xconfigtable, getlang("langCommonEdit")
end if
Response.write ""
GenerateDisplayBodyFooter
gethelp
Adminpagetrailer
'
Sub BuildConfig (itype, comment)
count=count+1
response.write TableRow
response.write "" & count & ". | "
Response.write ""
response.write "" & comment & ""
response.write tablecolumnend
Response.write tablerowend
end sub
Sub BuildConfigNew (itype, comment)
response.write TableRow
response.write " | | "
Response.write ""
response.write "" & comment & ""
response.write tablecolumnend
Response.write tablerowend
end sub
Sub BuildConfigTitle (titlename)
count=count+1
response.write TableRow
response.write " | " & count & ". | "
Response.write ""
response.write titlename
response.write "" & tablecolumnend
Response.write tablerowend
end sub
Sub BuildConfig1 (url, comment)
count=count+1
response.write TableRow
response.write " | " & count & ". | "
Response.write ""
response.write "" & comment & ""
response.write tablecolumnend
Response.write tablerowend
End Sub
Sub BuildConfigNew1 (url, comment)
response.write TableRow
response.write " | | "
Response.write ""
response.write "" & comment & ""
response.write tablecolumnend
Response.write tablerowend
End Sub
'
Sub BuildSearch(itype, comment)
%>
<%
end sub
Sub FormatHeader
GenerateDisplayHeader ""
'GenerateDisplayHeaderFlat
GenerateDisplayBodyHeader
Response.write ""
'Response.write reportheadrow
'Response.write "| " & getlang("langShopConfiguration") & " | "
'Response.write ReportRowEnd
end sub
Sub BuildSpacerRow
response.write "| | "
End Sub
%>
|