<%@LANGUAGE="VBSCRIPT"%> <% Dim myconnection__strUserID myconnection__strUserID = "x" if(Request.Form("UserID") <> "") then myconnection__strUserID = Request.Form("UserID") Dim myconnection__strPassword myconnection__strPassword = "1" if(Request.Form("Password") <> "") then myconnection__strPassword = Request.Form("Password") %> <% set myconnection = Server.CreateObject("ADODB.Recordset") myconnection.ActiveConnection =MM_MyConn_STRING myconnection.Source = "SELECT * FROM Employees WHERE username = '" + Replace(myconnection__strUserID, "'", "''") + "' AND password = '" + Replace(myconnection__strPassword, "'", "''") + "'" myconnection.CursorType = 0 myconnection.CursorLocation = 2 myconnection.LockType = 3 myconnection.Open myconnection_numRows = 0 %> <% If myconnection__strUserID <> "x" Then If Not myconnection.EOF Then Session("svUser")=myconnection.Fields.Item("username").Value Session("svPass")=myconnection.Fields.Item("password").Value Session("svAccess")=myconnection.Fields.Item("EmployeeID").Value Response.Redirect "http://66.120.66.118/intranet/main.asp" else Session("failed")=1 Response.Redirect "login.asp" End If End If %> <% set Login = Server.CreateObject("ADODB.Recordset") Login.ActiveConnection = MM_MyConn_STRING Login.Source = "SELECT * FROM Employees" Login.CursorType = 0 Login.CursorLocation = 2 Login.LockType = 3 Login.Open() Login_numRows = 0 %> <% Login.Close() %> <%@LANGUAGE="VBSCRIPT"%> <% Dim myconnection__strUserID myconnection__strUserID = "x" if(Request.Form("UserID") <> "") then myconnection__strUserID = Request.Form("UserID") Dim myconnection__strPassword myconnection__strPassword = "1" if(Request.Form("Password") <> "") then myconnection__strPassword = Request.Form("Password") %> <% set myconnection = Server.CreateObject("ADODB.Recordset") myconnection.ActiveConnection =MM_MyConn_STRING myconnection.Source = "SELECT * FROM Employees WHERE username = '" + Replace(myconnection__strUserID, "'", "''") + "' AND password = '" + Replace(myconnection__strPassword, "'", "''") + "'" myconnection.CursorType = 0 myconnection.CursorLocation = 2 myconnection.LockType = 3 myconnection.Open myconnection_numRows = 0 %> <% If myconnection__strUserID <> "x" Then If Not myconnection.EOF Then Session("svUser")=myconnection.Fields.Item("username").Value Session("svPass")=myconnection.Fields.Item("password").Value Session("svAccess")=myconnection.Fields.Item("EmployeeID").Value Response.Redirect "http://66.120.66.118/intranet/main.asp" else Session("failed")=1 Response.Redirect "login.asp" End If End If %> <% set Login = Server.CreateObject("ADODB.Recordset") Login.ActiveConnection = MM_MyConn_STRING Login.Source = "SELECT * FROM Employees" Login.CursorType = 0 Login.CursorLocation = 2 Login.LockType = 3 Login.Open() Login_numRows = 0 %> <% Login.Close() %>