Aberdeen, Stonehaven, Westhill, Inverurie, Ellon, Peterhead, Fraserburgh & Banchory Limo hire.
 |
 |
 |
 |
 |
|
|  |
Our friendly staff are at hand to answer any questions or queries, special requests you may have
Call us on 01224 742015 or 07734 650351
Deposits and full payments can be made securely on line by clicking on the "Nochex" button below, or call us to request to pay by PayPal.
Alternatively cash or cheques made payable to "AAA Limousine Hire" are gratefully accepted
Call us now on: 01224 742015 or 07734 650351 or e-mail us at enquiries@aaa-limousines.co.uk
Pay online securely by clicking the image above.
|
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%>
   
|
| Call us now on: 01224 742015 or 07734 650351 or e-mail us at enquiries@aaa-limousines.co.uk
|
|
|
 |
 |
|
|
|
