ООО «Дельта-Технология»

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

IT-новости

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

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

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

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

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

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

</head>

<frameset cols="30%,*" FRAMEBORDER="5" BORDER="yes" FRAMESPACING="5" >

<frame src="printer_adsi.asp?radGrp=1&Search_Text=" name="main" scrolling="yes" МАRGINHEIGHT=1 >

<frame src="about:blank" name="var">

</frameset>

</html>

style.css

H4 {font-size:12; font-family:Arial;}

H5 {font-size:11; font-family:Arial;}

H6 {font-size:10; font-family:Arial;}

printer_adsi.asp

<%@ Language=VBScript CODEPAGE=1251%>

<HTML> <body link="red" VLINK=red> </body>

<TITLE> Выбор порядка упорядочивания админского софта </TITLE>

<HEAD>

<LINK href="style.css" type=text/css rel=stylesheet>

<meta http-equiv="Content-Type" content="text/html" charset=windows-1251>

<meta http-equiv="refresh" content=10 >

</HEAD> <BODY>

<FONT FACE="Arial">

<H4><b><center>"Принтеры"</center></H4> <br> <h6>

<FORM ACTION="printer_adsi.asp" target="main" METHOD="get">

<INPUT TYPE="submit" VALUE="Поиск"></INPUT>

<INPUT NAME="Search_Text"></INPUT>

<br>

<input checked type="radio" value="1" name="radGrp">Название

<input type="radio" value="2" name="radGrp">Описание

<input type="radio" value="3" name="radGrp">Размещение

</FORM> </h6>

<center><table widht=90% cellpadding=10%> <td>

set rootDSE_ = GetObject("LDAP://RootDSE")

domain_ = "LDAP://" + rootDSE_.Get("defaultNamingContext")

Set objNameSpace = GetObject("WinNT:")

Set objConnection = CreateObject("ADODB.Connection")

Set objCommand = CreateObject("ADODB.Command")