<% Option Explicit Dim sql, rsNews, numStories, count 'numStories controls the maximum stories outputted to the page numStories = 5 %> <% sql = "SELECT * FROM news ORDER BY newsdate DESC" set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.open sql, nconn, 3, 3 %>
MBS International Airport
nav nav
nav
nav
 

What's New

 

<%if rsNews.EOF then%>

There are no news stories

<%else for count = 1 to numStories%>

<%=rsNews("newsdate")%> -

<%=Replace(rsNews("news"), vbCrLf, "
" & vbCrLf)%>

<%rsNews.Movenext if rsNews.EOF then exit for end if next end if%>

Home | About Us | Map & Directions | Airlines
Airport Services | Local Info | What's New
Copyright © 2002 MBS International Airport. All rights reserved