Разработка динамических сайтов
SEO услуги
Управление контекстной рекламой

Вход на хостинг

Имя пользователя:*

Пароль пользователя:*

IT-новости

20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла

Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......

подробнее

30.07.2015 Ищем уникальный контент для сайта

Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......

подробнее

11.05.2015 Распространённые ошибки разработчиков сайтов

Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......

подробнее

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


Предыдущая страницаОглавлениеСледующая страница
 
[001] [002] [003] [004] [005] [006] [007] [008] [009] [010] [011] [012] [013] [014] [015] [016] [017] [018] [019] [020]
[021] [022] [023] [024] [025] [026] [027] [028] [029] [030] [031] [032] [033] [034] [035] [036] [037] [038] [039] [040]
[041] [042] [043] [044] [045] [046] [047] [048] [049] [050] [051] [052] [053] [054] [055] [056] [057] [058] [059] [060]
[061] [062] [063] [064] [065] [066] [067] [068] [069] [070] [071] [072] [073] [074] [075] [076] [077] [078] [079] [080]
[081] [082] [083] [084] [085] [086] [087] [088] [089] [090] [091] [092] [093] [094] [095] [096] [097] [098] [099] [100]
[101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120]
[121] [122] [123] [124] [125] [126] [127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] [140]
[141] [142] [143] [144] [145] [146] [147] [148] [149] [150]

+7 (831) 413-63-27
ООО Дельта-Технология ©2007 - 2016 год
Нижний Новгород, ул. Дальняя, 17А.
Rambler's Top100