<%call restrictuser("login.asp?logintype=admin","EProcUser")%> <% Sub Bids_PageList(conection,SQL,bidtype) ' Define variables dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter ' DB connection dim Conn Set Conn = Server.CreateObject("ADODB.Connection") sConnection = conection Conn.Open(sConnection) ' records per page recordsonpage = 20 ' count all records var1 = Instr(query, "FROM") ' character position, start from word "FROM" in SQL string var2 = Instr(query, "Group")-1 ' character position, start from word "Group" in SQL String var3 = Instr(query, "WHERE")-1 ' character position, start from word "WHERE" in SQL String var4 = Instr(query, "left")-1 ' character position, start from word "Left Join" in SQL String 'response.Write(mid(query,var1, var2-var1)) 'response.Write( mid(query, var1, var4-var1) & mid(query, var3, var2-var3)&"

") 'response.write(query&"

") 'response.Write(mid(query, var3, var2-var3)&"
") 'response.write(var1&" "&var2&" "&var3&" "&var4) set rs_pagelist = conn.Execute("SELECT count(*) " & mid(query, var1, var4-var1) & mid(query, var3, var2-var3)) allrecords = CInt(rs_pagelist(0)) ' if offset is zero then the first page will be loaded offset = request.querystring("offset") if offset = 0 OR offset = "" then requestrecords = 0 else requestrecords = requestrecords + offset end if ' opens database set rs_pagelist = conn.Execute(SQL) ' reads first records (offset) without showing them (can't find another solution!) hiddenrecords = requestrecords do until hiddenrecords = 0 OR rs_pagelist.EOF hiddenrecords = hiddenrecords - 1 rs_pagelist.movenext if rs_pagelist.EOF then lastrecord = 1 end if loop If bidtype = "q" then td_size = "10%" added_td = "
 
" colspan = 4 else td_size = "50%" added_td = "" colspan = 3 End if If not rs_pagelist.eof then Response.Write "" & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf ' prints records in the table showrecords = recordsonpage recordcounter = requestrecords row = 1 do until showrecords = 0 OR rs_pagelist.EOF recordcounter = recordcounter + 1 'Displays the content per page If row mod 2 = 1 then rowcolor = "#E9E9E9" else rowcolor = "#FFFFFF" End if Response.Write "" & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write " " & vbcrlf Response.Write "" & vbcrlf row = row + 1 showrecords = showrecords - 1 rs_pagelist.movenext if rs_pagelist.EOF then lastrecord = 1 loop Response.Write "" & vbcrlf Response.Write "
" & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write "
" & vbcrlf Response.Write "
 Title / Description
Reference ID
Closing Date
Bidder
" & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write "
" & vbcrlf Response.Write "
View actual Notice to Bid Document" & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write "
" & vbcrlf If rs_pagelist("cnt") <> "0" then Response.Write "" & rs_pagelist("description") & "" & vbcrlf Else Response.Write rs_pagelist("description") & vbcrlf End If Response.Write "
" & vbcrlf Response.Write "
" & rs_pagelist("reference_id") & "
" & rs_pagelist("closing_date") & "
" & rs_pagelist("cnt") & "
" & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write "
" & vbcrlf Response.Write "
" & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write "
" & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write "
" & vbcrlf Response.Write "
" & vbcrlf Response.Write "
" & vbcrlf Else 'call noRecord Response.Write("
No notice posted!
") End if 'Displays the Navigation Area With Response .Write("") .Write("") .Write("") .Write("") .Write("") .Write("") .Write("") .Write("") .Write("") .Write("") Response.Write("") Response.Write("
 

") End With if requestrecords <> 0 then Response.Write("<< Prev Page") else Response.Write("<< Prev Page") end if With Response .Write("
 
") End With if lastrecord <> 1 AND not rs_pagelist.EOF then Response.Write("Next Page >>") else Response.Write("Next Page >>") end if if allrecords > 0 then With Response .Write("
Page List : ") End With End If '************** pagelistcounter = 0 MM_offset = Request("offset") For i = 1 to allrecords Step recordsonpage pagelistcounter = pagelistcounter + 1 'TM_PageEndCount = i + recordsonpage - 1 'if TM_PageEndCount > allrecords Then TM_PageEndCount = allrecords if i <> MM_offset + 1 then Response.Write("" & pagelistcounter& " ") else Response.Write(""&pagelistcounter&" ") 'pagelistcounter End if 'if(TM_PageEndCount <> allrecords) then Response.Write(" ") next '************** Response.Write("
") ' Closes connection rs_pagelist.close Conn.close End Sub %>

PGB Online Procurement


ITEMS PREVIOUSLY SUBJECTED IN BIDDING THAT DON'T HAVE WINNER YET

<%'call Display_expiredbids("q") noticetype = "q" query = "SELECT eproc_for_bidding.reference_id, closing_date, description, file, count(bidid) as cnt FROM eproc_for_bidding left join eproc_quotation_bids ON eproc_for_bidding.reference_id = eproc_quotation_bids.reference_id WHERE notice_type='q' AND isthereaWinner='N' AND active='N' Group By eproc_for_bidding.reference_id ORDER BY closing_date DESC, published_date DESC" call Bids_PageList(MM_PGBOnline_STRING,query,noticetype) %>

| Post Invitation to Bid | View All Active Biddings | View Pre-Registered Companies |
| Reactivate Accounts | Download Supplier's Bids | Post Winner | Change Password |
 
 
BACK | LOGOUT | HOME