<%sDBExtraPath = "../"%>
<%
strCheckSec = "NO"
strDisplayMenu = "NO"
%>
<%
Dim msg
msg=""
IF Request("CONTENT_LENGTH") > 0 THEN
Dim rs
Dim strUserName
Dim strPwd
strUsername = StringEncrypt(Trim(Request.Form("username")), 1)
strPwd = StringEncrypt(Trim(Request.Form("pwd")), 1)
sSQL = "SELECT * FROM BackEndUsers WHERE UserName = " & Chr(34) & Trim(strUsername) & chr(34) & " AND UserPassword= " & Chr(34) & Trim(strPwd) & chr(34)
Set rs = conDB.Execute(sSQL)
If Not IsRSEmpty(rs) Then
Response.Cookies("adminuser") = rs(0)
Response.Redirect "index.asp"
Else
'Response.Write sSQL
msg = langMgr.GetContent("AUTH_MSG_INVALID", "BackEndMessages", iInterfaceLang)
End If
END IF
%>
<%=langMgr.GetContent("MANUAL_SBIIA", "BackEndMessages", iInterfaceLang)%>
<%If Len(msg) > 0 Then%>
><%=msg%>
<%End If%>
<%=langMgr.GetContent("AUTH_MSG", "BackEndMessages", iInterfaceLang)%>
<%=langMgr.GetContent("PWD_RECOVERY_EMAIL_TITLE", "BackEndMessages", iInterfaceLang)%>
<%
sSQL = "SELECT * FROM BackEndUsers"
Set rstDemo = conDB.Execute(sSQL)
strLogin = StringEncrypt(Trim(rstDemo(0)), 0)
strPassword = StringEncrypt(Trim(rstDemo(1)), 0)
Set rstDemo = Nothing
%>