|
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 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%>
|
