location_name=St.Fields("location").Value

Set pq = GetObject("WinNT://" & server_name & "/" & shares_enum)

status_printer=pq.status

select case status_printer

case "0" status_P="<img src=images3normal.jpg border=0>"

case "1" status_P="<img src=images2pause.jpg border=0>"

case "18" status_P="<img src=images1error.jpg border=0>"

end select

select case radio_

case "1"

    summary_where_search= shares_enum & printer_name

case "2"

    summary_where_search= descrits_enum

case "3"

    summary_where_search= location_name

end select

    if instr(Lcase(summary_where_search), Lcase(s_p_r)) then

    array_1(i)="<TR><td>" & status_P & " </td> <TD>  <H6> " & printer_name & "</H6></TD> <TD><A href=" & chr(34) & "view_printer.asp?Printer_to=" & printer_name & chr(34) & " target=" & chr(34) &"var"& chr(34) & "title=" & chr(34) & printer_name  & " - " & descrits_enum & chr(34) & " > <b> <img src=imagespr1.jpg border=0> </b></a> </td> <td>  <A href=http:\" & shares_enum & " target=" & chr(34) &"var"& chr(34) & "title=" & chr(34) & printer_name  & " - " & descrits_enum & chr(34) & " > <b> <img src=imagespr2.jpg border=0> </b></a> </td></tr>"

    i=i+1

    flag=1

    end if

    st.MoveNext

Loop

up_array=ubound(array_1)

for j=0 to up_array

    for i=0 to up_array

           if strcomp(array_1(i),array_1(i+1),0)=1 then

           temp=array_1(i)

           array_1(i)=array_1(i+1)

           array_1(i+1)=temp

           end if

    next

next

for i=0 to up_array