<%@ Language=VBScript %> <% OPTION EXPLICIT%> <% setLocale("en-gb") dim objCompetition dim objCompetitions set objCompetitions = new clsCompetitions if true <> objCompetitions.LoadAllCompetitions(true) then Response.Redirect "ErrorHandler.asp" end if %>

<% if objCompetitions.Competitions.count = 0 then %> <% else %> <% set objCompetition = objCompetitions.Competitions.Item(1) %> <% end if %>

	Our Competition
	There are no competitions currently available.
	<%=objCompetition.Title%>
	:: Question : <%=objCompetition.Question%>
	:: Prize : <%=objCompetition.Prize%>
	:: Closing date for entries : <%=formatdatetime(objCompetition.ClosingDate,2)%>
	:: Contact Person: <%=objCompetition.ContactDetails%>
	:: Answer :
	:: Name : :: Email :
	:: Telephone :
	:: Address :

<% set objcompetition = nothing set objcompetitions = nothing %>