home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 August / PCWorld_2001-08_cd.bin / Komunikace / sambar / _setup.1 / mlistsho.stm < prev    next >
Text File  |  2000-12-20  |  2KB  |  68 lines
  1. <RCXmailverify>
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Mailing List User Maintenance</TITLE>
  5. </HEAD>
  6. <BODY BGCOLOR="#ffffff" LINK="#0000ff" VLINK="#0000ff" ALINK="#0000ff" TEXT="#000000">
  7. <RCif RCEloggedin ! true>
  8. <FONT SIZE=+2 COLOR=#ff0000><B>Mail user not logged in!</B></FONT>
  9. </BODY></HTML>
  10. <RCexit>
  11. <RCendif>
  12. <SCRIPT language="JavaScript">
  13. <!--
  14. function Form_Validator(theForm)
  15. {
  16.     if (theForm.user.value == "")
  17.     {
  18.         alert("Please enter a value for the \"e-mail\" field.");
  19.         theForm.user.focus();
  20.         return (false);
  21.     }
  22. }
  23. function confirmDelete()
  24. {
  25.     return confirm("Delete selected mailing list user?");
  26. }
  27. //-->
  28. </SCRIPT>
  29. <TABLE WIDTH=100% border=0 cellspacing=4>
  30. <TR>
  31. <TD colspan=2 align="right">
  32. <B>
  33. <FONT SIZE=+3>S</FONT>AMBAR
  34. <FONT SIZE=+3>S</FONT>ERVER
  35. <FONT SIZE=+3>W</FONT>EBMAIL
  36. </TD>
  37. </TR>
  38. <TR valign=top>
  39. <TD>
  40.     <RCinclude RCShome/actions.stm>
  41. </TD>
  42. <TD WIDTH=80% class="addrlist" valign="top">
  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. </TD>
  62. </TR>
  63. </TABLE>
  64. <P>
  65. <A HREF="/" TARGET=_top><IMG border=0 SRC="/sysimage/system/powerby.gif"></A>
  66. </BODY>
  67. </HTML>
  68.