home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2002 March / PCWMAR02.iso / software / windowsxp / ftgateoffice / ftgateoffice.exe / Main / security.fts < prev    next >
Encoding:
Text File  |  2001-11-29  |  586 b   |  37 lines
  1. <%
  2. {
  3.     var failed=0
  4.     var d = new server.domain
  5.     d.domainname=session.webmail.domain
  6.  
  7.     if ((d.domainname=="")||(d.domainname==0))
  8.         failed=1
  9.     else
  10.     {
  11.         var m=new d.mailbox
  12.         m.name=session.webmail.mailbox
  13.         if ((m.name=="")||(m.name==0))
  14.             failed=1
  15.         else if (!m.verifypassword(session.webmail.password))
  16.             failed=1
  17.     }
  18.  
  19.     if (failed)
  20.     {
  21.         %>
  22.         <HTML>
  23.         <HEAD>
  24.         <SCRIPT LANGUAGE="JavaScript1.2" TYPE="text/javascript">
  25.         <!--
  26.         parent.location.href="../index.fts";
  27.         //-->
  28.         </SCRIPT>
  29.         </HEAD>
  30.         <BODY>
  31.         </BODY>
  32.         </HTML>
  33.         <%
  34.         output.end()
  35.     }
  36. }
  37. %>