home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Komunik / sambar / sambar51p.exe / sysuser / webmail / mlistsho.stm < prev    next >
Encoding:
Text File  |  2001-10-10  |  1.7 KB  |  63 lines
  1. <RCif RCEloggedin ! true>
  2.         <HTML>
  3.         <HEAD>
  4.         <META HTTP-EQUIV="REFRESH" CONTENT="1; URL=index.htm">
  5.         </HEAD>
  6.         <BODY>
  7.         <FONT SIZE=+2 COLOR=#ff0000><B>Mail user not logged in!</B></FONT>
  8.         </BODY>
  9.         </HTML>
  10. <RCexit>
  11. <RCendif>
  12.  
  13. <RCXmailverify>
  14. <HTML>
  15. <HEAD>
  16. <META HTTP-EQUIV="Pragma" CONTENT="no-cache">
  17. <META HTTP-EQUIV="Expires" CONTENT="-1">
  18. <LINK REL="StyleSheet" HREF="<RCShome>/default.css" type="text/css">
  19.  
  20. <TITLE>Mailing List User Maintenance</TITLE>
  21. </HEAD>
  22. <BODY BGCOLOR="#ffffff" LINK="#0000ff" VLINK="#0000ff" ALINK="#0000ff" TEXT="#000000">
  23. <SCRIPT language="JavaScript">
  24. <!--
  25. function Form_Validator(theForm)
  26. {
  27.     if (theForm.user.value == "")
  28.     {
  29.         alert("Please enter a value for the \"e-mail\" field.");
  30.         theForm.user.focus();
  31.         return (false);
  32.     }
  33. }
  34. function confirmDelete()
  35. {
  36.     return confirm("Delete selected mailing list user?");
  37. }
  38. //-->
  39. </SCRIPT>
  40.  
  41. <RCinclude RCShome/actions.stm>
  42.  
  43.     <FONT SIZE=+2 COLOR=#000080><B><RC$name></B></FONT> 
  44.     <FONT SIZE=+1><B>Mailing List</B></FONT>
  45.     <BR>
  46.     <BLOCKQUOTE>
  47.     <FORM METHOD="POST" ACTION="/session/mlistadd" onsubmit="return Form_Validator(this)">
  48.     <INPUT TYPE="hidden" NAME="RCpage" VALUE="<RCShome>/mlistsho.stm">
  49.     <INPUT TYPE="hidden" NAME="name" VALUE="<RC$name>">
  50.     <INPUT TYPE="submit" VALUE="Add e-mail address">
  51.     <RCif RCEusername ~ *@*>
  52.     <INPUT TYPE="text" NAME="user" VALUE="<RCEusername>" SIZE=40 MAXLENGTH=80>
  53.     <RCelse>
  54.     <INPUT TYPE="text" NAME="user" VALUE="<RCEusername>@<RCEmailname>" SIZE=40 MAXLENGTH=80>
  55.     <RCendif>
  56.     </FORM>
  57.     </BLOCKQUOTE>
  58.     <BR>
  59.     <RC$ref = RCShome/mlistsho.stm>
  60.     <RCXmlistshow name=RC$name refresh=RC$ref>
  61. </BODY>
  62. </HTML>
  63.