|
Follow your team in absolute comfort. With
one of our fleet decked in
luxurious leather, we are committed to
ensuring you a fun and pleasant journey
following your team.
Our uniformed chauffeur will collect you from your desired point, and
take you to the City and Stadium of your choice.
Whether it’s a weekend fixture, a thumping Midweek Euro tie or a trip to watch our national heroes!!
!
Enjoy our complimentary drinks for the duration of your trip, sit back
and relax while watching your team’s DVD on our on-board tv!
And listen to your clubs anthems from the roof mounted cd player!
!
We pride ourselves in our club day outing packages.
Whether it’s a home or away fixture this is an experience you will treasure for years!
 
|
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%>
|
