|
Theatre and concert package
Want to make that special night at the theatre or concert extra special? Hire a limousine from AAA and treat yourself to theHollywood lifestyle! Forget the hassle of navigation, traffic and parking when you travel in a luxurious 8 passenger limousine from our fleet.
Our limousine service can pick you and your party up at one or multiple locations and take you on to your chosen destination.
Want to start your evening by eating out? Reserve a table at your favourite restaurant, and our limo service takes you right up to the door, has your waiter call our driver just before you finish, and is ready to take you straight to your theatre, or whatever event you’re going to.
A selection of quality restaurants to consider are our friends at THE MILTON at Crathes, BISTRO VERDE in the Green, La Bonne Baguette in Correction Wynd, and La Lambarda at 2 King Street, Aberdeen
Our limousines are clean and well-maintained and our drivers courteous and professional; we provide unsurpassed service to make your night extra special.
|
News
<%
Dim sTxt, iSpeed, iTop, iLeft, iWidth, iHeight, sHtml1, sHtml2, sHtml4, strSQL,sMarquee
Dim conCurrent
Dim rstCurrent
Set conCurrent = CreateObject("ADODB.Connection")
Set rstCurrent = Server.CreateObject("ADODB.Recordset")
conCurrent.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.Mappath("db\news.mdb")
strSQL = "SELECT * FROM news where archive = false"
Set rstCurrent = conCurrent.Execute(strSQL)
sHtml = " more >>"
sHtml3 = "
"
sTxt = ""
rstCurrent.movefirst
do while not rstCurrent.eof
sTxt = sTxt & rstCurrent("news_title") & sHtml & _
rstCurrent("Entry_ID") & sHtml2 & sHtml3
rstCurrent.movenext
loop
iSpeed = 1 ' Speed of Marquee (higher = slower)
iTop = 0 ' Y Location Within Object
iLeft = 0 ' X Location""""
iWidth = 270 ' Width
iHeight = 80 ' Height
'Insert marquee into objects innerHtml Property (in this Case a table cell)
sMarquee=""
conCurrent.close
set conCurrent = Nothing
%>
<%=sMarquee%>
|
