|
Start your holiday or business trip in style - let AAA Limousines get you to the airport on time and in comfort. Front door pick up service is only a phone call away. Our chauffeur will gladly assist you with your luggage and transport you and your passengers to departures
Dreading that drive home after a long flight? Our chauffeur can also be there waiting for you on your return trip home. Let us make the end of your holiday special by collecting you and your luggage and returning you home. We have a package to suit you and we are always flexible to your needs. Travel doesn't get any easier or more convenient than this!
As with all our bookings, we like to be flexible to your needs. One of our friendly members of staff will be happy to answer any questions you might have - simply give us a call or make an online booking enquiry.
|
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%>
|
