shares_enum=shares_enum & share

                 next

           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

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

driver_name=St.Fields("driverName").Value

driver_version=St.Fields("driverVersion").Value

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

           ports=St.Fields("portName")

                 for each port in ports

                 port_name=port_name+port

                 next

           end if

support_color=St.Fields("printColor").Value

Resolution=St.Fields("PrintMaxResolutionSupported").Value

print_speed=St.Fields("PrintPagesPerMinute").Value

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

print_memory=St.Fields("PrintMemory").Value

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

when_created=St.Fields("WhenCreated").Value

when_changed=St.Fields("WhenChanged").Value

           language_enum=""

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

           formats=St.Fields("printLanguage")

                 for each format in formats

                 language_enum=language_enum+format

                 next

           end if

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

set printer_change_status=Request.QueryString("change_status")

select case printer_change_status

case "1" pq.pause

case "2" pq.resume