VBScript Sample: vbscript/login/login.asp
ASP Script
Comments or Client-side Script
HTML and Text

<html>
<head>
<title>NetWare Login Example</title>
</head>
<body>

<%
   uid = Request.Form("Loginid")
   pwd = Request.Form("Password")
   Set obj = Server.CreateObject("halcyon.demo.NWAuthentication")

   
' Specify Novell tree and context
   tree = "NOVELLTREE" 'tree name
   context = "NOVELL01" 'context

   res = obj.init(tree, context)
   If Not res Then
%>

<font size="5"> <b>
<p>Error while connecting to NDS</p>
</b> </font>
<%
      Response.End
   End If

   granted = obj.login(uid, pwd)
   If granted Then
      
' Retrieve user information
      names = obj.getNames
      layouts = obj.getLayouts
      lb = LBound(names)
      ub = UBound(names)
%>

<p><font color="#0000a0" face="Verdana, Arial, Helvetica" size="4"></font>
<center>
<h3><font color="#0000a0" face="Verdana, Arial, Helvetica" size="4">Object Info</font></h3>
<p></p>
<table border="1" width="100%" cellpadding="5" bordercolorlight="#666666" bordercolordark="#333333">
<tr align="middle">
<th><font face="Verdana, arial, helvetica">Name</font></th>
<th><font face="Verdana, arial, helvetica">Layout</font></th>
</tr>
<%
      For i = lb to ub
%>

<tr align="left">
<td><font face="Verdana, arial, helvetica"><%=names(i)%> </font></td>
<td><font face="Verdana, arial, helvetica"><%=layouts(i)%> </font></td>
</tr>
<%
      Next
%>

</table></center>
<%
   Else
%>

<font size="5"> <b>
<p>Authentication failed.</p>
</b> </font>
<font size="3">Invalid user name or password.</font>
<%
   End If
%>

</body>
</html>


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.