<%if TotalPages = 0 then%> <%else%> <% If TotalPages > 1 Then %> <% End If %> <% myRFQs.VendorSearch idno, startdate, enddate, username, mypage, strDSN count = myRFQs.Count() For i = 1 to myRFQs.Count() Set myRFQ = myRFQs.Item(i) Set myVendorBid = Server.CreateObject("ADCRFQObjects.VendorBid") bidisexist = myVendorBid.IsExist(myRFQ.RFQID, username, strDSN) if bidisexist then vendorbidID = myVendorBid.GetID(myRFQ.RFQID, username, strDSN) end if if i mod 2 then bgcolor = "#E0E0E0" else bgcolor = "#ffffff" end if %> > <% Set myVendorBid= Nothing Set myRFQ = Nothing Next end if Set myRFQs = Nothing %>

RFQ Listing
You have not been invited to participate in any current RFQs.
Search by Close Date Range: From  to (mm/dd/yy) Search by ID No:
<% ' 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 %>
	Quote ID#/Name	Contact	Close Date	Status
<%if FormatDateTime(myRFQ.IssueDate,2) = FormatDateTime(Date,2) then%> <%else%>   <%end if%>	<%= myRFQ.IDNo %>	<%= myRFQ.Contact%>	<%= myRFQ.DueDate %>	<%if bidisexist then%> <%if myRFQ.Status = 1 then%> Closed   View Bids <%else%> Edit Quotes <%end if%> <%else %> Quote Now <%end if%>
Supplier menu