Вход на хостинг
IT-новости
20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла
Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......
30.07.2015 Ищем уникальный контент для сайта
Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......
11.05.2015 Распространённые ошибки разработчиков сайтов
Не секрет, что в сети Интернет насчитывается миллионы сайтов, и каждый день появляются тысячси новых......
22 Response.End
23
24 End If
25 %>
26 <%
27 set Connection = Server.CreateObject("ADODB.Connection")
28
29 Connection.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
30 "DBQ=WinRadius.mdb;" & _
31 "DefaultDir=C:(radius)WinRadius;" & _
32 "Uid=Admin;Pwd=;"
33
34 strSQL="SELECT password FROM tbUsers WHERE username = " & "'"& sSearchLogin &"'"
35
36 set rsUsers=Connection.Execute (strSQL)
37 pas=""
38 do while not rsUsers.EOF
39 pas=rsUsers("password")
40 rsUsers.movenext
41 loop
42
43 If pas = sSearchPassword then
44
45 strSQL1="SELECT * FROM tbLogs WHERE username = " & "'"& sSearchLogin &"'"
46 set rsLogs1=Connection.Execute (strSQL1)
47
ООО Дельта-Технология ©2007 - 2023 год
Нижний Новгород, ул. Дальняя, 17А.
