|
" I would just like to thank Jill and your driver Pete for making my daughters birthday truly a day to remember. The car was absolutely marvelous! Her face when she saw it made our day!" Mrs S Wright, Peterhead
" AAA Limos, thank you very much for "handling" our trip to Hampden, a great day was had by all. Your driver made us very welcome giving us a great laugh all the way. We'll see you again....next game in March!!" Mr J Stuart,Aberdeen
" A great way to end our holiday! You and your car really lifted our spirits when we came out of the airport, superb" Mr R Simpson, Buckie
"Thank you for looking after us at such short notice, the car was amazing and the girls had an absolute ball. Fiona was lovely, i never imagine a lassie limo driver! Very impressed." Mr G Deans, Bridge Of Don
|
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%>
  
|
