<%@ 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 myRFIs = Server.CreateObject("ADCRFQObjects.RFIs") TotalPages = myRFIs.GetTotalPagesByVendorSearch(title, startdate, enddate, username, strDSN) %> RFI List
<%if TotalPages = 0 then%> <%else%> <% If TotalPages > 1 Then %> <% End If %> <% myRFIs.VendorSearch title, startdate, enddate, username, mypage, strDSN count = myRFIs.Count() For i = 1 to myRFIs.Count() Set myRFI = myRFIs.Item(i) if i mod 2 then bgcolor = "#E0E0E0" else bgcolor = "#ffffff" end if %> > <% Set myRFI = Nothing Next End if Set myRFIs = Nothing %>
RFI Listing

You have not been invited to participate in any current RFIs
.
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  
<%= myRFI.Title %> <%if myRFI.LinkURL <> "" and myRFI.LinkURL<>"http://" then %> <%= myRFI.LinkURL %> <%end if%> <%=myRFI.Company%> <%= myRFI.Contact %> <%= myRFI.DueDate %>
 
 
Supplier Menu