SoFunction
Updated on 2025-03-04

Create MDaemon user code with ASP

<%@ Language=VBScript %>
<!-- METADATA TYPE="TypeLib" UUID="{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}" -->
<HTML>
<BODY>
<H1 align=center>Online registration demonstration</H1>
<%
Dim sMessage
If ("cmdAddUser") <> "" Then 

 Dim oMDUser
 Dim oMDUserInfo
 Dim nResult
 Dim sFullName
 Dim sUserName
 Dim sPassword

 sFullName = ("txtFullName")
 sUserName = ("txtUserName")
 sPassword = ("txtPassword")
 sDomain=("txtDomain")

    Set oMDUser = ("")
    Set oMDUserInfo = ("")
    If  () = True Then

  (oMDUserInfo)
   = sFullName
    = sUserName
   = sPassword
   = sDomain
   (oMDUserInfo)
  nResult =  (oMDUserInfo)

  Select Case nResult
  Case MDDLLERR_NOERROR
sMessage = "User registration was successful!"
  Case MDDLLERR_USEREXISTS 
sMessage = "Username: '" & sUserName & "' Already existed! Registration failed!"
  case Else
sMessage = "Registered user failed! Error code:" & nResult
  End Select

  
 Else
sMessage = "Error: Cannot load DLL file"
 End If
 Set oMDUser = Nothing
 Set oMDUserInfo = Nothing
End If
%>

<P>New User Registration</P>
<FORM ACTION="" METHOD=post ID="Form1">
<TABLE ID="Table1">
<TR><TD>Domain name:</TD><TD><INPUT SIZE=50 NAME="txtDomain" ID="Text1" value="" readonly></TD></TR>
<TR><TD>Full name:</TD><TD><INPUT SIZE=50 NAME="txtFullName" ID="Text2"></TD></TR>
<TR><TD>Login name:</TD><TD><INPUT SIZE=25 NAME="txtUserName" ID="Text3"></TD></TR>
<TR><TD>Password:</TD><TD><INPUT TYPE="password" SIZE=25 NAME="txtPassword" ID="Password1"></TD></TR>
<TR><TD></TD><TD><INPUT TYPE="submit" value="Register new user" NAME="cmdAddUser" ID="Submit1"></TD></TR>
</TABLE>
</FORM>
<%
 (sMessage & "<BR>")
%>
</BODY>
</HTML>