<%option explicit%> <% '**************************************************************************** ' Version 6.50 March 29, 2004 ' adds new administration options ' Must be run against database configured in shop$config.asp '***************************************************************************** shopcheckadmin "shopa_languageload.asp" dim sAction dim currentURL dim dbc dim strfilename, strlanguage, strfilename2 dim languages, langcount dim force, langname force="Yes" Readlanguages languages, langcount, force sAction=request("Action") If saction="" then saction=request("action.x") end if currentURL="shopa_languageload.asp" AdminPageHeader GenerateDisplayHeader Getlang("LangLanguage") GenerateDisplayBodyHeader if saction="" then DisplayForm else ProcessForm If Serror="" then LoadLanguagefiles langname="language_" & strlanguage setconfig langname,"" ' reset session language if needed 'responseredirect "shoplanguageset.asp?LG=" & strlanguage end if If serror<>"" then displayform end if end if GenerateDisplayBodyFooter AdminPageTrailer Sub DisplayForm Dim i if serror > "" then response.write "" shopwriteError sError response.write "" end if 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("
") 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, langname Setsess ("Language"),strlanguage loadlanguagevariables Shopwriteheader strlanguage & " " & " loaded" end sub %>