Home   |   Contact Us

<% '============ Beginning of ASP code (Inclusion inside a

tag) ======================= '============ View news headers from database =========================================== StrCnn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/news.mdb") Set OBJdbConnection = Server.CreateObject ("ADODB.Connection") OBJdbConnection.Open StrCnn Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 3 RsGuestList.Open "select * from news order by NewsDate desc" if not RsGuestList.EOF then %>
<%do while not RsGuestList.eof%> <%RsGuestList.MoveNext loop%>
"><%=RsGuestList("NewsHeadline")%>
Posted on: <%=RsGuestList("NewsDate")%> 
 
<%else%>
No news are available at this time, please check again at a later time.

 

 

 

 
<% end if RsGuestList.close set OBJdbConnection = Nothing '============ End of ASP code =========================================================== %>
 
News

<%=sMarquee%>

Quality Banner