home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / queryaccounts.asp < prev    next >
Text File  |  2004-05-28  |  2KB  |  67 lines
  1. <html>
  2.     <head>
  3.         <title>Spam Crusher - My Profile - Query Accounts</title>
  4.         <meta http-equiv="Content-Language" content="en-us">
  5.         <meta content="Microsoft FrontPage 5.0" name="GENERATOR">
  6.         <meta content="FrontPage.Editor.Document" name="ProgId">
  7.         <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  8.     </head>
  9.     <body>
  10.         <P>
  11.             <!--#include FILE="header.asp"--></P>
  12. <!--#include FILE="timeout.asp"-->
  13.         <P align="center">
  14.             <%
  15.     EOLN = chr(13) + chr(10)
  16.     ErrorStr = ""
  17.  
  18.  
  19.     Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  20.     SpamCrusher.SetCurrentUser(Session("UserId"))
  21.     MailServerName = SpamCrusher.GetSettingValue("MailServerName")
  22.     
  23.     if (Request.QueryString("Retry")=1) then
  24.  
  25.         ErrorStr = SpamCrusher.QueryServerForMailboxes(Request.Form("eServerName"), Request.Form("eUserId"), Request.Form("ePwd"))
  26.  
  27.         if (ErrorStr = "") then
  28.             Response.Redirect("accounts.asp")
  29.         Else
  30.             Session("ErrorStr") = ErrorStr
  31.             Response.Redirect("queryaccounts.asp")
  32.         End If
  33.     End If
  34.  
  35.     SpamCrusher.Logoff()
  36.     
  37.     if (Session("ErrorStr")<>"") then
  38.         Response.Write("<p align=center><font color=#FF0000><b>"+Session("ErrorStr")+"</b></font></p>")
  39.     End If
  40.  
  41.     
  42. %>
  43.         </P>
  44.         
  45.         You can query a server for its list of User Names and email accounts.  Spam Crusher Enterprise will run an LDAP query.  If your server requires a login to run a query, provide your User Name and Password here.
  46.         <FORM name="oForm" action="queryaccounts.asp?Retry=1" method="post">
  47.             <P>
  48.                 <TABLE id="Table1" cellSpacing="1" cellPadding="1" width="100%" border="1">
  49.                     <TR>
  50.                         <TD width="157">Server Name (required)</TD>
  51.                         <TD><INPUT id="Text1" type="text" name="eServerName" value=<%Response.Write(MailServerName)%>></TD>
  52.                     </TR>
  53.                     <TR>
  54.                         <TD width="157">User Id (optional)</TD>
  55.                         <TD><INPUT id="Text2" type="text" name="eUserId"></TD>
  56.                     </TR>
  57.                     <TR>
  58.                         <TD width="157">Password (optional)</TD>
  59.                         <TD><INPUT id="Password1" type="password" name="ePwd"></TD>
  60.                     </TR>
  61.                 </TABLE>
  62.             </P>
  63.             <P>  <INPUT type="submit" value="Query Server"> <INPUT id="Reset1" type="reset" value="Reset" name="Reset1"></P>
  64.         </FORM>
  65.     </body>
  66. </html>
  67.