<%call restrictuser("login.asp?logintype=admin","EProcUser")%> <% 'If Session("noreload") = "yes" and Request.Form("action")="" then ' response.redirect("default.asp") 'Else ' Session("noreload") = "yes" 'End If %> <% Function addminuszero(monthorday) if monthorday < 10 then addminuszero = "0" & monthorday else addminuszero = monthorday End if End Function Function MyDate(param_date) if isNull(param_date) then MyDate = (Year(now) & "/" & addminuszero(Month(now)) & "/" & addminuszero(Day(now))) else MyDate = (Year(param_date) & "/" & addminuszero(Month(param_date)) & "/" & addminuszero(Day(param_date))) End If End Function Sub showCategory dim rs_cat Set rs_cat=Server.CreateObject("ADODB.Recordset") rs_cat.ActiveConnection=MM_PGBOnline_STRING rs_cat.Source = "SELECT code, description FROM eproc_category ORDER BY description ASC" rs_cat.Open() Response.Write("") While not rs_cat.EOF Response.Write(" ") Response.Write(" ") Response.Write(" ") rs_cat.movenext() Wend Response.Write("
") If Request.Form("Product_Category")<>"" then 'response.Write(Request.Form("Product_Category")) prod_list = Split(Request.Form("Product_Category"), ", ", -1, 0) For each product in prod_list If product = rs_cat("code") then myvar = " " exit for Else myvar = " " End If Response.Write(myvar) Response.Write(""&rs_cat("description")&"
") rs_cat.Close() End Sub %>

PGB Online Procurement


ITEM FOR BIDDING
<%If Session("err") <> "" then%>

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


<%End if%>
Notice Type
:
Reference No.
:
">
PR Number : ">
Description
:
Published Date
:
Closing Date
:
" size="12" maxlength="10" readonly> Select Date
Awarding Date
:
" size="12" maxlength="10" readonly> Select Date
     
Reference File
:
     
Categories
:
<%call showCategory%>
     
     
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 Else%>
<%End If%>