<%option explicit%>
<%
'********************************************************
' VP-ASP 4.50 Display menus for updating configuration file
'********************************************************
Shopcheckadmin "shopa_config.asp"
dim srowcolor
dim count
dim msg
count=0
srowcolor=xtablerowcolor
Adminpageheader
msg=request("msg")
if msg<>"" then
response.write getconfig("xfont") & msg & ""
end if
BuildSearch "search",LangAdminSearch
FormatHeader
BuildConfig "main",LangMainConfiguration
BuildConfig "products",LangProduct01 & " 1"
BuildConfig "products1",LangProduct01 & " 2"
BuildConfig "customer",LangFormatCustomerInformation
BuildConfig "payment",LangAdminPayments
BuildConfig "shipping",LangAdminShipping
BuildConfig "int",LangAdminInternational
BuildConfig "stock",LangAdminStock
BuildConfig "option",LangadminOptionPackage
BuildConfig "aff",LangAff
BuildConfig "templates",LangProductTemplate
BuildConfig "buttons",LangAdminButton
BuildConfig "security",LangAdminSecurity
BuildConfig "advanced",LangAdminAdvanced
'BuildConfig1 "shopa_configclear.asp",LangAdminLoadConfiguration
BuildConfig1 "shopa_configlist.asp", LangAdminViewConfiguration
BuildConfig1 "shopa_editdisplay.asp?table=" & xconfigtable, LangCommonEdit
Response.write ""
Adminpagetrailer
'
Sub BuildConfig (itype, comment)
count=count+1
response.write ""
response.write "| " & count & ". | "
response.write ""
response.write "" & comment & ""
response.write " |
"
End Sub
Sub BuildConfig1 (url, comment)
count=count+1
response.write ""
response.write "| " & count & ". | "
response.write ""
response.write "" & comment & ""
response.write " |
"
End Sub
'
Sub BuildSearch(itype, comment)
Response.Write(""
%>
<%=LangAdminLoadConfiguration%>
<%
end sub
Sub FormatHeader
%>
|
<%=LangShopConfiguration%> |
<%
end sub
%>