<%option explicit%> <% '**************************************************************************** ' Version 5.00 Jan 19, 2003 ' adds new administration options ' Must be run against database configured in shop$config.asp '***************************************************************************** shopcheckadmin "shopa_languageadmin.asp" dim sAction dim currentURL dim dbc dim strfilename, strlanguage, strfilename2 dim languages, langcount dim force force="Yes" Readlanguages languages, langcount, force sAction=request("Action") If saction="" then saction=request("action.x") end if currentURL="shopa_languageload.asp" AdminPageHeader if saction="" then DisplayForm else ProcessForm If Serror="" then LoadLanguagefiles response.redirect "shoplanguageset.asp?LG=" & strlanguage end if If serror<>"" then displayform end if end if AdminPageTrailer Sub DisplayForm Dim i shopwriteheader Getlang("LangLanguage") shopwriteError sError response.write "

" Response.Write(tabledef) Response.write tablerow & tablecolumn & getlang("LangLanguage") & tablecolumnend & tablecolumn GenerateselectNV languages,strlanguage,"strlanguage",langcount, getlang("Langcommonselect") Response.write Tablecolumnend & TableRowEnd Response.Write(tabledefend) Response.Write("
") Response.Write("

") end sub Sub ProcessForm dim strname dim strvalue Dim key dim rc Serror="" strlanguage=request("strlanguage") If strlanguage="" or strlanguage=getlang("Langcommonselect") Then sError=serror & Getlang("LangLanguage") & " " & getlang("Langcustrequired") & "
" end if end sub ' Sub loadLanguagefiles dim sql Setsess ("Language"),strlanguage loadlanguagevariables Shopwriteheader strlanguage & " " & " loaded" end sub %>