<% Set Conn = Server.CreateObject("ADODB.Connection") OpenConnection SQLn = "select top 2 * from tblNews where show = 1 order by ndate desc" Set Rsn = server.CreateObject("ADODB.Recordset") 'Rsn.CursorLocation=adUseClient Rsn.Open SQLn,Conn,3,2,1 If Rsn.recordcount > 0 then Do while Not Rsn.eof %> <%Rsn.movenext loop else%> <%end if%>

<%=RetrieveS(Rsn("title"))%>

<%=RetrieveD(Rsn("ndate"))%>

">read more >>

No News Available.