<%option explicit%>
<%
'********************************************************
' VP-ASP 5.00 Display menus for updating configuration file
' Jan 17, 2003
'********************************************************
Shopcheckadmin "shopa_config.asp"
dim count
dim msg
count=0
Adminpageheader
msg=request("msg")
if msg<>"" then
shopwriteerror msg
end if
BuildSearch "search",getlang("langAdminSearch")
FormatHeader
BuildConfig "main",getlang("langMainConfiguration")
BuildConfig "products",getlang("langProduct01") & " 1"
BuildConfig "products1",getlang("langProduct01") & " 2"
BuildConfig "customer",getlang("langFormatCustomerInformation")
BuildConfig "payment",getlang("langAdminPayments")
BuildConfig "shipping",getlang("langAdminShipping")
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")
BuildConfig1 "shopa_editdisplay.asp?table=" & xconfigtable, getlang("langCommonEdit")
Response.write ""
Adminpagetrailer
'
Sub BuildConfig (itype, comment)
count=count+1
response.write TableRow
response.write "| " & count & ". | "
Response.write tablecolumn
response.write "" & comment & ""
response.write tablecolumnend
Response.write tablerowend
end sub
Sub BuildConfig1 (url, comment)
count=count+1
response.write TableRow
response.write "" & count & ". | "
Response.write tablecolumn
response.write "" & comment & ""
response.write tablecolumnend
Response.write tablerowend
End Sub
'
Sub BuildSearch(itype, comment)
Response.Write(""
%>
<%
end sub
Sub FormatHeader
Response.write tabledef
Response.write reportheadrow
Response.write "" & getlang("langShopConfiguration") & " | "
Response.write ReportRowEnd
end sub
%>