home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / friends.asp < prev    next >
Text File  |  2004-05-28  |  2KB  |  57 lines
  1. <html>
  2.     <head>
  3.         <title>Spam Crusher - My Profile</title>
  4.         <meta http-equiv="Content-Language" content="en-us">
  5.         <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
  6.         <meta name="ProgId" content="FrontPage.Editor.Document">
  7.         <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  8.     </head>
  9.     <body>
  10.         <!--#include FILE="header.asp"-->
  11. <!--#include FILE="timeout.asp"-->
  12.         <p align="center">
  13.             <font size="5">Your Friends</font><br>
  14.             <br>
  15.             You will receive mail from everyone in this list no matter what.<br>
  16.             <br>
  17.         </p>
  18.         <form action="procfriends.asp" ID="frmFriendsList" method="POST">
  19.             <table border="2" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="#111111"
  20.                 width="100%" id="AutoNumber1">
  21.                 <tr>
  22.                     <td>
  23.                         <p align="center">
  24.                             <input type="submit" value="Add" name="btnAdd" ID="btnAdd"> 
  25.                             <input type="submit" value="Delete" name="btnDelete" ID="btnDelete">
  26.                             <input type="submit" value="Import Address Book" name="btnImport" ID="btnImport">
  27.                         </p>
  28.                         <P align="center">
  29.                             <select name="lstFriends" size="20" multiple=true>
  30.                                 <%
  31.     EOLN = chr(13) + chr(10)
  32.     Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  33.     SpamCrusher.SetCurrentUser(Session("UserId"))
  34.     Friends = SpamCrusher.GetFriendsList()
  35.     SpamCrusher.Logoff()
  36.     'Replace(Friends, EOLN, "<br>")
  37.     StartPos = 1
  38.     EndPos = InStr(StartPos, Friends, EOLN)
  39.     do while (EndPos>0) 
  40.         Str = Mid(Friends, StartPos, EndPos-StartPos)
  41.         Response.Write("<option>"+Str+"</option>")    
  42.  
  43.         StartPos = EndPos+1
  44.         EndPos = InStr(StartPos, Friends, EOLN)
  45.  
  46.     loop
  47.     
  48. %>
  49.                             </select>
  50.                         </P>
  51.                         <br>
  52.                     </td>
  53.                 </tr>
  54.             </table>
  55.         </form>
  56.     </body>
  57. </html>