/* ********************************************************************************** 
    * This code was created by Jim Young of www.requestcode.com .                *
    * You may use this code at no charge.  All I ask is that you give me             *
    * credit.  Please visit my site for more scripts like this one.                          *
    **********************************************************************************
    Enter your links or text in the array below that you want to scroll.  Mak sure that you use single quotes within 
    the double quotes 
*/
var msg=new Array()

msg[0]="<a href='news/news30.asp' class='home_bottom_link'><b>Shackerley product information now available on NBS</b></a><br>Shackerley (Holdings) Group Limited, one of the UK’s leading suppliers of ceramic granite ventilated facade systems, has published its product information on the NBS system..."
msg[1]="<a href='news/news29.asp' class='home_bottom_link'><b>Shackerley alerts contractors to new market opportunity</b></a><br>Specifiers are becoming increasingly aware of the availability and aesthetic appeal of large format porcelain tiles, and of their potential applications in interior installations..."
msg[2]="<a href='news/news28.asp' class='home_bottom_link'><b>Sureclad helps architects blend old and new at Cheltenham Clinic</b></a><br>A Sureclad ceramic granite ventilated facade system supplied by Shackerley has proved an attractive cladding solution for Quattro Design Architects at the new Breast Clinic in Cheltenham..."
msg[3]="<a href='news/news27.asp' class='home_bottom_link'><b>Shackerley reveals all at head office</b></a><br>Ceramic granite rainscreen specialist Shackerley has opened a new training and presentation centre at its Chorley headquarters..."

/*
msg[0]="<a href='news/news8.asp' class='home_bottom_link'><b>Queen’s Award Winning Rainscreens At Interbuild 2007</b></a><br>Interbuild* gives Shackerley an ideal platform to promote the latest technical and aesthetic developments to its Queen’s Award winning Sureclad range of ceramic granite ventilated rainscreen systems. (See us on Stand F145/G140 in Hall 5.)"
msg[1]="<a href='news/news7.asp' class='home_bottom_link'><b>Shackerley Employees Celebrate Royal Honour</b></a><br>Deputy Lieutenant of Lancashire Mr Rodney Swarbrick CBE DL made a special visit to Shackerley to present the Euxton manufacturing and distribution firm with a Queen’s Award for Enterprise"
msg[2]="<a href='news/news6.asp' class='home_bottom_link'><b>Shackerley’s Ceramic Granite Makes an Impact on the Clyde</b></a><br>With a sleek black Sureclad ceramic granite ventilated rainscreen, Shackerley has helped RMJM Architects in Glasgow transform a new build development of urban ‘crash pads’ into a landmark building on the Clyde waterfront."
msg[3]="<a href='news/news5.asp' class='home_bottom_link'><b>Shackerley and The Manser Practice create the ‘wow factor’ for Provident Financial</b></a><br>Lancashire ceramic granite specialist Shackerley Holdings Group Limited has helped architects at The Manser Practice in Leeds to deliver floors with ‘a real wow factor’ for Provident Financial."

msg[3]="<a href='news/news4.asp' class='home_bottom_link'><b>Queen’s Award for Shackerley’s Sureclad rainscreen system </b></a><br>The Sureclad range of ventilated rainscreen systems from Shackerley Holdings Group Limited has earned the company a Queen’s Award for Enterprise in the Innovation category. "
msg[0]="<span  class='home_bottom_link'><a href='news/news1.asp' class='home_bottom_link'><b>Shackerley wins award for Sureclad at Paragon</b></a></span><br>Paragon, winning the TTA Award for 'Best technical Use of Tile in a Construction Project' is believed to be the largest and most complex ceramic granite ventilated rainscreen cladding project in the UK"
msg[1]="<span  class='home_bottom_link'><a href='news/news2.asp' class='home_bottom_link'><b>Shackerley offers a new aesthetic for ventilated rainscreens</b></a></span><br>The new ceramic granite panels have the richly contrasting tones and textured appearance of weathered metals"
msg[2]="<span  class='home_bottom_link'><a href='news/news3.asp' class='home_bottom_link'><b>Shackerley Offers Rainscreen Specifiers a New Design Tool</b></a></span><br>Specifiers can use the disc to evaluate the appearance of different ceramic granite panels on three very different types of elevation. "
msg[3]="<span  class='home_bottom_link'><a href='news/news4.asp' class='home_bottom_link'><b>Queen’s Award for Shackerley’s Sureclad rainscreen system </b></a></span><br>The Sureclad range of ventilated rainscreen systems from Shackerley Holdings Group Limited has earned the company a Queen’s Award for Enterprise in the Innovation category. "
*/

/* The variables below are the ones you want to change  */

speed=50                      // Sets the speed in milliseconds at which the link or text scrolls.
var divwidth=350            // Sets the width of the div or layer in pixels.  You will have to play with this to get it set correctly.
var divheight=150            // Sets the height of the div or layer in pixels.  Same as above.

