<%call restrictuser("login.asp?logintype=admin","EProcUser")%> <% Sub Bids_PageList(conection,SQL) ' 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 on error resume next ' count all records set rs_pagelist = conn.Execute("SELECT count(*) " & right( SQL,len(SQL)-InstrRev(SQL,"FROM")+1 )) 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 not rs_pagelist.eof then Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write " " & vbcrlf Response.Write " " & vbcrlf Response.Write "" & vbcrlf Response.Write "
Company NameDate First Approved
" & 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 Response.Write " "& Ucase(rs_pagelist("co_name")) &"" & vbcrlf Response.Write "
"&rs_pagelist("date_approved")&"
" & 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 "
" & 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


LIST OF COMPANIES ENTITLED FOR MEMBERSHIP RENEWAL

<%'call Display_expiredbids("q") query = "SELECT co_id, co_name, date_approved FROM eproc_companies WHERE approved='X' ORDER BY co_name" call Bids_PageList(MM_PGBOnline_STRING,query) %>

<%If Session("EProcUser")<>"" or Session("CompanyUname")<>"" then If Session("EProcUser")<>"" then%>
<%ElseIf Session("CompanyUname")<>"" then%>
<%End If Else%>
<%End If%>
BACK | LOGOUT | HOME