<%@ Language=VBScript %> <% OPTION EXPLICIT%> <% setLocale("en-gb") dim objOffer dim objOffers set objOffers = new clsOffers if true <> objOffers.LoadAllOffers(true) then Response.Redirect "ErrorHandler.asp" end if %> <% if objOffers.Offers.count = 0 then %> <% else %> <%for each objOffer in objOffers.Offers.items %> <%next%> <% end if %>
Our Special Offers
There are no offers currently available.
:: <%=objOffer.Description%> Offer expires on : <%=formatdatetime(objOffer.EndDate,2)%>
<% set objOffer = nothing set objOffers = nothing %>