<%
sub WriteLatestNewsStories()
Dim sql, GetNewsItems
sql = "SELECT id,header,body,thedate from tblLatestNews order by thedate desc"
GetNewsItems = GetRows(sql)
i = Ubound(GetNewsItems, 1)
If i > 0 Then
For i = 0 to Ubound(GetNewsItems, 2)
if (i+1) mod 2 = 0 then
'even
temp = "
"& GetNewsItems(1,i) & "
" & GetNewsItems(2,i) & "
"
else
temp = "
"& GetNewsItems(1,i) & "
" & GetNewsItems(2,i) & "
"
end if
Response.Write(temp)
Next
end if
end sub
%>
Agape Employment - Latest news
Welcome to Agape Employment's Employee news section.
Check here regularly for stories that effect you and your employment,
maybe an important policy is changing.
