<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% Session.LCID=13321 If Request.QueryString("logintype") = "admin" then If Weekday(now()+12/24*365) = "1" or Weekday(now()+12/24*365) = "7" then ' If Saturday & Sunday Response.Redirect("notallowed.asp") Else If right(timevalue(now())+12/24*365,11) =< Timevalue("8:00:00 AM") and right(timevalue(now())+12/24*365,11) => Timevalue("5:00:00 PM") then Response.Redirect("notallowed.asp") End If End If call Login("post_notice.asp", "login_error.asp?type=Unauthorize&logintype=admin", "EProcUser", "admin") Else call Login("bid_submission.asp", "login_error.asp?type=Unauthorize&logintype=company", "CompanyUname", "company") End If Function Login(success_page, lfailed_page, sesionVar, logintype) ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString LoggingUser=CStr(Request.Form("Username")) If LoggingUser <> "" Then%> <%If not blnCAPTCHAcodeCorrect Then response.redirect("login_error.asp?type=wrong+code&logintype="&Request.QueryString("logintype")) MM_fldUserAuthorization="" MM_redirectLoginSuccess=success_page MM_redirectLoginFailed=lfailed_page MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_PGBOnline_STRING If logintype = "company" then MM_rsUser.Source = "SELECT co_email, pword, co_id, product_line, co_name" table = "eproc_companies" fld_to_test = "co_email" ElseIf logintype = "admin" then MM_rsUser.Source = "SELECT uname, pword" table = "eproc_users" fld_to_test = "uname" End If If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM "&table&" WHERE "&fld_to_test&"='"& Replace(Request.Form("Username"),"'","''") & "' and pword='" & Replace(Request.Form("Password"),"'","''") & "'" If logintype = "company" then MM_rsUser.Source = MM_rsUser.Source & " AND approved='Y'" 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(sesionVar) = LoggingUser If logintype = "company" then Session("loggedCompanyID") = MM_rsUser.Fields.Item("co_id").Value Session("ProductLine") = MM_rsUser.Fields.Item("product_line").Value Session("LoggedCompanyName") = MM_rsUser.Fields.Item("co_name").Value Elseif logintype = "admin" then call SavetoLOG("login", "") End If Application.Lock Application(LoggingUser) = Session.SessionID Application("LoggedUser") = Application("LoggedUser") + 1 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 MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close 'Session("eror") = "Login Error!" Response.Redirect(MM_redirectLoginFailed) End If End Function %> eProcurement Login Page
   LOGIN
<%'=Session("eror")%> <%'Session.Contents.Remove("eror")%>
 
 
USERNAME: :
PASSWORD :
   
Enter the code exactly
as you see it in the image

(Cookies must be enabled)