<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Const L_NEWTYPE_TEXT = "New Type" Const L_ADD_TEXT="Add" Const L_REMOVE_TEXT="Remove" Const L_UP_TEXT="Up" Const L_DOWN_TEXT="Down" Const L_BACKUP_TEXT = "Backup" Const L_REMOVEBKUP_TEXT = "Delete" On Error Resume Next Dim extra, buttonstr, brw extra=Request.QueryString brw = Session("Browser") %>
<% if (instr(extra,"Backup")) then %> <% if brw = "IE3" then buttonstr=L_BACKUP_TEXT else buttonstr=" " & L_BACKUP_TEXT & " " end if %>

<% if brw = "IE3" then buttonstr=L_REMOVEBKUP_TEXT else buttonstr=" " & L_REMOVEBKUP_TEXT & " " end if %>

<% else %> <% if (instr(extra,"up")) then if brw = "IE3" then buttonstr=L_UP_TEXT else buttonstr=" " & L_UP_TEXT & " " end if %>

<% if brw = "IE3" then buttonstr=L_DOWN_TEXT else buttonstr=" " & L_DOWN_TEXT & " " end if %>

<% end if if (instr(extra,"NewType")) then buttonstr = L_NEWTYPE_TEXT else if brw = "IE3" then buttonstr=L_ADD_TEXT else buttonstr=" " & L_ADD_TEXT & " " end if end if %>

<% end if %>