<%@ 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 %>