Tender Notices

<% ' Query to get active tenders SQL = "Select * from Tender where ExpiryDate >= '" & Date() & "' order by TID desc" sno = 1 Set RS = db.Execute(SQL) If Not RS.EOF Then While Not RS.EOF ' --- Logic for "New" Blinking (Last 3 Days) --- Dim isNew, daysDiff isNew = False ' Calculate difference between StartDate and Today If IsDate(RS("StartDate")) Then daysDiff = DateDiff("d", RS("StartDate"), Date()) ' If difference is 0, 1, 2, or 3 days If daysDiff >= 0 And daysDiff <= 3 Then isNew = True End If End If %> <% sno = sno + 1 RS.MoveNext Wend Else %> <% End If RS.Close %>

Sr #	Title	Start Date	Expiry Date
<%=sno%>	<% linkpath = "AIOUBOX\TendersDoc\" Link = RS("DocPath") %> <%=RS("THeading")%> <% If isNew Then %> New! <% End If %>	<%=FormatDateTime(RS("StartDate"), 1)%>	<%=FormatDateTime(RS("ExpiryDate"), 1)%>
No tenders Yet!