<% Dim Ticker__MMColParam Ticker__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then Ticker__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Ticker Dim Ticker_numRows Set Ticker = Server.CreateObject("ADODB.Recordset") Ticker.ActiveConnection = MM_Laing_STRING Ticker.Source = "SELECT TickerMessage FROM Ticker WHERE TickerActive = " + Replace(Ticker__MMColParam, "'", "''") + " ORDER BY TickNo ASC" Ticker.CursorType = 0 Ticker.CursorLocation = 2 Ticker.LockType = 1 Ticker.Open() Ticker_numRows = 0 %> :::: WELCOME TO THE P&K JOINERY WEBSITE HOMEPAGE ::::
 
||||||||||||||||||||||||||||||||   We hope you enjoy your visit to the PK Joinery website!   ||||||||||||||||||||||||||||||||||||||||   Whilst you are here please visit our Awards page to see our most recent achievements!   ||||||||||||||||||||||||||||||||||||||   Website contents Copyright 2009 PK Joinery P/L    ||||||||||||||||||||||||||||||||||||||