<% Dim intNewsId Dim strTitle Dim strDesc Dim strImage Dim strSQL Dim rs strSQL = "Select Top 2 * from tblNews where Status = 0 order by CreateDate desc" set rs = GetRecords(strSQL) strSQL = "Select * from tblNews where Status = 1" set rsArchive = GetRecords(StrSQL) %> News List

<%if not rs.eof then do while not rs.eof if rs("CreateDate") <> "" then strDate = FormatDateTime(cdate(rs("CreateDate")),2) strDT = MonthName(Month(strDate)) & " " & day(strDate) & ", " & year(strDate) end if strImage = trim(rs("Image"))%>
<%=trim(rs("Title"))%>
<%=strDT%>

<%=trim(rs("Description"))%>

<%if strImage <> "" then%> <%end if%>
<%rs.movenext loop else response.write "


No Active news found
" end if set rs = Nothing%>
<%if not rsArchive.eof then%>
<%if not rsArchive.eof then Do while not rsArchive.eof if rsArchive("CreateDate") <> "" then strDate = FormatDateTime(cdate(rsArchive("CreateDate")),2) strDT = MonthName(Month(strDate)) & " " & day(strDate) & ", " & year(strDate) end if %> <%rsArchive.movenext Loop end if%>
<%if not rsArchive.eof then response.write "News Archives" end if%>
  • "><%=cutstring(trim(rsArchive("Title")),20)%>

  •      <%=strDT%>
    <%end if%>