Get MDaemon Domain Name list with ASP

//////////////////////////////////////////////////////////////////////////////
[MDaemon] Get MD domain list with ASP
Original Author: Jia Jun (Jaron)
Website: http://www.jiangdu.net;
Mail: jaron@jdinfo.net
First published in Jiangdu Information Network, 2003-01-12
//////////////////////////////////////////////////////////////////////////////
' Domain.asp
'/////////////
<%
DIM Omduser
DIM Domains
Dim Domainnames ()
SET Omduser = CreateObject ("Mdusercom.mduser")
IF omduser.loaduserdll () = True THEN
Domains = Omduser.getdomaincount
Response. Write "A total of" & Domains & "domain name.
"
Omduser.getdomainnames (Domainnames)
For i = 0 to Domains-1
Response.Write Domainnames (i) & "
"
Next
ELSE
Response.Write "Error Loading mdusercom"
End IF
Set Omduser = Nothing
%>