%@ 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
RFP Listing
<%if TotalPages = 0 then%>
You have not been invited to participate in any current RFPs.
<%else%>
<%
If TotalPages > 1 Then
%>
<%
' 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
%>
<%
End If
%>
Title
Link
Company
Contact
Close
Date
<%
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
%>