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

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

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

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

IT-новости

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

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

подробнее

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

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

подробнее

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

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

подробнее

   

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


Предыдущая страницаОглавлениеСледующая страница
 
[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