<% ' The following is the code for the scrolling news ticker. 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 = 1 %> New Delta Plastic - News

News

<% '============ Beginning of ASP code (Inclusion inside a tag) ======================= '============ View news headers from database =========================================== RsGuestList.Open "select * from news order by NewsDate desc" if not RsGuestList.EOF then %> <%do while not RsGuestList.eof%> <%RsGuestList.MoveNext loop%>

" class="sub_heading2"><%=RsGuestList("NewsTitle")%> - Date: <%=RsGuestList("NewsDate")%>

 
 
<%else%>

No news are available at this time, please check again at a later time.

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

Product Gallery

  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title
  • title