<% ' 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) ======================= newsID=request.querystring("newsID") RsGuestList.Open "SELECT * FROM News WHERE NewsID="& NewsID NewsTitle=RsGuestList("NewsTitle") NewsDescription=RsGuestList("NewsDescription") NewsDescription=Replace(NewsDescription, vbCrLf, "
") %>
 
<%=NewsTitle%> - <%=MonthName(Month(RsGuestList("NewsDate")),1)&" "&Day(RsGuestList("NewsDate"))&", "&Year(RsGuestList("NewsDate"))%>

<%=NewsDescription%>

<% 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