objConnection.CommandTimeout = 120

objConnection.Provider = "ADsDSOObject"

objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection

objCommand.CommandText = "SELECT servername, printername, printsharename, location, description FROM '"&domain_&"'  WHERE objectClass='printQueue'"

objCommand.properties("Page size")=1000

objCommand.properties("Timeout")=30

objCommand.properties("Cache Results")=false

Set st = objCommand.Execute

st.Movefirst

set radio_=Request.QueryString("radGrp") '- what is search - can 1 - fullname ,2 - location ,3 - description

set s_p_r= Request.QueryString("Search_Text")

summary="<Table width"& chr(61) & "100% > <TR> <TD></TD><Center> <TD> <B> <H5>Название принтера</H5></TD> <TD> </TD>  <TD> </TD></tr></Center>"

flag=0

i=0

on error resume next

dim array_1(500)

i=0

Do Until st.EOF

    printer_name=St.Fields("PrinterName").Value

shares_enum=""

    shares=St.Fields("printsharename").Value

    for each share in shares

    shares_enum=shares_enum+share

    next

server_name=St.Fields("servername").Value

descrits_enum=""

    if vartype(St.Fields("description"))=8204 then

           descrits=St.Fields("description")

           for each des in descrits

           descrits_enum=descrits_enum+des

           next

    end if