Login Help

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Validate request to log in to this site. Session("failLogin") = 0 MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("UserID")) MM_valStatus=CStr(Request.Form("status")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="login.asp" MM_redirectLoginFailed="loginhelp.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_PBBMember_STRING MM_rsUser.Source = "SELECT Email, Status, Password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM RosterNew WHERE Email='" & Replace(MM_valUsername,"'","''") &"' AND Status='" & Replace(MM_valStatus,"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and status match - this is a valid user Session("EmailEnter") = MM_valUsername MM_valPassword = CStr(MM_rsUser.Fields.Item("Password").Value) ' If (MM_fldUserAuthorization <> "") Then ' Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) ' Else ' Session("MM_UserAuthorization") = "" ' End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Session("nogo") = 0 ' http://www.aspfaq.com/show.asp?id=2026 msgTo = MM_valUsername & "; webmaster@prairiebrass.org" msgBody = "This message has been sent in response to a request made from the login screen of the PBB Members' Area." & vbcrlf & vbcrlf msgBody = msgBody & "If you did not request a reminder of your password, please disregard this email." & vbcrlf & vbcrlf msgBody = msgBody & "To log into the PBB Members' Area, return to the login screen and enter the email address and password below." & vbcrlf & vbcrlf msgBody = msgBody & "Username: " & MM_valUsername & vbcrlf & vbcrlf msgBody = msgBody & "Password: " & MM_valPassword & vbcrlf & vbcrlf msgBody = msgBody & "Doug Lim" & vbcrlf & "Webmaster" & vbcrlf & "Prairie Brass Band" & vbcrlf Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtp1.easycgi.com" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "PBB Webmaster " .To = msgTo .Subject = "PBB Website Access - Password" .TextBody = msgBody .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Session("nogo") = 1 Response.Redirect(MM_redirectLoginFailed) End If %> Login Help



	Members' Area >> Login Help