<% ' The following is the code for the scrolling news ticker. Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2, sHtml4, strSQL,sMarquee StrCnn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/pavillion.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 RsGuestList.Open "select * from news ORDER BY NewsDate DESC" sHtml1 = "" sHtml3 = "" sTxt = "" if not RsGuestList.eof then RsGuestList.movefirst do while not RsGuestList.eof sHtmlDate = MonthName(Month(RsGuestList("NewsDate")),1)&" "&Day(RsGuestList("NewsDate"))&", "&Year(RsGuestList("NewsDate")) sTxt = sTxt & sHtml1 & _ RsGuestList("NewsID") & sHtml2 & sHtmlDate& "
"&RsGuestList("NewsTitle")& "

" &sHtml3 RsGuestList.movenext loop end if RsGuestList.close %> :: Look Pavillion International - News ::
Pavillion  
  Home   About Us   Services   Projects   News   Careers   Contact Us  
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 =========================================================== %>
Copyright © 2011 Look Pavillion. All rights reserved. This website is designed by: elzoghby.com