home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Komunik / sambar / sambar51p.exe / sysuser / webmail / addrs.stm < prev    next >
Encoding:
Text File  |  2001-10-10  |  1001 b   |  55 lines
  1. <HTML>
  2. <HEAD>
  3. <TITLE>Address Book</TITLE>
  4.  
  5. <SCRIPT LANGUAGE="JavaScript">
  6. <!--
  7.  
  8. function setAddr() {
  9.     this.addrField   = opener.addrField;
  10. }
  11.  
  12.  
  13. // SET FORM FIELD VALUE TO THE EMAIL ADDRESS SELECTED
  14. function returnAddr(opt)
  15. {
  16.     var list  = "";
  17.  
  18.     for (var i=0; i < opt.length; i++)
  19.     {
  20.         if (opt[i].selected)
  21.         {
  22.             if (list.length > 0)
  23.                 list = list + ", ";
  24.  
  25.             list = list + opt[i].value;
  26.         }
  27.     }
  28.  
  29.     if (list.length > 0)
  30.         addrField.value = list;
  31.     window.close()
  32. }
  33.  
  34.  
  35. // -->
  36. </SCRIPT>
  37. </HEAD>
  38.  
  39. <BODY BGCOLOR="#FFFFFF" ONLOAD="setAddr()">
  40.  
  41. <CENTER>
  42. <FORM NAME="addrControl" onSubmit="return false;">
  43. <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
  44. <SELECT MULTIPLE NAME="email" SIZE=12>
  45. <RCXaddrlist home=RCShome type=popup>
  46. </SELECT>
  47. <br>
  48. <INPUT TYPE="submit" VALUE="Choose" onClick="returnAddr(document.addrControl.email)">
  49. </TD></TR>
  50. </TABLE>
  51. </FORM>
  52. </CENTER>
  53. </BODY>
  54. </HTML>
  55.