<%option explicit%> <% '**************************************************************************** ' Version 6.50 Jan 5, 2003 ' adds new administration options ' Must be run against database configured in shop$config.asp '***************************************************************************** shopcheckadmin "shopa_languagedelete.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_languagedelete.asp" AdminPageHeader GenerateDisplayHeader Getlang("LangLanguage") & " " & getlang("langcommondelete") GenerateDisplayBodyHeader if saction="" then DisplayForm else ProcessForm If Serror="" then DeleteLanguagefiles 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 DeleteLanguagefiles dim sql If langcount=1 then Serror="Cannot delete last language" exit sub end if Shopopendatabase dbc sql="delete from languages where lang='" & strlanguage & "'" dbc.execute sql shopclosedatabase dbc Shopwriteheader strlanguage & " " & " deleted" end sub %>