ASP - jak rozšířit platnost tabulky na celý text
Tento kód jsem použil pro zobrazení všech uživatelů v Active Directory a některých jejich podrobností.
Text jsem chtěl zformátovat do tabulky, ale formátování se použije jen na záhlaví a první řádek tabulky. Ostatní řádky už jsou rozházené. Jak musím kód upravit, aby všechny řádky byly upravené do tabulky?
Děkuji za rady.
<%
response.write "<html><head></head><body>"
response.write "<table align=center><tr><td>UserName</td> <td>Name and Surname</td> <td>Profile path</td> <td>Home Directory</td> <td>Organizational Path</td></tr>"
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
set objConn = CreateObject("ADODB.Connection")
set objCmd = CreateObject("ADODB.Command")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
Set objCmd.ActiveConnection = objConn
objCmd.Properties("Cache Results") = False
strFilter = "(&(objectclass=user)(objectcategory=person))"
strQuery = "<LDAP://" & strDNSDomain & ">;" & strFilter & ";distinguishedName;subtree"
objCmd.CommandText = strQuery
Set objRecordSet = objCmd.Execute
Do Until objRecordSet.EOF
strDN = objRecordSet.Fields("distinguishedName")
Set objUser = GetObject("LDAP://" & strDN)
strsdisplayName = objUser.displayName
strsAMAccountName = objUser.sAMAccountName
strProfileDirectory = objUser.ProfilePath
strHomeDirectory = objUser.HomeDirectory
strOU = GetObject(objUser.Parent).Get("name")
response.write "<tr><td>" & strsdisplayName & "</td> <td>" & strsAMAccountName & "</td> <td>" & strProfileDirectory & "</td> <td>" & strHomeDirectory & "</td> <td>" & strOU & "</td></tr>"
response.write "</table>"
response.write "</body></html>"
objRecordSet.MoveNext
Loop
objConn.Close
Set objGroup = Nothing
Set objRootDSE = Nothing
Set objCmd = Nothing
Set objConn = Nothing
%>