<% 'executes everytime this page opens 'this line of code sets "active" field to "N" if the "closing date" of item to bid has passed sql = "UPDATE eproc_for_bidding SET active='N' WHERE closing_date < now()" dim cn,cmd set cn=Server.CreateObject("ADODB.Connection") cn.Open=MM_PGBOnline_STRING 'response.write(sql) cn.Execute(sql) cn.close Sub Display_forbidding(noticetype) dim rs_forbidding Set rs_forbidding=Server.CreateObject("ADODB.Recordset") rs_forbidding.ActiveConnection=MM_PGBOnline_STRING rs_forbidding.Source = "SELECT reference_id, published_date, closing_date, description, file FROM eproc_for_bidding WHERE notice_type='"¬icetype&"' AND active='Y' ORDER BY published_date, closing_date DESC" rs_forbidding.Open() If noticetype = "q" then td_size = "43%" added_td = "
 
" colspan = 4 else td_size = "50%" added_td = "" colspan = 3 End if if not rs_forbidding.eof or not rs_forbidding.bof then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'Response.Write(added_td) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
Date PublishedClosing
Date
Reference
No.
Title/Description
") Response.Write("") row = 0 While not rs_forbidding.eof If row mod 2 = 1 then rowcolor = "#E9E9E9" myimg = "folderpaperinsert2.jpg" else rowcolor = "#FFFFFF" myimg = "folderpaperinsert.jpg" End if Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") 'If noticetype = "q" then ' Response.Write("") 'End If row = row + 1 rs_forbidding.movenext() Wend Response.Write("
" & Month(rs_forbidding("published_date")) & "/" & Day(rs_forbidding("published_date")) & "/" & Year(rs_forbidding("published_date")) & "" & Month(rs_forbidding("closing_date")) & "/" & Day(rs_forbidding("closing_date")) & "/" & Year(rs_forbidding("closing_date")) & "" & rs_forbidding("reference_id")& ""& rs_forbidding("description") & "PGB Registered Companies click here to submit your bid on this item!
") Else Response.Write("
No Open Bidding as of this time!
") End If rs_forbidding.Close() Set rs_forbidding = nothing End Sub %>

PGB Online Procurement


<%'If Session("EProcUser")<>"" or Session("CompanyUname")<>"" then%> <%'End if%> <%'call Display_forbidding("b")%>
ITEMS FOR QUOTATION E-Procurement Home <%If Session("EProcUser")<>"" or Session("CompanyUname")<>"" then%> | LOGOUT <%End if%>

<%call Display_forbidding("q")%>

<%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%>