home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ims.cab / smslist.asp < prev    next >
Text File  |  1997-10-12  |  938b  |  46 lines
  1. <%@ LANGUAGE=VBScript %>
  2.  
  3. <% 
  4. Const L_ADD_TEXT="Add"
  5. Const L_REMOVE_TEXT="Remove"
  6. Const L_UP_TEXT="Up"
  7. Const L_DOWN_TEXT="Down"
  8.  
  9. extra=Request.QueryString
  10.  
  11. %>
  12.  
  13. <HTML>
  14. <HEAD>
  15.     <TITLE></TITLE>
  16. </HEAD>
  17. <BODY BGCOLOR="#CCCCCC">
  18. <FORM NAME="userform">
  19. <TABLE>
  20. <TR>
  21. <TD><FONT SIZE=1 FACE="Helv">
  22.  
  23. <% if (instr(extra,"up")) then %>
  24.         <INPUT TYPE="Button" VALUE="<%= L_UP_TEXT %>" onClick="parent.head.moveItem(-1);"><P>
  25.         <INPUT TYPE="Button" VALUE="<%= L_DOWN_TEXT %>" onClick="parent.head.moveItem(1);"><P>
  26. <% end if %>
  27.  
  28. <% 
  29. if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then
  30.     addbuttonstr=L_ADD_TEXT
  31. else
  32.     addbuttonstr="     " & L_ADD_TEXT & "    "
  33. end if
  34.  
  35.  %>
  36.     <INPUT TYPE="Button" VALUE="<%= addbuttonstr %>" onClick="parent.head.addItem();"><P>
  37.     <INPUT TYPE="Button" VALUE="<%= L_REMOVE_TEXT %>" onClick="parent.head.delItem();"><P>
  38.  
  39.  
  40. </TD>
  41. </TR>
  42. </TABLE>
  43. </FORM>
  44. </BODY>
  45. </HTML>
  46.