|
AAA Limousines regularly cater for those wishing to travel to
their school or college Prom in luxury. We can arrange to transport you
as a couple or a group of friends from multiple pick-up points.
Bring your favourite CD or DVD along with you for the journey.
Parents and guardians are assured that only trained chauffeurs will
transport your children to their event and the safety and welfare of
our passengers is our number 1 priority.
When your Prom is over our driver will be ready to take you back to
your front door. Our aim is to make the trip to and from the venue as
enjoyable as the Prom itself.
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 on 07734 650351 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%>
|
