Вы можете заказать необходимую Вам продукцию, заполнив форму ниже.
<%
Const AUTHDB_DSN = "Syntol"
Const SITE_NAME = "10.1.100.15"
aa="'"
Const Group = 1
if Session("AuthStatus_arch")<>"Authorized_arch" then
Response.write(Request.ServerVariables("URL"))
if Request.Form("frmLogin") = "" or Request.Form("frmUserID") = "" then %>
<%=SITE_NAME%>Авторизация
Если Вы еще не зарегистрировались, пожалуйста, нажмите "Регистрация"и заполните нашу форму.
<% response.end
else if Request.Form("frmLogin") = "true" then
szpassw=aa&Request.Form("frmUserPass")&aa
Set authConn=server.createobject("ADODB.connection")
'--Подключаемся к ODBS--
'authConn.open(AUTHDB_DSN), "iusr_cis_mk", "krolikudaloy"
authConn.open(AUTHDB_DSN), "IUSR_CIS_MK", "krolikudaloy"
'--Выборка по условию совпадения с полем Name--
frmUserID=aa&request.form("frmUserID")&aa
'szarh_access=1
access=1
'sqlString = "Select intershop..account_arch.access, intershop..customer.Login, intershop..customer.Password from intershop..account_arch, intershop..Customer where intershop..customer.login = '" & request.form("frmUserID") & "'" and intershop..customer.phys_ID=intershop..account_arch.phys_ID
'Проверка на доступ к архиву
Set authRs=authConn.execute("Select Client.Login, Client.Password from Client where Login="&frmUserID&" and password="&szpassw)
if authRs.BOF or authRs.EOF then
access=0%>
<%=SITE_NAME%>Ошибка авторизации
<%
Session("AuthStatus_arch")="NotAuthorized_arch"
response.end
else
Session("AuthStatus_arch")="Authorized_arch"
Session("Login")=Request.Form("frmUserID")
set rsOrderNumber=authConn.Execute("select IsNull(max(orderNumber),0)as mOrdNum from zakaz")
Session("OrderNumber")=rsOrderNumber("mOrdNum")+1
'Session("AuthStatus")="Authorized"
'if szarh_access=1 then Session("AuthStatus_arch")="Authorized_arch"
authConn.close
'----------Усли сессия успешно прошла, то сразу перезагружаем страницу
response.Clear
response.redirect Request.ServerVariables("URL")
Response.Flush
response.end
end if
else
response.redirect Request.ServerVariables("URL")
response.end
end if%>
<% end if
end if %>
