<% 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) %>

<%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%>