<%@LANGUAGE="VBSCRIPT"%> <% Response.Buffer = True %> <% ' ******************************************************************* ' Application Name: IBEEM CONTENT MANAGEMENT SYSTEM ' Application Group: ACECOMP PLUS - IBEEM CONTENT MANAGEMENT FAMILY ' Version: IBEEM 4.5 ' Application: ASP ' Database: MSSQL ' Copyright © Acecomp Plus Corporate Site Solutions - www.acecomp.com ' All rights reserved 1997-2006. ' ******************************************************************* ' IBEEM LOG: ' DATE INITIALS CHANGES ' 20/12/2005 MT Initial Version ' 01/01/2006 MT ScottWoods Transport ' ******************************************************************* ' NOTES: ScottWoods Transport Site ' ************************************************************************ ' DESCRIPTION: ' ************************************************************************ ' IBEEM CMS, IBEEM EMS, IBEEM ECMS, IBEEM INTRANET AND IBEEM ECMS+I ARE LICENSED BY ACECOMP PLUS UNDER ISLA (IBEEM Software License Agreement). %> <% Dim content__coid content__coid = "94" if (Request("content_id") <> "") then content__coid = Request("content_id") %> <% set content = Server.CreateObject("ADODB.Recordset") content.ActiveConnection = MM_conn_STRING content.Source = "SELECT * FROM dbo.SITE_CONTENT WHERE content_id = '" + Replace(content__coid, "'", "''") + "' AND content_status = 'act'" content.CursorType = 0 content.CursorLocation = 2 content.LockType = 3 content.Open() content_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("email")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="members.asp?content_id=100" MM_redirectLoginFailed="login.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_conn_STRING MM_rsUser.Source = "SELECT * FROM dbo.SITE_USERS WHERE USER_EMAIL='" & Replace(MM_valUsername,"'","''") &"' AND USER_PASSWORD='" & Replace(Request.Form("password"),"'","''") & "'" 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 password match - this is a valid user session("USER_NAME")=mm_rsuser.fields("USER_NAME").value session("EMAIL")=mm_rsuser.fields("USER_EMAIL").value session("THEUSERID")=mm_rsuser.fields("USER_ID").value Session("MM_Username") = MM_valUsername 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 true Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If response.Redirect(MM_redirectLoginSuccess) else response.write "" response.end End If End If %>
USERNAME:
PASSWORD: