<%@ Language = VBScript%> <% opendb() set buyer=Obj.Execute("Select id,equipment,ann_date,bid_date from tender") buyer.close buyer.open,,1 'set seller=Obj.Execute("Select id,equipment,comments from classifiedadd where buyer=False") %> Tenders
<%If buyer.recordcount=0 then%>
No Tender Found
<%Else%>
<%sr=0 cnt=1 while Not buyer.EOF if cnt=1 then bg="#E0D9A3" else bg="#ECE8C6" end if sr=sr+1%> <%buyer.MoveNext if cnt=1 then cnt=2 else cnt=1 end if Wend set buyer=nothing%>
  
Sr # Tender Name Announced Date Bid Date  
 <%=sr%>  <%=buyer("equipment")%>  <%=buyer("ann_date")%>  <%=buyer("bid_date")%> ">Detail
<%End If%>