|
Get that last night of freedom off to a stylish start with a ride in one of our luxury stretched limousines! If you have friends in different areas we can arrange to pick your party up from several collection points (pre-arranged at time of booking). And after that, get in that feel-good mood by enjoying some complimentary bubbly and party music en route to your favourite bar or club.
After you've partied the night away our smartly dressed chauffeur will be ready to meet you outside and ensure you leave just like superstars! Forget about any hassle with taxis or public transport as you sit back and enjoy the trip home.
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%>
|
