<%@ Language=VBScript %> <% Option Explicit %> <% CheckSSL(False) Dim strCommand, strErrMsg strCommand = GetFormVal("Command", Request("Command")) Select Case strCommand Case "validate" Dim strEmail, strPassword strEmail = Trim(Request.Form("txtEmail")) strPassword = Trim(Request.Form("txtPassword")) If ValidateUserLogin(strEmail, strPassword) Then Response.Redirect "users.asp" Response.End Else strErrMsg = "Incorrect Email Address or Password entered" End If Case "logout" Case Else Select Case Request("msg") Case 1 strErrMsg = "Your session has expired - please login again" Case 2 Session.Abandon strErrMsg = "User successfully logged out" Case 3 strErrMsg = "Cannot login with this account" End Select End Select %> <%HeadStart%>

 

Polar Flame Music
WEBSITE ADMIN

 

Login
Email Address:
Password:
 

<%= strErrMsg %>



The Website Admin is best viewed with Microsoft Internet Explorer v6.0+

<% Private Function ValidateUserLogin(strEmail, strPassword) Dim rsTemp, intUserID Set rsTemp = Server.CreateObject("ADODB.Recordset") strEmail = SecurityCheck(strEmail) rsTemp.Open _ " SELECT id,password " & _ " FROM t_user " & _ " WHERE email = '" & strEmail & "' " & _ " AND enabled = 1 AND admin = 1", _ conn,adOpenForwardOnly,adLockReadOnly If Not rsTemp.EOF Then intUserID = rsTemp("id") If rsTemp("password") = strPassword Then ValidateUserLogin = True ' Valid login Session("UserID") = intUserID Else ValidateUserLogin = False ' Invalid login End If Else ValidateUserLogin = False ' Invalid login End If rsTemp.Close Set rsTemp = Nothing End Function %>