<%'call restrictuser("login.asp?logintype=admin","EProcUser")%> <% Function maypanalona(refid) dim rs_winner Set rs_winner=Server.CreateObject("ADODB.Recordset") rs_winner.ActiveConnection=MM_PGBOnline_STRING rs_winner.Source = "SELECT co_id FROM eproc_bidwinner, eproc_for_bidding WHERE eproc_for_bidding.reference_id = '"&refid&"' AND eproc_for_bidding.isthereaWinner='Y' AND eproc_for_bidding.reference_id=eproc_bidwinner.reference_id" rs_winner.Open() if not rs_winner.eof or not rs_winner.bof then While not rs_winner.eof x = x & rs_winner("co_id") & "|" rs_winner.movenext() Wend maypanalona = Left(x, len(x)-1) Else maypanalona = "" End If rs_winner.close() set rs_winner = nothing End Function Function nowinner(refid) dim rs_nowinner Set rs_nowinner=Server.CreateObject("ADODB.Recordset") rs_nowinner.ActiveConnection=MM_PGBOnline_STRING rs_nowinner.Source = "SELECT count(reference_id) FROM eproc_for_bidding WHERE eproc_for_bidding.reference_id = '"&refid&"' AND isthereaWinner = 'X'" rs_nowinner.Open() cnt = rs_nowinner(0) if CInt(cnt) > 0 then nowinner = True Else nowinner = False End If rs_nowinner.close() set rs_nowinner = nothing End Function maypanalonaba = maypanalona(Request.QueryString("refid")) the_winners = Split(maypanalonaba, "|", -1, 1) dim rs_forbidding Set rs_forbidding=Server.CreateObject("ADODB.Recordset") rs_forbidding.ActiveConnection=MM_PGBOnline_STRING rs_forbidding.Source = "SELECT awarding_date, reason, closing_date, description, file, reference_id, isthereawinner FROM eproc_for_bidding WHERE reference_id = '"&Request.QueryString("refid")&"'" rs_forbidding.Open() var_reason = rs_forbidding("reason") dim rs_bids Set rs_bids=Server.CreateObject("ADODB.Recordset") rs_bids.ActiveConnection=MM_PGBOnline_STRING rs_bids.Source = "SELECT date_submitted, co_name, bid_file, eproc_quotation_bids.co_id FROM eproc_quotation_bids, eproc_companies WHERE reference_id = '"&Request.QueryString("refid")&"' AND eproc_quotation_bids.co_id=eproc_companies.co_id ORDER BY date_submitted ASC" rs_bids.Open() %>

PGB Online Procurement


E-Procurement Home <%If Session("EProcUser")<>"" or Session("CompanyUname")<>"" then%> | LOGOUT <%End if%>


<%If nowinner(Request.QueryString("refid")) then%> <%End If%> <%If ((rs_forbidding("isthereawinner")="Y" or rs_forbidding("isthereawinner")="X") AND (not isnull(Trim(var_reason)) AND var_reason<>"")) then%> <%End If%> <%If not nowinner(Request.QueryString("refid")) AND maypanalonaba = "" then%> <%End If%>
  Title / Description
Closing Date
Awarding Date
<%if maypanalonaba <> "" then%> <%While not rs_bids.eof%>
<% for each nte in the_winners If CINT(nte) = CINT(rs_bids("co_id")) then displayCo = ""&rs_bids("co_name")&"" dispWinIcon = "  " Exit For Else displayCo = rs_bids("co_name") dispWinIcon = "" End If Next %>
"><%=displayCo%> - <%=rs_bids("date_submitted")%> <%=dispWinIcon%>
<%rs_bids.movenext() Wend%> <%Else%> <%While not rs_bids.eof%>
<%=rs_bids("co_name")%> - <%=rs_bids("date_submitted")%>
<%rs_bids.movenext() Wend%> <%End If%>
No Winner has been Selected (subject for reposting)
  <%Response.Write (var_reason)%>
  • click the REFERENCE NO. or the bidding DESCRIPTION to download the actual Bid Form Notice
  • click the name of the company to download their corresponding bids
No Winner yet!

<%If Session("EProcUser")<>"" or Session("CompanyUname")<>"" then%> <%If Session("EProcUser")<>"" then%> <%ElseIf Session("CompanyUname")<>"" then%> <%End If%> <%Else%>
| 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 ProfileCompany Pre-Registration | Registration Requirements Admin Login | Company Login <%End If%>
<% rs_bids.close set rs_bids = nothing rs_forbidding.close set rs_forbidding = nothing %>