|
|
|
|
 |
|
|
| |
<%
Set newsQuery = Server.CreateObject("ADODB.Recordset")
newsQuery.Open "SELECT * FROM news_master ORDER BY news_date DESC", db
Dim str
If NOT newsQuery.EOF then
While NOT newsQuery.EOF
newsId = Trim(newsQuery(0))
newsDate = MonthName(Month(newsQuery("news_date")), True) & " " & Day(newsQuery("news_date")) & ", " & Year(newsQuery("news_date"))
newsHeading = Trim(newsQuery("news_title"))
str=str & " " & ""& newsDate &"
" & " " & " ...
" & " "
newsQuery.MoveNext
Wend%> <%=str%>
<%
else
str="No News Available "%>
<%=str%><%
End If
%>
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
 |
|
