home *** CD-ROM | disk | FTP | other *** search
- <%@ 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")
- %>
-
- <HTML>
- <HEAD>
- <TITLE></TITLE>
- </HEAD>
- <BODY BGCOLOR="#CCCCCC">
- <FORM NAME="userform">
- <TABLE>
- <TR>
- <TD><FONT SIZE=1 FACE="HELV,ARIAL">
- <% if (instr(extra,"Backup")) then %>
- <%
- if brw = "IE3" then
- buttonstr=L_BACKUP_TEXT
- else
- buttonstr=" " & L_BACKUP_TEXT & " "
- end if
- %>
-
- <INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.addItem();"><P>
- <%
- if brw = "IE3" then
- buttonstr=L_REMOVEBKUP_TEXT
- else
- buttonstr=" " & L_REMOVEBKUP_TEXT & " "
- end if
- %>
- <INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.delItem();"><P>
-
-
- <% else %>
-
- <%
-
-
-
- if (instr(extra,"up")) then
- if brw = "IE3" then
- buttonstr=L_UP_TEXT
- else
- buttonstr=" " & L_UP_TEXT & " "
- end if
- %><INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.moveItem(-1);"><P><%
-
- if brw = "IE3" then
- buttonstr=L_DOWN_TEXT
- else
- buttonstr=" " & L_DOWN_TEXT & " "
- end if
- %><INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.moveItem(1);"><P><%
- 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
-
- %>
-
- <INPUT TYPE="Button" VALUE="<%= buttonstr %>" onClick="parent.head.addItem();"><P>
- <INPUT TYPE="Button" VALUE="<%= L_REMOVE_TEXT %>" onClick="parent.head.delItem();"><P>
-
- <% end if %>
- </TD>
- </TR>
- </TABLE>
- </FORM>
- </BODY>
- </HTML>
-