<% '***************************************************************************************** ' MAIN SECTION '***************************************************************************************** dim strSQL dim rsList, arList dim x strSQL = "SELECT tblNews.*, tblUser.userName, tblUser.userEmail " & _ "FROM tblUser INNER JOIN tblNews ON tblUser.userID = tblNews.insertedBy ORDER BY newsDateTime DESC" ADOOpen() set rsList = DataConn.Execute(strSQL) if not(rsList.EOF) then arList = rsList.getRows() else arList = null end if rsList.close set rsList = nothing ADOClose() call WritePageHeader("bankbikes | news", "") %> <% if isarray(arList) then for x = 0 to ubound(arList, 2) %> <% next else end if %>

<%=ucase(arList(1, x))%>

<%=arList(2, x)%>

Posted By: <%=arList(5, x)%> @ <%=formatDateTime(arList(3, x), 2)%>

<% call WritePageFooter() %>