//
// [mdaemon] Gets the MD domain list with ASP
// original author: Jia Jun (Jaron)
// URL:
http://www.jiangdu.net;
// message: jaron@jdinfo.net
// First 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 "Total" & Domains & "domain names." 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%>
