<%@ Language=VBScript %> <% Option Explicit Response.Buffer = True %> ::: beyonwiz ::: <%'start news%>
Beyonwiz 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%>