修改旧的工作 asp 脚本，每一个小改动都在破坏代码

我们有一个使用旧 ASP 脚本在 IIS 上运行的 webstie。 它登录到活动目录，提取一些数据并将其导出为表格。 我需要在表格中进行一些更改，目前它会提取不需要的数据，我想对其进行更改。

Set objCon = Server.CreateObject("ADODB.Connection")
objCon.provider ="ADsDSOObject"
objCon.Properties("User ID") = "blabla\address.book"
objCon.Properties("Password") = "blabla"
objCon.Properties("Encrypt Password") = TRUE
objCon.open "Active Directory Provider"
Set objCom = CreateObject("ADODB.Command")
Set objCom.ActiveConnection = objCon
objCom.Properties("Page Size") = 10000
objCom.CommandText ="select givenName,sn,company,title,mail,telephonenumber,mobile,sAMAccountName,ipPhone,co FROM '"+ usersOU +"' where sAMAccountname='*' ORDER by givenName"

Set objRS = objCom.Execute

Response.Write "<table id=""my_table"" style=""display:none;"" class=""display"" cellspacing=""0"" width=""100%"">" + vbCrLf
Response.Write "<thead><tr><th>Name</th><th>IP</th><th>PCName</th><th>Serial</th><th>Email</th><th>IP Phone</th><th>Mobile</th></tr></thead><tbody>"

Do While Not objRS.EOF Or objRS.BOF
        Response.Write " <tr>" + _
        "<td>" + objRS("givenName") + " " + objRS("sn") + "</td>" + _
        "<td>" + objRS("title") + "</td>" + _
        "<td>" + objRS("company") + "</td>" + _
        "<td>" + objRS("co") + "</td>" + _
        "<td>" + objRS("mail") + "</td>" + _
        "<td>" + objRS("ipPhone") + "</td>" + _
        "<td>" + objRS("mobile") + "</td>" + _
        "</tr>" + vbCrLf
    objRS.MoveNext
    Response.Flush
Loop

我需要它从字段中的 ADuser 对象中提取数据：State、POBox、Description 并将其分别作为 PCname、Bios 和 IP 放入表中

我正在尝试进行更改，但看起来我所做的每一个小更改都只是破坏了它 有人可以帮忙吗？