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
%>
Teoreticky bych tyto dva řádky
vložil až za Loop
Skvěle! Díky moc.
Ještě tam potom bylo hodně prázdného místa než začala tabulka, to už jsem ale vyřešil tak, že jsem mezery přesunul přes </td>