<% If Request.QueryString("usertype") = "admin" or Request.Form("usertype") = "admin" then 'usertype = Request.QueryString("usertype") call restrictuser("login.asp?logintype=admin","EProcUser") tableToUpdate = "eproc_users" tofilter = Array("uname|"&Session("EProcUser")) user = "admin" ElseIf Request.QueryString("usertype") = "company" or Request.Form("usertype") = "company" then call restrictuser("login.asp?logintype=company","CompanyUname") tableToUpdate = "eproc_companies" tofilter = Array("_co_id|"&Session("loggedCompanyID")&"&", "co_email|"&Session("CompanyUname")&"&", "co_name|"&Session("LoggedCompanyName")) user = "company" ElseIf Request.ServerVariables("Content_Length") = 0 then Response.Redirect("default.asp") End if %> <% Function CurrentPword(usertype) dim rs Set rs=Server.CreateObject("ADODB.Recordset") rs.ActiveConnection=MM_PGBOnline_STRING If usertype = "company" then 'rs.Source = SelectSQL("eproc_companies", Array("pword"), filt, "", "") rs.Source = "SELECT pword FROM eproc_companies WHERE approved='Y' AND co_id="&Session("loggedCompanyID")&" AND co_email='"&Session("CompanyUname")&"' AND co_name='"&Session("LoggedCompanyName")&"'" response.Write(rs.Source) Else 'rs.Source = SelectSQL("eproc_users", Array("pword"), filt, "", "") rs.Source = "SELECT pword FROM eproc_users WHERE uname='"&Session("EProcUser")&"'" End If rs.Open() CurrentPword = rs(0) rs.Close() set rs = nothing End Function If Request.ServerVariables("Content_Length") <> 0 then If Session("strSecurityCode") <> Request.Form("securityCode") Then Session.Contents.Remove("strSecurityCode") Response.Redirect("error.asp?er=You+have+entered+a+WRONG+CODE") ElseIf CurrentPword(user) <> Cstr(Request.Form("c_password")) then Response.Redirect("error.asp?er=Your+Current+Password+DOES+NOT+MATCH+the+Password+on+our+Database") ElseIf Cstr(Request.Form("n_password"))<>Cstr(Request.Form("confirm_password")) then Response.Redirect("error.asp?er=NEW+PASSWORD+and+CONFIRM+PASSWORD+does+not+match") ElseIf not ValidatePassword(Request.Form("n_password")) then Response.Redirect("error.asp?er=Sorry!+Your+NEW+PASSWORD+does+not+match+the+Password+Rule!") Else Session.Contents.Remove("strSecurityCode") call DBaseTransact(MM_PGBOnline_STRING, "update", tableToUpdate, Array("pword|"&Cstr(Request.Form("n_password"))), tofilter) Response.Redirect("confirm.asp?msg=You+PASSWORD+has+been+changed!") End If End If %> <%csspath="http://"&Request.ServerVariables("HTTP_HOST")&"/government/css/" rootpath="http://"&Request.ServerVariables("HTTP_HOST")&"/government/" imagespath="http://"&Request.ServerVariables("HTTP_HOST")&"/government/images/" includespath="http://"&Request.ServerVariables("HTTP_HOST")&"/government/includes/"%>

PGB Online Procurement


CHANGE PASSWORD

<%If Session("err") <> "" then%>

ERROR!
<%=Session("err")%>
<%Session.Contents.Remove("err")%>


<%End if%>
" method="post" name="Form1" id="Form1">
Current Password
:
 
Password Rule: Your NEW PASSWORD must have at least 4 characters and does not exceed 12 characters; the first character must be a letter and no characters other than letters, numbers and the underscore may be used.
 
New Password
:
Confirm Password
:
 
 
Enter the code exactly as you see it in the image.
     

<%If Session("EProcUser")<>"" or Session("CompanyUname")<>"" then%> <%If Session("EProcUser")<>"" then%> <%ElseIf Session("CompanyUname")<>"" then%> <%End If%> <%End If%>
 
| Post Invitation to Bid | View All Active Biddings | View Pre-Registered Companies |
| Reactivate Accounts | Download Supplier's Bids | Post Winner | Change Password | Post Your Bid here! | Change Your Password here! | Edit Company Profile

BACK