<%option explicit%> <% '************************************************* ' VP-ASP Version 6.50 ' Feb 7, 2004 ' Delete set-up for shopa_editdisplay.asp '*************************************************** ShopCheckadmin "" dim returnURL dim Delete returnURL=GetSess("CurrentURL") Delete=GetSess("SpecialFunction") If Delete="Delete" then Delete="Null" else Delete=getlang("LangCommonDelete") end if responseredirect returnURL & "?SpecialFunction=" & Delete %>