<%@ Language=VBScript %> <% Option Explicit Response.Buffer = True %> <%'start news%> <%if request("newsID")<>"" then SQL="SELECT * FROM News_Category NC, News_Items NI where (NI.HIDE<>'Y') AND NI.CatID=NC.ID and NI.ID="&request("NewsID") set r=conn.execute(SQL) if not r.eof then%> <% end if r.close set r=nothing else%> <%SQL="SELECT distinct NC.Label, NC.ID FROM News_category NC, NEWS_ITEMS NI WHERE (NI.HIDE<>'Y') AND NI.CatID=NC.ID order by label" set r=conn.execute(SQL) if not r.eof then do while not r.eof %> <% r.movenext loop end if r.close set r=nothing %> <%end if%>

<%=r("label")%>

<%if r("image1")<>"" and r("image1")<>"-" then%> <%else%> <%end if%> <%if r("image2")<>"" and r("image2")<>"-" then%> <%else%> <%end if%> <%=r("Heading")%> <%=day(r("publishdate"))%>/<%=month(r("publishdate"))%>/<%=year(r("publishdate"))%> <%=r("londdesc")%> <%if r("SKU")<>"" then%>Click Here for More information on this product <%end if%><%if r("URL")<>"" then%>URL: <%=r("URL")%> <%end if%> <%if CheckImageExists(left(r("image1"),(len(r("image1"))-4)),"images/news/large/") <> "F" then%> &dir=images/news/large') class='BPlinkB'>" border="0"> "><%end if%> <%=r("caption1")%> <%if CheckImageExists(left(r("image2"),(len(r("image2"))-4)),"images/news/large/") <> "F" then%> &dir=images/news/large') class='BPlinkB'>" border="0"> "><%end if%> <%=r("caption2")%> RETURN TO LIST

<%=r("label")%>

<% SQL="SELECT * FROM NEWS_ITEMS WHERE (HIDE<>'Y') AND CatID="&r("ID")&" ORDER BY PublishDate Desc" set r2=conn.execute(SQL) if not r2.eof then %> <%do while not r2.eof%> <%r2.movenext loop%> <%=day(r2("publishdate"))%>/<%=month(r2("publishdate"))%>/<%=year(r2("publishdate"))%> <%=r2("Heading")%> <% end if r2.close set r2=nothing %>

<%'end news%> <%conn.close set conn=nothing%>