<%@ LANGUAGE="VBSCRIPT" %> <% response.buffer = true %> <% mypage = request("page") If mypage = "" then mypage = "1" end if if session("memberID") = "" then Session("ASP") = request.servervariables("script_name") Response.Redirect ("../../member/memberLogin.asp") elseif session("memberType") = "01" then response.redirect("../default.asp") end if session("ASP") = "" startdate = request("startdate") enddate = request("enddate") title = request("title") strDSN = "DSN=" & Application("DSN") & ";UID=" & Application("UserName") _ & ";PWD=" & Application("Password") & ";" Set myMember = Server.CreateObject("ADCFRMBCObjects.Member") myMember.GetByID session("memberID"), strDSN username = myMember.userName Set myMember = Nothing Set myRFPs = Server.CreateObject("ADCRFQObjects.RFPs") TotalPages = myRFPs.GetTotalPagesByVendorSearch(title, startdate, enddate, username, strDSN) %> RFP List
<%if TotalPages = 0 then%> <%else%> <% If TotalPages > 1 Then %> <% End If %> <% myRFPs.VendorSearch title, startdate, enddate, username, mypage, strDSN count = myRFPs.Count() For i = 1 to myRFPs.Count() Set myRFP = myRFPs.Item(i) if i mod 2 then bgcolor = "#E0E0E0" else bgcolor = "#ffffff" end if %> > <% Set myRFP = Nothing Next End if Set myRFPs = Nothing %>
RFP Listing

You have not been invited to participate in any current RFPs
.
Search by Close Date Range: From  to (mm/dd/yy)
Search by Title:
<% ' Now make the page _ of _ hyperlinks scriptname = request.servervariables("script_name") response.write "Page: " for counter = 1 to TotalPages if counter <> CLng(mypage) then ref = "" & counter & "" else ref = counter end if response.write ref & " " next %>
Title Link Company Contact Close Date  
<%= myRFP.Title %> <%if myRFP.LinkURL <> "" and myRFP.LinkURL<>"http://" then %> <%= myRFP.LinkURL %> <%end if%> <%=myRFP.Company%> <%= myRFP.Contact %> <%= myRFP.DueDate %>
 
 
Supplier Menu