<%call restrictuser("login.asp?logintype=admin","EProcUser")%> <% dim rs_companies Set rs_companies=Server.CreateObject("ADODB.Recordset") rs_companies.ActiveConnection=MM_PGBOnline_STRING rs_companies.Source = "SELECT co_id, co_name, date_of_registration FROM eproc_companies WHERE approved='N'" rs_companies.Open() %>

PGB Online Procurement


<%If not rs_companies.eof then%>
Company Name
Date of Registration
<%While not rs_companies.eof%>
<%rs_companies.movenext() Wend Else Response.Write("
No company has been registered as of this time!
") End If%>


| Post Invitation to Bid | View All Active Biddings | View Pre-Registered Companies |
| Reactivate Accounts | Download Supplier's Bids | Post Winner | Change Password |
<%rs_companies.close set rs_companies = nothing%>