<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_login__varUsername rs_login__varUsername = "none" If (Request("username") <> "") Then rs_login__varUsername = Request("username") End If %> <% Dim rs_login__varPassword rs_login__varPassword = "none" If (Request("password") <> "") Then rs_login__varPassword = Request("password") End If %> <% Dim rs_login Dim rs_login_numRows Set rs_login = Server.CreateObject("ADODB.Recordset") rs_login.ActiveConnection = MM_pl_users_STRING rs_login.Source = "SELECT * FROM Usernames WHERE Username='" + Replace(rs_login__varUsername, "'", "''") + "' AND password='" + Replace(rs_login__varPassword, "'", "''") + "'" rs_login.CursorType = 0 rs_login.CursorLocation = 2 rs_login.LockType = 1 rs_login.Open() rs_login_numRows = 0 %> Untitled Document

 

<% If Not rs_login.EOF Or Not rs_login.BOF Then %>
Login Successful!
<% End If ' end Not rs_login.EOF Or NOT rs_login.BOF %>
<% If rs_login.EOF And rs_login.BOF Then %>
Sorry, incorrect username and/or password.
<% End If ' end rs_login.EOF And rs_login.BOF %>

 

<% rs_login.Close() Set rs_login = Nothing %>