/*
   The variables divincbt, divinctb, divincrl and divinclr set the increment in pixels that the div that contains the text
    or links is moved.  Which one is used is determined by the direction that you pick in the variable whichscroll.
    The variable divinctb would be used if you set whichscroll to 1, divinctb if you set whichscroll to 2, divincrl if
     you set whichscroll to 3 and divinclr if you set whichscroll to 4.  You can change these variables to speed up
     or slow down the movement of the scroll.
*/

var divincbt=1                 
var divinctb=-1
var divincrl=10
var divinclr=-10

var divpause=3500        // Sets how long to pause in milliseconds before scrolling the next link or text. 

var divtop="0"              // divtop and divleft set the top and left positions of the container div or layer in pixels. 
var divleft="0"               

var divcolor="#F4F0EA"      // Sets the background color of the div or layer

var divname1="scroll2"  // Sets the name of your div or layer for the first link or text that is displayed
var divname2="scroll3"  // Sets the name of your div or layer for the next link or text to be displayed

/*
   The variable whichscroll is used to set the direction of the scrolling.  It is currently set to 1.
    1 = Bottom to Top
    2 = Top to Bottom
    3 = Right to Left
    4 = Left to Right
*/
var whichscroll="1"

/* END OF CONFIGURATION VARIABLES */

/* THERE IS NO NEED TO CHANGE THE VARIABLES OR SCRIPTS BELOW */

var divinc
var stopposa
var stopposb
var scrollmsga
var scrollmsgb 
var thediva
var thedivb
var posa
var posb
var i=msg.length
var firsttime="y"
var divprop
var whichdiv=divname1
if(whichscroll=="1")
  {
   stopposa=0
   stopposb=divheight*-1
   divprop="top"
   divinc=divincbt
  }

function Scrollboxa(obja)
     {
         savobja=obja
         posa=posa-divinc
         if(((whichscroll=="1" || whichscroll=="3")&&(posa<=stopposa))||
           ((whichscroll=="2" || whichscroll=="4")&&(posa>=stopposa)))
           {
            clearTimeout(scrollmsga)
            setTimeout("scrollit()",divpause)
           } 
         else
             {
              if(document.getElementById) // IE5 and NS6
                {
                 eval("elma.style.top=posa")
                 elma.style.visibility="visible"
                }
              if(document.layers)    // NS4+
                {
                 eval("obja.top=posa")
                 
                 
                 document.main.visibility="show"
                }
              scrollmsga=setTimeout("Scrollboxa(savobja)",speed)
             }
     }
function Scrollboxb(objb)
     {
         savobjb=objb
         posb=posb-divinc
         if(((whichscroll=="1" || whichscroll=="3")&&(posb<=stopposb))||
            ((whichscroll=="2" || whichscroll=="4")&&(posb>=stopposb)))
           {
            clearTimeout(scrollmsgb)
           }
         else
              {
               if(document.getElementById) // IE5 and NS6
                 {
                  eval("elmb.style.top=posb")

                 }
               if(document.layers)  // NS4+
                 {
                  eval("objb.top=posb")
                  

                  
                  
                  objb.visibility="show"
                  
                 }
               scrollmsgb=setTimeout("Scrollboxb(savobjb)",speed)
              }
     }
function scrollit()
   {
    i++
    if(i>=msg.length)
      {i=0}
    posa=stopposb*-1
    posb=0
    if(firsttime=="y")
      {
       firsttime= "n"
       if(document.getElementById)      // IE5 and NS6
         {

          elma=document.getElementById(divname1)
          elma.innerHTML=msg[i]
         }
      if(document.layers)   // NS4+
        {
         thediva=eval("document.main.document."+divname1)
         thediva.document.write(msg[i])
         thediva.document.close()
        }
       Scrollboxa(thediva)
      }
    else
      {
       if(whichdiv==divname1)
         {
          if(document.getElementById)  // IE5 and NS6
            {
             elmb=document.getElementById(divname1)
             elma=document.getElementById(divname2)
             elma.innerHTML=msg[i]
            }
          if(document.layers)  //  NS4+
            {
             thedivb=eval("document.main.document."+divname1)
             thediva=eval("document.main.document."+divname2)  
             thediva.document.write(msg[i])
             thediva.document.close()
            }
          Scrollboxb(thedivb)
          whichdiv=divname2
          Scrollboxa(thediva)
         }
       else
         {
          if(document.getElementById)   // IE5 and NS6
            {
             elmb=document.getElementById(divname2)
             elma=document.getElementById(divname1)
             elma.innerHTML=msg[i]
             }
          if(document.layers)  // NS4+
            {
             thedivb=eval("document.main.document."+divname2)
             thediva=eval("document.main.document."+divname1)
             thediva.document.write(msg[i])
             thediva.document.close()
             }
          Scrollboxb(thedivb)
          whichdiv=divname1
          Scrollboxa(thediva)
         }
      }
  }