Dit is de foutmelding die ik krijg als ik deze code uitvoer:
code:
1
2
3
4
5
6
7
8
9
10
11
| sub listUsers(domain)
dim Users, i
set Users = Server.CreateObject("MailserverX.Users")
Response.Write("<ul>")
for i=0 to Users.Count-1
if right(len(domain), Users.Items(i).UserName) = domain then
Response.Write("<li>" & Users.Items(i).UserName & "</li>")
end if
next
Response.Write("</ul>")
End sub |
Iemand 'n idee waar de fout 'm in kan zitten?
(Ben zelf beetje duf...)
