<%@ 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>
<!-- 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>