Links to our friends and associates sites
Should you contact any of our friends please mention you found them through our site
Our Bebo Page, check it out!
www.bebo.com/AAALimos
Uniforms, Embroidery & Corporate Gifts
Florists and Wedding Planners
www.loveflorist.co.uk
Recommended Restaurants
www.themilton.co.uk
www.cafebohemerestaurant.co.uk
Friends
www.peacockitconsultants.co.uk
www.hollywoodcars.net
www.elegant-beau-cars.co.uk
Car Parts & Accessories
www.checkpoint-aberdeen.co.uk
Mortgage & Legal Advice
www.solicitorsdirect.info
www.themortgageshopaberdeen.co.uk
Local Businesses to check out
www.a1aquaticsaberdeen.co.uk
Web Favourites
Limousine Register
|
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%>
  
|
